-
vb利用数据窗口辅助录入数据
vb利用数据窗口辅助录入数据，也就是本程序窗口中，生成了一些数据辅助窗口，可对用户的录入工作提供一些帮助，其实就是一些供用户选择的组件之类的，用户了用户，又提升了数据录入的准确性，在VB6.0中，本源码可顺利编译成功，运行后如示例图所示。
- 2023-07-26 19:20:03下载
- 积分：1
-
VB 将小写数字金额格式化为大写金额
VB 将小写数字金额格式化为大写金额，这一个相比其它的金额数字转换，是自动转换，用户输入完小写数字金额后，程序将自动把小写数字变为大写，不过奇怪的是，在代码中并没有发现转换功能写在哪里，看到有数据库，莫非大写字符都存储于数据库吗？本例最终的运行效果如下图所示，用户在金额（大写）处输入小写的数字，可以输入小数点，然后单击其它空白处，程序会自动将小写金额转换成大写状态。
- 2022-07-04 15:26:33下载
- 积分：1
-
vb.net读取Access数据库数据并生成适时曲线
vb.net绘制生成曲线，数据从access数据库中读取，然后将数据进行简要处理后，传送给曲线生成函数，生成适时的数据曲线。
请注意：vb.net里PICTURE只支持像素，长度比较大，需要乘除定义精确值，8当余数为1,则刚好够总长度,否则需要判断长度，计算出坐标,画图，如果要设置数值或日期的显示格可以设置Format属性，例如： .Format = "￥0.00"。
- 2022-03-21 23:38:41下载
- 积分：1
-
VB6.0检查是否有拨号连接
VB6.0检查你的电脑是否有拨号连接，获取本机的网络连接列表，重点是检测是否有拨号网络连接。
- 2022-07-25 20:56:18下载
- 积分：1
-
VB6.0 添加、修改、删除数据库指定表
VB6.0 添加、修改、删除数据库指定表，添加、修改、删除作者表，VB6.0 添加、修改、删除数据库指定表。
- 2022-08-15 01:24:59下载
- 积分：1
-
vb Right函数获得字符串中指定后几位字符
vb获得字符串中指定后几位字符，这里使用vb Right函数一行代码即可搞定，运行代码如示例图所示，在最左侧文字框中输入任意字符串，程序预设的是获取最右侧的2位字符，单击按钮后即可获取到最左侧字符串的最右边2位字符，并显示在Text文本框中，单击按钮后，其实是执行了以下代码：
Private Sub Command1_Click()
Text2.Text = Right(Text1, 2)
End Sub
- 2023-07-18 19:50:02下载
- 积分：1
-
VB 调用API函数设计关于窗体
VB 调用API函数设计关于窗体，看第一眼，我还以为是调用Windows系统的关于窗口，仔细看，定义了自己的信息，这个例子可看作是VB使用API函数的例子，了解一些用法，关于本例子中的API用法，可看以下代码：
API函数声明：
Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
Private Sub Form_Load()
Call ShellAbout(hWnd, "源码素材网", " 欢迎访问网站:http://www.codesc.net！", Me.Icon)
调用了ShellAbout显示信息，更多内容请下载源码。
- 2022-01-25 16:50:26下载
- 积分：1
-
VB 删除指定类型文件
VB 删除指定类型文件，用户选择电脑中指定路径下的文件类型后，可删除该目录下所有此类型的文件。
- 2022-10-25 21:50:02下载
- 积分：1
-
VB6.0 使用ADO对象访问数据库
VB6.0 使用ADO对象访问数据库，这个例子其实很简单，就是基本的VB连接数据库、读取数据库内容，然后浏览一条一条的数据，最后关闭数据库，面向VB编程开发新手，有兴趣下载整个源码，在代码中都有详细的注释，因此很适合学习一些数据库操作的基础知识，源码运行截图如下：
- 2022-08-22 22:55:07下载
- 积分：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
