-
VB6 设计带记忆的DataGrid数据录入窗口
VB6 设计带记忆的数据录入窗口，这种记忆实际上是将DataGrid临时输入的数据存入到数据库中了，是一个数据库应用范例，本例子中的数据库采用的Access。在本例中，用户临时对任意DataGrid行列操作时输入的内容，临时保存至数据库中，使用时及时读取，模拟中了记忆功能，方便了用户操作，不过未做测试，不知道数据量较大的时候，会不会对数据库造成压力，有心者可以自行测试哦。
- 2023-04-17 21:20:02下载
- 积分：1
-
VB 利用Tag属性存储用户名
VB 利用Tag属性存储用户名
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "用户名或密码不能为空", vbCritical, "信息提示"
Exit Sub
Else
If Text1.Text = "TSoft" And Text2.Text = "111" Then
Me.Tag = Text1.Text
Frm_Main.Show 1
Unload Me
Else
MsgBox "输入的名户名或密码不正确", vbCritical, "信息提示"
End If
End If
- 2022-02-04 07:45:58下载
- 积分：1
-
vb.net 键盘鼠标全局线程钩子
vb.net 键盘鼠标全局线程钩子实例源码，源码中包括了HOOk的源码和Test项目源码，HookCode目录中是HOOk的源代码，TestForm为测试源码。测试时请把hookcode目录中生成的TheHook.dll文件拷贝至TestForm目录的bin目录下，与exe同级，运行效果如下图所示。
- 2022-01-21 21:24:31下载
- 积分：1
-
VB.NET 多线程TCP端口扫描工具
VB.NET 多线程TCP端口扫描工具，使用前请输入要扫描的网段IP和端口，本程序可将扫描到的开放端口数量显示在窗口中，扫描时应用了多线程技术，扫描时显示当前线程数，适时显示扫描进度和扫描时间，以毫秒计时，扫描速度提升了不少。
注：本程序仅能扫描开放的端口，被禁止和未开放的端口不能被扫描到。
- 2022-05-25 05:47:04下载
- 积分：1
-
VB 6.0 AscW将汉字转换为Unicode字符代码
本源码演示VB 6.0 如何将汉字转换为Unicode字符代码，在窗口中输入汉字，单击按钮，即可将汉字转换为Unicode字符，其实这个实现起来也比较简单，用VB内置函数AscW即可实现，代码的编写可参考如下：
Private Sub Command1_Click()
Text2.Text = AscW(Text1)
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
- 2022-08-09 07:08:37下载
- 积分：1
-
VB6.0 Mid判断指定字符串出现的次数
VB6.0 判断指定字符串出现的次数，判断字符串A在字符串B中出现的次数，使用了VB的Mid函数来判断，如图所示的运行效果，单击按钮即可查看运行结果。代码验证判断部分，采用for循环遍历判断，代码如下：
Dim j As Integer
j = 0
For i = 1 To Len(Text1)
If Mid(Text1, i, Len(Text2)) = Text2 Then
j = j + 1
End If
Next i
Label2.Caption = "出现" & j & "次"
- 2022-03-18 12:18:22下载
- 积分：1
-
vb根据用户输入的内容决定显示指定内容
vb根据用户输入的内容决定显示指定内容，从例子来看，是一个数据库搜索的例子，也就是用户搜索的什么，列表中会显示出相关内容。只是说法不同而已，为了可以正常运行，本示例中的数据库采用Access数据库，数据库文件为：db_Client.mdb。
- 2022-08-23 09:42:29下载
- 积分：1
-
VB Val与汉字的相互转化
VB 数字与字符串的相互转换（汉字区位码与汉字的相互转化）的例子，主要是使用Val函数来实现转换功能，Val的用法很简单，如Text4.Text = Val(Text3)，将此行代码添加到自定义的按钮事件中即可，当用户单击按钮后，可触发此代码执行区位码转换。实现的功能为：
把数字转换成字符串，把字符串转换成数字。
- 2022-02-10 12:28:52下载
- 积分：1
-
VB 6.0 过程引用传递参数
VB 6.0 过程引用传递参数，显示传递前和传递后的参数值：
Private Sub mysub(ByRef i As Integer)
i = 100
End Sub
Private Sub Form_Resize()
Dim num As Integer
num = 1
Print "传递前:" & num
Call mysub(num)
Print "传递后:" & num
End Sub
- 2022-02-12 05:00:23下载
- 积分：1
-
VB.NET获取Windows 7操作系统信息
VB.NET获取Windows 7操作系统信息，本程序获取的内容比较多，主要有：显示器分辨率、桌面文件夹路径、收藏夹路径、Application Data""路径"、Windows7当前登录的用户名、当前应用程序的路径、计算机IP和计算机全名、控制面板、辅助选项/常规、系统属性、增加打印机、添加/删除程序、显示安装/卸载、显示Windows 安装、添加/删除程序、Windows7时间/日期、Windows7背景设置、外观设置、键盘/速度属性、设备管理器。
- 2023-06-05 04:30:03下载
- 积分：1
