-
VB 6.0将时、分、秒转换为时间
VB 6.0将时、分、秒转换为时间，就是把输入文本框中的内容，重新组合，并添加连接符，形成人们视觉习惯上的时间格式。
其实实现这个功能，不两行代码就可实现了：
Private Sub Command2_Click()
t = TimeSerial(Text1, Text2, Text3)
Label4.Caption = "时间为：" & t
End Sub
- 2022-08-15 03:56:46下载
- 积分：1
-
vb 将数字格式化为金额
vb 将数字格式化为金额，这个更像是一个自动计算程序，根据用户输入的单位、数量、价格等参数，自动计算出金额，这才是程序要表达的功能，相差代码：
Private Sub Text1_LostFocus(Index As Integer)
Text1(Index).BackColor = &H80000005
If Index = 3 Then Text1(3) = Format(Text1(3), "0.00")
End Sub
- 2023-01-25 23:50:04下载
- 积分：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输入限制：只允许输入汉字
VB输入限制功能一例：只允许输入汉字，本实例只允许用户输入汉字，如果输入其它类型的字符，程序将不允许输入，且会提醒用户。原理是获取键盘上的ASCII值，并判断是否在中文汉字的范围，若不在，就禁止输入。实现本功能的关键代码，分享给大家：
If KeyAscii > 0 And KeyAscii 13 And KeyAscii 8 Then
KeyAscii = 0
MsgBox "只允许输入汉字！", 48, "提示"
End If
因为是对键盘的控制实现对输入的限制，因此若鼠标复制了一段包含其它字符的文字，则程序无能为力，因为鼠标不在监控范围。
- 2023-02-18 18:05:03下载
- 积分：1
-
VB 只允许输入特殊字符
VB 只允许输入特殊字符，这只是一个普通的用户查询窗口，字段名称、运算符、关 键 字，然后对其进行查询，因为要向cbofields中添加规范化数据，所在再输入时只能输入“>”、“
- 2022-03-19 10:07:52下载
- 积分：1
-
vb.net 读取INI文件示例
vb.net vs2008读取INI文件示例，ini文件名为 Send.ini，代码中包括了一个读ini API函数。
Ini文件说明：
[节名] []中的节名对应此API的第一参数
Name=内容 Name对应此API的第二参数
API的第三参数是没有取到匹配内容时返回的字符串;
API的第四参数是要返回的字符串;
API的第五参数是字符串缓冲的长度，一般255;
API的第六参数是INI文件的路径。
- 2022-02-20 08:44:55下载
- 积分：1
-
VB 以TextStream流的方式打开文本文件
VB 以流的方式打开文本文件，创建FileSystemObject MyFSO对象，创建TextStream对象，然后使用对象GetFile文件，最后使用对象OpenAsTextStream读取流文件，具体用法，可参见以下代码：
Private Sub Form_Load()
Dim MyFSO As New FileSystemObject
Dim MyFile As File
Dim MyTS As TextStream
Set MyFile = MyFSO.GetFile(App.Path & "MyFile.txt")
Set MyTS = MyFile.OpenAsTextStream(ForReading)
Text1.Text = MyTS.ReadAll
MyTS.Close
End Sub
完整的可编译实例，请下载源码包。
- 2022-06-14 22:18:23下载
- 积分：1
-
VB6.0 添加、修改、删除数据库指定表
VB6.0 添加、修改、删除数据库指定表，添加、修改、删除作者表，VB6.0 添加、修改、删除数据库指定表。
- 2022-08-15 01:24:59下载
- 积分：1
-
vb 6.0 排队叫号系统
vb 排队叫号系统源代码，Cobeyond排队系统，程序分为了中心控制端、CyMobile管理系统、系统通讯端口设置、系统数据库设置、最大终端客户数设置、检查服务器名和端口号等众多子程序。本排队叫号系统可广泛应用于银行大厅排队叫号、便民服务大厅排队叫号等公共服务场所，系统涉及硬件、数据库及网络各方面的编程知识，是一套比较综合的VB管理系统。其中服务人员子程序打开后的界面如截图所示，源码包中还包括了排队叫号系统设计的流程图、网络拓扑结构图等编程资料，请下载源码包查看详情。
- 2022-02-21 04:44:48下载
- 积分：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
