博文
[转帖]网络老婆与现实女友的对话(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 ......
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 Object
If 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或者Is......
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 Integer
Dim lastrow As Integer = 6
Dim lastcol As Integer = 10
Dim a(,) As Double = New Double(lastrow, lastcol) {}
Dim b(7) As Double
row = -1
While row < lastrow
&nb......
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和For......
VisualBasic第三方控件实现软件在线升级(2006-01-08 08:06:00)
摘要：
VisualBasic第三方控件实现软件在线升级
http://www.sina.com.cn 2005年06月22日 17:15 天极yesky
作者： 第七乐章
大家对金山毒霸、瑞星等杀毒软件的在线升级一定不陌生吧？它们可以利用在线升级程序进行在线升级 ，无需用户访问网站下载。这样的功能的确对于使用者来说是十分方便的。那么，您是否也想为您的软件添加方便的在线升级的功能呢？下面介绍一个第三方控件，能够帮你非常容易地就实现。
bkDLControl控件一个
ad1= "乳业的科技与创新";
link1= "http://sina.allyes.com/main/adfclick?db=sina&bid=12716,33638,33666&cid=0,0,0&sid=33381&advid=2034&camid=6415&show=ignore&url=http://finance.sina.com.cn/review/observe/20050616/10211691010.shtml";
//左上
ad2= "打工不如当老板！";
link2= "http://noshow.adsina.allyes.com/main/adfclick?db=sina&bid=8178,28137,28179&cid=0,0,0&sid=28272&advid=1800&camid=5854&show=ignore&url=http://admin.biz178.com/dlz/sheke/weburl.php?id=1275";
//右上
ad3= "17'液晶PC触价格底限";
link3= "http://noshow.adsina.allyes.com/main/adfclick?db=sina&bid=12337,33175,33215&cid=0,0,0&sid=32959&advid=1917&camid=6368&show=ignore&url=http://ad4.sina.com.cn/wx/ads/tongfangnews/tongfa......
用集合和递归方法遍历目录文件 (2005-12-25 19:15:00)
摘要：
查找函数：
Private Function FindFile(ByVal Spath As String, GetFileName() As String, ByVal FindFileName As String) As Long
Dim Files(2) As Long '定义一个固定数组，保存匹配的文件(夹)名称，总数
Dim SubDirs() As String '定义一个动态数组,,保存当前查找目录中的所有下级子目录(用来递归查找)
Dim fos As New FileSystemObject, fol As Folder
Dim subfil, subfol
If Trim(Spath)="" Or FindFileName="" Then Exit Function
'要查找的路径没带一"\",则添上一"\"
If Right(Spath, 1) <> "\" Then Spath = Spath + "\"
BeginFind:
On Error Goto ExitSub
Set 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 If
Next
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 数据转成十进数......
使用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,及Winsock1
label1.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.Listen
Text1.Text = "WinSocket状态:
" &......
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函数
P......