博文
[转帖]网络老婆与现实女友的对话(2006-02-09 22:20:00)
摘要：女孩捧着饭盒呆呆的站在男孩的后面，看到了他开心的在键盘上打字，和他的仙境老婆诉说着绵绵情爱，女孩的心揪了一下，但她还是告诉自己，这只是网络而已。她把饭盒放在男孩的桌边说：“快点吃，凉了就不好吃了。”男孩头也没抬的恩了一声，继续他的情话大奉献。女孩默默的走了。 此刻已是凌晨2点，女孩叹了口气，她已不奢望男孩会送她，但却连一句叮嘱的话都 没有。她宽容的一笑，回家了。 事隔数月－－ 女孩说：“看着我的眼睛说你背叛了我们的爱情，说啊你！” 男孩说：“不，我没有，我只是说她要来看我，仅此而已，我说不让，她偏要来，她也知道我有女朋 友的，明天下午她就会来这个网吧了，她说只是来看看我！” 女孩说：“只是来看看吗？你把网络爱情覆盖到我们5年的感情上了吗？我能和她聊聊吗？” 男孩说：“我没有，我没有。。。她也说想见见你！我说了不去接她，因为你在，她自己来！” 第二天下午3点整，男孩的仙境老婆准时出现在了网吧里，男孩唤她雪，雪很漂亮，很有朝气，今年才18岁，比女孩整整小了5岁。雪的视线穿过男孩落在女孩憔悴的脸上，互相微笑，没有任何敌意。女孩示意男孩回避，男孩知趣的坐回电脑前继续他的仙境，女孩牵着雪坐在了旁边的椅子上。半晌的沉默后，雪大胆的开口了：“我爱他，不限于网络里的爱。” 女孩：“爱不是激情，不是冲动，你了解他吗？或者说你了解你自己吗？” 雪： “你们之间已经没有爱情了不是吗？为何不好聚好散？” 女孩：“呵呵，那我给你先说十件事你听听！” 雪： “你说。我先听着。” 女孩把视线对准了男孩，男孩马上把竖起的耳朵收了回去。女孩笑笑，拉回了视线说： “第一，他是个特爱睡懒觉的人，每天早晨起码要叫20遍他的名字，他才会乖乖起床，出门之后他从不会自己买早餐，所以你每天都得为他做好早餐看他吃完了才放心。他就是这么漫不经心的人，不会照顾自己。 第二，他沉迷仙境不可自拔，每天晚上在家里玩的时候，大呼小叫的，从不把别人的睡眠放在眼里，而且第二天你总是要面对邻居的奚落，不停的道歉。 第三，他的朋友很多，每次一起吃饭首要任务就是喝酒，他的身体不身好，喝白酒的量是7两，喝啤酒的量是4瓶，超过了可不行，他会醉的，醉了别人都会喝茶，可他一喝茶就吐个没完，很伤胃的。 第四，他是个足球迷，每四年一次的世界杯，两年一次的冠军杯，或者欧洲杯，还有每个星期的意甲，足球天下，英超什么的，他都不会错过，三更半夜的爬起来看球......
[转帖]Doevents函数详解(2006-02-09 17:00:00)
摘要：Doevents函数是一个很好用的函数，但很多人对它的用法不清楚或有误解。由于我在网上查到一篇关于此函数的用法，并添加了一些内容，不敢独享，特此献出。 其中有一个“控时循环和变速齿轮”的内容，有点意思，感兴趣的可看一看。 DoEvents函数的功能是：转让控制权，以便让操作系统处理其它的事件。 问:为什么要用doevents? A.在需要用某一循环处理相当耗时或者很快速的代码时,就需要用到它,以便用户能在起处理过程中能做其他事情,即程序能被控制,而不是无响应状态 B.vb6.0中多线程vb代码极度不稳定,而且无法调试,所以vb中的多线程用的很少(注:是指vb的代码在多线程中运行时不稳定) C.timer控件可以起到后台运行作用,但其是通过事件控制,一是不稳定,二是速度太慢,如果想用其处理高速又耗系统的代码更本不能达到预期的效果 下面将其某些用法和难点简介如下: (注: 1.'** 后面的代码表示如果在该处用了这个语句。2.例子中会用到API函数。3.以下例子都经vb6.0测试成功） 一. 基本用法: 1.窗体启动时如果要处理的事务太多或者用sleep函数暂停,造成其很久都不能出现时怎么办? 例如代码: Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)'此句写入模块 Private Sub Form_Load() Show ......
vb2005语言的新特点2(2006-01-09 20:02:00)
摘要：今天接着翻译上次要讲的内容。
二、访问窗体
你可以不通过创建变量就访问vb6的窗体子句（member），下面的例子显示了如何改变窗体的颜色。
要改变窗体1的颜色，需要：
1、确保你的项目（project）和system.drawing命名空间（namespace）关联。这是进行查窗体颜色设置的必要条件。
2、直接在窗体1上改变颜色。
3、直接在窗体1上调用show方法。
Public Sub ChangeForm1Colors() Form1.ForeColor = System.Drawing.Color.Coral Form1.BackColor = System.Drawing.Color.Cyan Form1.Show()End Sub
如果窗体1不存在，vb会自动创建，你不必为此声明一个变量。
三、IsNot运算符（Operator）
vb2005现在提供了IsNot运算符，可以让你避免麻烦的使用Is和Not运算符。
比较两个对象基准变量（compare two object reference viarables)的代码如下：
result=object1 IsNot object2
其中：result是布尔值；object1和2是对象变量或表达式。
IsNot运算符可判断两个对象是否属于同一类型，但是它不能对数值进行比较。如果两个对象是同一类的，则result的值为false，反之，result的值为true。IsNot运算符和Is运算符恰恰相反，它的优点是避免了Not和is共同组成的苯拙难懂的语句。
下面的代码，分别利用Is运算符和IsNot运算符进行相同的比较，可以看出他们的不同之处：
Dim o1, o2 As ObjectIf Not o1 Is o2 Then MsgBox("o1 and o2 do not refer to the same instance.")If o1 IsNot o2 Then MsgBox("o1 and o2 do not refer to the same instance.")
如果你有两个对象变量，你可以用Is或者IsNot或者同时使用两者来判断他们是否同属一种实例......
vb2005语言的新特点1(2006-01-08 23:27:00)
摘要：vb2005有许多新改进的语言特点，这是它成为一种真正面向对象的编程语言；作为一个vb程序员，你现在可以通过声明多线程来创建可升级的多线程应用程序；另外，vb2005还有其他一些特点，值得关注。作为一名vb爱好者，我打算将vb2005语言部分的新特点翻译过来，因为我没有用过vb2005（刚刚下载和安装了vb2005express），只有借助自己对vb6的了解，进行翻译，希望网友们留言，提出建议和批评，QQ：3459028。
特点之一：连续声明（continue statement）
vb现在支持连续声明，这意味着可以从Do、For或while的循环中直接跳到该循环的下一轮反复。语法：Continue { Do | For | While }。
你可以在循环中的任何允许转出的位置使用continue，比如，你可以在一个包含了完整try或finally区块（block）的循环中使用continue，但是如果循环中包含try。。。end try的结构，你不可以从try或finally的区块中转出控制。
如果是相同的类型（type）的嵌套循环，比如一个Do循环中含有其他Do循环，那么continueDo声明就会跳到最里面的Do循环所包含的下一轮反复。你不能够通过使用continue来跳到具有相同类型嵌套循环的下一轮反复上。
如果是不同类型的嵌套循环，比如Do循环中包含一个For循环，你就可以通过使用continueDo或continueFor来跳到任何一个循环的下一轮反复上。
举例：
a。下面的代码使用continueWhile声明，当除数是0时，来跳到数组的下一个列。continueWhile嵌入在一个for循环中，它转出到While col <= lastcol 声明中，这正是包含有for循环的最深层的While循环的下一个反复。
Dim row, col As IntegerDim lastrow As Integer = 6Dim lastcol As Integer = 10Dim a(,) As Double = New Double(lastrow, lastcol) {}Dim b(7) As Doublerow = -1While row < lastrow row += 1&nbs......
Visual Basic 历史版本大回顾(2006-01-08 22:15:00)
摘要：Visual Basic 历史版本大回顾
（又名：Visual Basic的九次蜕变）
Visual Basic从1991年诞生以来，现在已经13年了。BASIC是微软的起家产品，微软当然不忘了这位功臣。随着每一次微软技术的浪潮，Visual Basic都会随之获得新生。可以预见，将来无论微软又发明了什么技术或平台，Visual Basic一定会首先以新的姿态登上去的。如果你想紧跟微软，永远在最新的技术上最快速地开发，你就应该选择Visual Basic。
1991-西雅图夜空的雷电随着Windows 3.0的推出，越来越多的开发商对这个图形界面的操作系统产生了兴趣，大量的Windows应用程序开始涌现。但是，Windows程序的开发相对于传统的DOS有很大的不同，开发者必须将很多精力放在开发GUI上，这让很多希望学习Windows开发的人员却步。1991年，微软公司展示了一个叫Thunder的产品，所有的开发者都惊呆了，它竟然可以用鼠标“画”出所需的用户界面，然后用简单的BASIC语言编写业务逻辑，就生成一个完整的应用程序。这种全新的“Visual”的开发就像雷电（Thunder）一样，给Windows开发人员开辟了新的天地。这个产品最终被定名为Visual Basic，采用事件驱动，Quick BASIC的语法和可视化的IDE。Visual Basic 1.0带来的最新的开发体验就是事件驱动，它不同于传统的过程式开发。同时，VBX控件让可视化组件的概念进入Visual Basic。Visual Basic 1.0是革命性的BASIC，它的诞生也是VB史上的一段佳话。
1992-渐入佳境的Visual Basic由于Windows 3.1的推出，Windows已经充分获得了用户的认可，Windows开发也进入一个新的时代。Visual Basic 1.0的功能过于简单，相对于Windows 3.1的强大功能没有发挥出来。所以，微软在1992年推出了新版本Visual Basic 2.0。这个版本最大的改进就是加入了对象型变量，比如
Dim b As CommandButton
Dim c As Control
而且有了最原始的“继承”概念，对象型变量分为一般类型（Control和Form）和专有类型(CommandButton和Form1等)，一般类......
VisualBasic第三方控件实现软件在线升级(2006-01-08 08:06:00)
摘要：
VisualBasic第三方控件实现软件在线升级
http://www.sina.com.cn 2005年06月22日 17:15 天极yesky
作者： 第七乐章
大家对金山毒霸、瑞星等杀毒软件的在线升级一定不陌生吧？它们可以利用在线升级程序进行在线升级 ，无需用户访问网站下载。这样的功能的确对于使用者来说是十分方便的。那么，您是否也想为您的软件添加方便的在线升级的功能呢？下面介绍一个第三方控件，能够帮你非常容易地就实现。 bkDLControl控件一个
可以快速实现在线下载的控件，它在下载的同时通过进度条显示进度。你可以编写当其下载完成后的事件，这样我们就可以轻松达到在线升级的目的。 要了解该控件强大便捷的功能，下面我们就通过一个实例来讲解。 第一步：首先启动Visual Basic 6.0，新建一个窗口。 第二步：加载bkDLControl控件。 ①在控件工具栏中单击右键，选择“部件”，在弹出的窗口中点击“浏览”，找到bkDLControl控件，载入它，命名为“DL”；因为是一个进度条，所以把大小拖成一个适当的长条状，把它放到Form1窗体中适当位置即可。其他属性保持默认即可。 第三步：加载其他控件，完成界面的设置。 ①在窗体中添加2个CommandButton控件，名称分别为cmdBegin和cmdCancel，Caption属性分别为“开始”和“取消”，其中设置cmdCancel的Enabled属性为“False”。 ②添加一个ComboBox控件，名称为cboURL，在list中添加几个下载地址（如图1），其他属性保持默认。添加该控件用于选择下载地址，这样可以用用户自行选择下载的服务器。
图1
③添加一个Listbox，命名为lstOut。为了美观，可以把Appearance属性设置为“0－Flat”。该控件用于显示下载过程中的进度说明。 ④在bkDLControl控件的右下方添加一个Label，命名为lblProg，设置Autosize属性为True。它将用于实时显示下载的大小和百分比。 程序总体界面如图2，在界面和属性设置上......
用集合和递归方法遍历目录文件 (2005-12-25 19:15:00)
摘要：
查找函数：Private Function FindFile(ByVal Spath As String, GetFileName() As String, ByVal FindFileName As String) As LongDim Files(2) As Long '定义一个固定数组，保存匹配的文件(夹)名称，总数Dim SubDirs() As String '定义一个动态数组,,保存当前查找目录中的所有下级子目录(用来递归查找)Dim fos As New FileSystemObject, fol As FolderDim subfil, subfolIf Trim(Spath)="" Or FindFileName="" Then Exit Function'要查找的路径没带一"\",则添上一"\"If Right(Spath, 1) <> "\" Then Spath = Spath + "\"BeginFind:On Error Goto ExitSubSet fol = fos.GetFolder(Spath)For Each subfil In fol.Files If subfil.Name Like FindFileName Then Files(0) = Files(0) + 1 ReDim Preserve GetFileName(1 To Files(0)) GetFileName(Files(0)) = Spath & subfil.Name 'GetFileName这个数组返回匹配的所有文件(夹)名称,从参数中返回 End IfNextFor Each subfol In fol.SubFolders If subfol.Name Like FindFileName Then &......
VB 可用指令、函数 索引表(2005-12-15 22:01:00)
摘要：
VB 可用指令、函数 索引表
点击数：4 发布日期：2005-12-15 19:34:00 【评论】【打印】【收藏此页到365Key】电信机房P4服务器·6999/年·送产权蓝芒系统
A
Abs 求绝对值
ActiveControl 得到焦点的对象
ActiveForm 得到焦点的表单
Array 指定数组
App 得知程序信息
AppActivate 激活执行中的应用程序
Asc 求字符的内码
AscB 求字符的ASCII
AscW 求字符的UniCode
Atn 求Tan-1
B
Beep 发出预设的警示声
C
Call 调用子程序
Calendar 选择月历
Choose 取出一列值的某个值
CBool 数值转成布尔数
CByte 数值转成位元格式
CCur 数值转成货币格式
CDate 数据转成时间
CDbl 数值转成双精度浮点数
CDec 数据转成十进数
ChDir 改变目前路径缓......
使用VB建立Web Server(2005-12-15 21:58:00)
摘要：
使用VB建立Web Server
点击数：6 发布日期：2005-12-15 19:44:00 【评论】【打印
李勇 ---- HTTP协议在浏览器中使用的原理：首先，Web浏览器与服务器建立连接，然后Web浏览器通过HTTP协议向服务器请求文档，最后，由服务器向Web浏览器应答，关闭连接。这就是HTTP协议的一般工作过程。下面，使用Visual Basic 5.0中文版来实现一个简单的Web服务器，使用Tcp/IP协议的 80端口，一般浏览器中的Http协议默认此端口，然后设置好超文本文件的发布路径，本程序默认为C:\InetPub\wwwroot，此Web Server程序比较简单，只适用于包含有文的超文本文件，如果超文本文件中含有图形，无法显示出来。
一、建立窗体
控件依次为label1,label2,label3,text1,text2,text3,command1,及Winsock1label1.caption=”Visual Basic Web 服务器 1.0”label2.caption=”本机地址”label3.caption=”发布路径”text2.text=”c:\Inetpub\wwwroot\”command1.caption=”启动”又击Command1加入代码Private Sub Command1_Click()'启动Winsock1,使用listen方法，听80端口 DoEvents Winsock1.Close Winsock1.Protocol = sckTCPProtocol Winsock1.LocalPort = 80 Winsock1.ListenText1.Text = "WinSocket状态: " & CStr(Winsock1.State) + " 本机IP地址:" + CStr(Winsock1.LocalIP)End Sub然后在......
Visual Basic 122条函数(2005-12-15 21:57:00)
摘要：
函数Abs函数Array函数Asc函数Atn函数CallByName函数Choose函数Chr函数Command函数Cos函数CreateObject函数CurDir函数CVErr函数Date函数DateAdd函数DateDiff函数DatePart函数DateSerial函数DateValue函数Day函数DDB函数Dir函数DoEvents函数Environ函数EOF函数Error函数Exp函数FileAttr函数FileDateTime函数FileLen函数Filter函数Format函数
FormatCurrency函数FormatDateTime函数FormatNumber函数FormatPercent函数FreeFile函数FV函数GetAllSettings函数GetAttr函数GetObject函数GetSetting函数Hex函数Hour函数IIf函数IMEStatus函数Input函数InputBox函数InStr函数InStrRev函数Int、Fix函数IPmt函数IRR函数IsArray函数IsDate函数IsEmpty函数IsError函数IsMissing函数IsNull函数IsNumeric函数IsObject函数Join函数LBound函数LCase函数
Left函数Len函数Loc函数LOF函数Log函数LTrim、RTrim与Trim函数Mid函数Minute函数MIRR函数Month函数MonthName函数MsgBox函数Now函数NPer函数NPV函数Oct函数Partition函数Pmt函数PPmt函数PV函数QBColor函数Rate函数Replace函数RGB函数Right函数Rnd函数Round函数Second函数Seek函数Sgn函数Shell函数Sin函数
SLN函数Space函数Spc函数Split函数Sqr函数Str函数StrComp函数StrConv函数StrReverse函数String函数Switch函数SYD函数Tab函数Tan函数Time函数Timer函数TimeSerial函数TimeValue函数类型转换函数TypeName函数UBound函数UCase函数Val函数VarType函数Weekday函数WeekdayName函数Year函数......