-
VB 生成中文验证码的控件附实例调用源码
VB 生成验证码的控件附实例调用例子，支持中文的验证码控件，内含Demo和验证码控件源码，使用时请添加中文验证码.ocx引用。验证码生成11到13的随机数数字随机数，0到6随机数，0到15随机数，从1到15的随机数，从0到14的随机数等，生成了超多的随机数数组，来生成复杂的中文和数学验证码混合体，请参见例子中的使用方法，运行效果如测试截图所示。
- 2022-12-01 05:10:03下载
- 积分：1
-
VB求解数学问题，求两个数最大公约数
VB6.0演示一个求解数学问题，求两个数最大公约数，这是个简单的数学问题，数学基础好，用VB很轻松就编写出本程序了。在运行的窗口中，分别输入两个整数，单击按钮，程序将显示两个数的最大公约数是多少。求解的过程代码描述如下：
If (Val(Text1.Text) = 0 Or Val(Text2.Text) = 0) Or Val(Text1.Text) > 2147483647 Or Val(Text2.Text) > 2147483647 Then
MsgBox "输入的数0或溢出，请重新输入！"
MsgBox "输入的数0或溢出,请重新输入!", vbInformation + vbOKOnly, "数据错误"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
m = Val(Text1.Text)
n = Val(Text2.Text)
If m < n Then
temp = m: m = n: n = temp
End If
Do
r = m Mod n
m = n
n = r
Loop While r 0
Label3.Caption = "两个正整数m和n的最大公约数为: " & m
End If
- 2022-07-16 14:37:29下载
- 积分：1
-
VB 演示创建视图 使用视图保存数据
VB 演示创建视图 以及使用视图保存数据，数据库选择了MSSQL，根据各数据库字段创建视图，并使用这个视图进行数据保存，测试前请确保数据库连接成功。
- 2022-07-17 20:55:23下载
- 积分：1
-
VB.NET 获取全局鼠标坐标范例
VB.NET 获取全局coordinate鼠标坐标，显示窗体内的XY坐标，窗体外凡是显示屏幕的任意位置都可以显示出坐标，获取全局鼠标坐标，测试截图是获取本窗口外的鼠标坐标，请参见截图效果。随着鼠标移动会显示出各个鼠标坐标点的XY坐标信息。单击窗口的“开始”按钮后，将执行以下代码获取全局坐标：
GetCursorPos(p)
tooltip1.SetToolTip(Me, "当前鼠标位置 X=:" & p.x & "Y=:" & p.y)
tooltip1.Active = True
- 2022-11-10 13:15:03下载
- 积分：1
-
VB 6.0 按字段显示数据库所有值
VB 6.0 按字段显示Access数据库所有值，是一个按条件查询数据库的例子，这里的数据库为BOOK2.mdb，核心的代码如下：
Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "ook2.mdb;Persist Security Info=False "
Adodc1.RecordSource = "select * from 作者"
Set DataCombo1.DataSource = Adodc1
DataCombo1.DataField = "城市"
Set DataCombo1.RowSource = Adodc1
DataCombo1.ListField = "姓名"
End Sub
- 2022-09-25 11:45:03下载
- 积分：1
-
VB.NET Try Catch Finally用法演示源码
VB.NET 演示带Finally的Try Catch 异常处理用法演示，这个源码就是捕捉VB.NET运行错误的，结合了最常规的try catch组合，并且使用了Finally处理的情况，那么为什么要使用Finally呢？使用Finally的好处是，把资源释放或状态还原的代码放到finally块中，可以保证在try和catch语句执行完后，一定会执行finally语句块，而不用考虑各种复杂的跳转情况。
- 2023-05-11 05:35:04下载
- 积分：1
-
VB 实现FTP功能的小程序 包括FTP操作类
VB 实现FTP功能的小程序 包括FTP操作类，将诸多功能收集到一块，实现了一个简单的FTP客户端程序，可用来下载和上传一些文件，该程序由busywxp改编，修复了源程序中的一些bug。现在可程序可完成文件编码类型的切换，比如ASCII、二进制的转换，还可选择传输的类型是主动类型或是被动类型，程序窗口基于分隔条进行分割，用于显示不同的功能，你可了解超多的VB网络编程知识和窗口可视化的相关操作。
- 2022-06-30 23:29:33下载
- 积分：1
-
VB 记录鼠标行为，判断左键右键
VB 记录鼠标行为，记录用户是单击了鼠标右键或是左键，监控鼠标被单击了哪个键，核心的代码如下：
If GetAsyncKeyState(VK_LBUTTON) = -32767 Then
Text1.Text = Text1.Text + " 鼠标左键 "
ElseIf GetAsyncKeyState(VK_RBUTTON) = -32767 Then
Text1.Text = Text1.Text + " 鼠标右键 "
End If
- 2022-02-28 11:29:47下载
- 积分：1
-
VB整源码判断字符串中某一字符是否大写
VB编写完整源码判断字符串中某一字符是否大写，执行下面的代码，这个例子简单哦，不多介绍了，直接看代码吧：
If Asc(Mid(Text1, Val(Text2), 1)) >= 65 And Asc(Mid(Text1, Val(Text2), 1)) = 97 And Asc(Mid(Text1, Val(Text2), 1))
- 2022-06-27 09:12:36下载
- 积分：1
-
VB6.0仿迅雷悬浮窗口（图标）的实现源码
VB6.0仿迅雷悬浮窗口（图标）的实现源码，迅雷的悬浮窗相信大家很熟悉了，其实就是显示一个图标，悬浮在屏幕上，通过这个悬浮图标可单击右键调出菜单，双击图标则会显示主窗口，本源码模拟了悬浮窗口的实现，另外是模拟了悬浮窗口双击显示主窗口的功能。代码中注释不多，不过没有使用过多复杂的代码，对VB新手友好。
- 2022-03-24 09:58:35下载
- 积分：1
