-
VB 数据库连接通用类
VB 数据库连接通用类，这个数据库连接类支持的版本比较多了，不过有些老了，但是大致的连接原理都一样，支持Access95、Access2000、SQLServer、Dbfiles、Excel等各类存储型数据库的连接方法，并制作成了窗口的形式，以及测试程序，可以打开此数据库测试连接方法。
- 2023-04-15 17:45:04下载
- 积分：1
-
VB.NET 软件在线自动升级功能演示
VB.NET 软件在线自动升级功能演示，含源代码，程序自动更新版本源码中核心文件为UpdatingForm.vb，此文件包括了程序自动升级的主要功能，比如更新显示信息、删除不需要的文件、查找客户端需要更新的文件和需要删除的文件、查找服务器端新增需要下载的文件、版本控制文件为必须下载文件、设置当前下载的文件序数、强制结束进程等。
本程序需要一个存放软件最新版本的服务器或者是网址，程序运行后最先检测该网址下的软件是否是最新，若该网址不存在或出错，程序将不再继续，直接退出，如图所示。
- 2022-07-23 12:00:34下载
- 积分：1
-
VB6.0 获取网络连接信息
VB6.0 获取网络连接信息，在如图所示的窗口中，点击按钮即可获取显示本机的网络连接信息，这些信息包括：
是否通过LAN连接、是否通过Modem连接、是否通过Proxy连接、是否在线连接、是否安装了网络RAS等信息。获取完成最后可提示：“系统通过LAN与Internet连接，系统安装了远程访问服务”。
- 2023-05-26 06:40:02下载
- 积分：1
-
VB演示操作存储过程的方法
VB演示操作带参数和不带参数的存储过程的方法，通过一个数据库查询来体现功能的差别。同时还包括了创建存储过程信息。
我们从打开数据链接开始，演示如何简单创建一个存储过程，下面是核心的几何代码：
con.Open
con.Execute ("Create Procedure book1 @price int As Select * From 书名 where 单价>=@price")
MsgBox "成功创建存储过程"
con.Close
SQL语句是一个查询书名对应价格的例子，仅供参考。
- 2022-01-25 20:38:51下载
- 积分：1
-
VB.NET获取Windows 7操作系统信息
VB.NET获取Windows 7操作系统信息，本程序获取的内容比较多，主要有：显示器分辨率、桌面文件夹路径、收藏夹路径、Application Data""路径"、Windows7当前登录的用户名、当前应用程序的路径、计算机IP和计算机全名、控制面板、辅助选项/常规、系统属性、增加打印机、添加/删除程序、显示安装/卸载、显示Windows 安装、添加/删除程序、Windows7时间/日期、Windows7背景设置、外观设置、键盘/速度属性、设备管理器。
- 2023-06-05 04:30:03下载
- 积分：1
-
VB 生成中文验证码的控件附实例调用源码
VB 生成验证码的控件附实例调用例子，支持中文的验证码控件，内含Demo和验证码控件源码，使用时请添加中文验证码.ocx引用。验证码生成11到13的随机数数字随机数，0到6随机数，0到15随机数，从1到15的随机数，从0到14的随机数等，生成了超多的随机数数组，来生成复杂的中文和数学验证码混合体，请参见例子中的使用方法，运行效果如测试截图所示。
- 2022-12-01 05:10:03下载
- 积分：1
-
VB 石头剪刀布猜拳游戏
VB 石头剪刀布猜拳游戏，游戏操作方法：在窗体左下方的石头、剪子、布图标中，单击用户想要出的一种手势，电脑会自动给出该手势，任一方赢了都会给出相应提示图片信息。游戏结果判定逻辑：
将用户和计算机所选的图片的序号合成一个字符串，根据这个字符串判断用户的输赢
00 石头对石头 重来
01 石头对剪子 用户赢
02 石头对布 用户输
10 剪子对石头 用户输
11 剪子对剪子 重来
12 剪子对布 用户赢
20 布对石头 用户赢
21 布对剪子 用户输
22 布对布 重来
- 2023-07-03 14:45:03下载
- 积分：1
-
VB6.0 如何计算加权平均值
VB6.0 代码演示如何计算加权平均值，计算加权平均值可编写以下代码实现：
Private Sub Command1_Click()
Text7.Text = jiaquan(Text1, Text2, Text3, Text4, Text5, Text6)
End Sub
Private Function jiaquan(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As Integer)
Dim sum As Integer
sum = (a * b + c * d + e * f) / (b + d + f)
sum = Round(sum, 2)
jiaquan = sum
End Function
- 2022-02-25 12:19:27下载
- 积分：1
-
VB6 利用Combo、DTPicker组合框辅助录入数据
VB6.0 利用组合框辅助录入数据，输入框什么的就不多说了，主要学习VB6 中的Combo、DTPicker组合框在录入数据时的用法，方便用户选择数据、选择时间，特别是时间，可固定为指定格式，防止程序出错等。
- 2023-03-15 11:25:03下载
- 积分：1
-
vb 交换两个变量的值
vb 不借助第3个变量实现两个变量互换,交换两个变量的值,在窗口上输入a和b的值，从运行效果截图你可看出这个功能：
If IsNumeric(Txt_a.Text) Then
a = Val(Txt_a.Text)
Else
MsgBox "请输入数字！"
Exit Sub
End If
If IsNumeric(Txt_b.Text) Then
b = Val(Txt_b.Text)
Else
MsgBox "请输入数字！"
Exit Sub
End If
a = a + b
b = a - b
a = a - b
Lbl_Info.Caption = "a的值是:" & a & " b的值是:" & b
- 2023-09-06 03:35:03下载
- 积分：1
