幻龙网络 » VB编程

用VB监控本机上网速度及总流量

admin — Wed, 20 Jun 2007 20:37:13 +0000

　　这个程序可以检测本机上网的即时上传速度、下载速度，网络类型，以及总的上传流量、下载流量。

　　VB代码下载：

　　http://www.01on.com/wp-content/uploads/attachments/month_0706/p2007620203642.rar

VB中On error resume next的作用范围

admin — Sat, 02 Jun 2007 13:53:43 +0000

　在VB中On error resume next的作用范围是子程序(或者函数)以及该子程序(或者函数)调用的子程序(或者函数).

　　在下例中,假如图片F:UploadFile123.jpg是不存在的,程序不会报错,因为Form_Load加了容错语句,对了由Form_Load里调用的Aaa同样生效.

Private Sub Form_Load()

On Error Resume Next

Call Aaa

Picture1.Picture = LoadPicture("F:UploadFile123.jpg")

End Sub

Sub Aaa()

Picture1.Picture = LoadPicture("F:UploadFile123.jpg")

End Sub

　　在下例中,假如图片F:UploadFile123.jpg是不存在的,Aaa不会报错,但Form_Load会报错,因为Aaa里的容错语句只对Aaa有效.

Private Sub Form_Load()

Call Aaa

Picture1.Picture = LoadPicture("F:UploadFile123.jpg")

End Sub

Sub Aaa()

Error Resume Next

Picture1.Picture = LoadPicture("F:UploadFile123.jpg")

End Sub

在vb中使用正则表达式

admin — Sat, 02 Jun 2007 13:17:58 +0000

本函数用于去除网页HTML代码中的超链接

1. 启动 Microsoft Visual Basic 6.0。

2. 在“文件”菜单上，单击“新建项目”。

3. 在“新建项目”对话框中，单击“Standard Exe”，然后单击“确定”。

默认情况下将创建 Form1。

4. 在“项目”菜单上单击“引用”。

5. 双击“Microsoft VBScript Regular Expressions 5.5”，然后单击“确定”。

'输入：HTML代码

'输出：去除超链接的HTML代码

Private Function LoseATag(ContentStr)

Dim ClsTempLoseStr

ClsTempLoseStr = CStr(ContentStr)

Dim regex As RegExp

Set regex = New RegExp

regex.Pattern = "<(/){0,1}a[^<>]*>"

regex.IgnoreCase = True

regex.Global = True

ClsTempLoseStr = regex.Replace(ClsTempLoseStr, "")

LoseATag = ClsTempLoseStr

Set regex = Nothing

End Function

自己写的一个51单片机编程器软件(附ISP下载线制作)

admin — Sun, 04 Mar 2007 00:56:03 +0000

用VB编写的一个程序，适合于89SC51，89SC52单片机的程序的ISP方式下载。

ISP下载方式的优点是可以在线编程，直接把程序下载到单片机目标版上，特别适合做实验的朋友，无须频繁地插拔芯片，省时省力。

软件下载地址:http://www.01on.com/51.rar

暂不提供该软件的VB源代码下载，请谅解。

下载线电路

下载线实物

下载线与单片机目标板连接