-
VB 将小写数字金额格式化为大写金额
VB 将小写数字金额格式化为大写金额，这一个相比其它的金额数字转换，是自动转换，用户输入完小写数字金额后，程序将自动把小写数字变为大写，不过奇怪的是，在代码中并没有发现转换功能写在哪里，看到有数据库，莫非大写字符都存储于数据库吗？本例最终的运行效果如下图所示，用户在金额（大写）处输入小写的数字，可以输入小数点，然后单击其它空白处，程序会自动将小写金额转换成大写状态。
- 2022-07-04 15:26:33下载
- 积分：1
-
VB源码演示如何制作倒计时程序
VB编写的倒计时程序，测试时，请输入目标日期与时间，格式如演示截图中所示，然后按下“倒计时”按钮，即可开始倒计时了，会显示出具体剩余的天数和时、分、秒。程序主要基于CDate函数和DateDiff函数来实现，主要代码如下：
Private Sub Timer1_Timer()
On Error GoTo H
Timer1.Interval = 1000
Dim i As Date
i = CDate(Text1)
Label1.Caption = "距离" & Text1 & "还剩" & DateDiff("d", Now, i) & "天" & CLng(DateDiff("h", Now, i)) Mod 24 & "小时" & CLng(DateDiff("n", Now, i)) Mod 60 & "分" & CLng(DateDiff("s", Now, i)) Mod 60 & " 秒"
Exit Sub
H:
MsgBox "请输入正确的时间"
Timer1.Enabled = False
End Sub
- 2022-03-13 16:12:01下载
- 积分：1
-
VisualBasic 6.0 获取网页超链接
VisualBasic 6.0 获取网页超链接，VB根据网址打开指定页面，预览网页并获取该页面中所有的超链接，最后会统计出该网页内有多少个链接。
同时本源码还可区分网页中的文本和图片，将剔除图片，在文本中查找超链接个数，主要是针对href进行精准匹配统计出出现的次数，运行效果如下图所示。
具体源代码请下载本源码查看。
- 2022-10-27 08:40:03下载
- 积分：1
-
国外的VB版跳棋游戏源码
一款国外的VB版跳棋游戏源码,源代码中同样包括了很多注释，不过注释都是英文。这款跳棋感觉和国内的不一样，走棋方法不同，试着玩了，按照国内的走棋方法，棋子并不走动，不知道如何玩。但是源代码在VB6.0下可顺利编译成功，有兴趣的可下载源代码参考学习。运行效果如下图所示。
- 2022-04-21 21:15:12下载
- 积分：1
-
VB 写的拼图 用数字代表图片
VB 写的拼图 用数字代表图片，将数字的顺序排列好，就完成了拼图，比起图片版的拼图，要简单多了。
玩法：将数字1挪动到最开始的位置，如何移动？要把占位的数字一个一个挪开，依次为1、2、3等数字让位，把整体排序好，就拼好了。
- 2022-07-23 16:53:18下载
- 积分：1
-
VB在数据库端禁止录入重复数据
VB在数据库端禁止录入重复数据，对插入的数据进行判断，在写入数据库时进行判断是否已经存在于数据库中，判断是基于数据库的，数据库采用的是Access，在数据库端进行重复数据判断：
rs1.Open "select * from 客户类别表 where 客户类别= + Text1(0) + _
", Cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 And Text1(0) DataGrid1.Columns(0) Then
MsgBox "此记录已存在！", , "提示窗口"
Else
Cnn.Execute ("update 客户类别表 set 客户类别 = + Text1(0) + ,备注= + Text1(1) + _
,修改日期= + Str(Date) + where 客户类别= + DataGrid1.Columns(0) + ")
Adodc1.Refresh
tlbState Toolbar1, False
Text1(0).Locked = True: Text1(1).Locked = True
End If
- 2022-08-14 15:01:13下载
- 积分：1
-
VB6.0 添加、修改、删除数据库指定表
VB6.0 添加、修改、删除数据库指定表，添加、修改、删除作者表，VB6.0 添加、修改、删除数据库指定表。
- 2022-08-15 01:24:59下载
- 积分：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.net 故意引发错误演示全局异常捕获处理
本程序主要是演示vb.net全局错误异常消息的捕获处理，程序运行后故意引发错误，并弹出消息处理框，类似于在VB.NET调试器中显示的错误消息，指出错误原因、错误位置和具体代码，方便程序员对错误及时纠正处理，程序运行效果如图所示。
- 2022-09-01 05:15:03下载
- 积分：1
-
VB 6.0 在字符串中用一子串替换另一子串
VB 6.0 在字符串中用一子串替换另一子串，采用VB中内置的Replace函数来实现，类似这种的替换字符串方法，在平时使用十分广泛，在WEB编程的ASP/PHP/ASP.NET中，同样使用广泛。本示例中，主要是替换一个字符串中的指定位字符串，将其替换成其它字符。
关于Replace的用法，请看以下代码片段：
Text3.Text = Replace(Text1, Mid(Text1, 2, 2), Text2)
- 2022-01-26 05:32:59下载
- 积分：1
