-
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 FileExists判断文件是否存在
VB6 判断文件是否存在，使用VB内置的函数FileExists来实现，可以说实现方法简单，直接调用函数（文件路径）即可，至于返回的结果，这里有两种形式，一种是以MsgBox的方式弹出窗口告之，另一种是返回布尔值，True或False，然后再进行相关处理。关于FileExists用法，有以下代码供参考：
Dim B As Boolean
B = FileExists(Me.Txt_Path.Text)
If B Then
MsgBox "文件存在"
Else
MsgBox "文件不存在"
End If
以上代码段封装在按钮事件中，用户单击按钮后，执行本段代码，判断指定的文件是否存在。
- 2022-07-04 15:21:27下载
- 积分：1
-
VB 写的拼图 用数字代表图片
VB 写的拼图 用数字代表图片，将数字的顺序排列好，就完成了拼图，比起图片版的拼图，要简单多了。
玩法：将数字1挪动到最开始的位置，如何移动？要把占位的数字一个一个挪开，依次为1、2、3等数字让位，把整体排序好，就拼好了。
- 2022-07-23 16:53:18下载
- 积分：1
-
VB 演示创建视图 使用视图保存数据
VB 演示创建视图 以及使用视图保存数据，数据库选择了MSSQL，根据各数据库字段创建视图，并使用这个视图进行数据保存，测试前请确保数据库连接成功。
- 2022-07-17 20:55:23下载
- 积分：1
-
VB.NET 小型家庭理财系统源代码
VB.NET 小型家庭理财记帐系统源代码，功能模块：文件、导入导出、操作、查询、删除、修改、关于软件、经手人、项目、收支类型等的管理。本程序感觉重点在数据库部分的设计 ，里面对帐务明细的查询功能，对于熟悉VB.NET与数据库的各种操作十分有帮助。本财务管理系统的数据库为SQLSERVER，为了确保本程序正常运行，请在运行前附加Database数据库到你的SQLSERVER中，并连接好数据库字符串，需要修改Module1.vb文件。
- 2022-04-10 12:53:23下载
- 积分：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
-
VB为Lable标签着色（填充不同颜色）
VB6.0为Lable标签着色（填充不同颜色），把标签分别填充上不同的颜色，在显示一些统计数据的时候，可清淅的显示出各种数据类型，提升用户浏览体验。
为Lable着色是非常简单的，你可以从本例子中学会用法。
- 2022-02-05 08:55:36下载
- 积分：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
-
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
-
VB6 给窗体添加滚动条
VB6 给窗体添加滚动条，调整水平滚动条的一些属性。当窗体的大小发生变化时发生，垂直滚动条与窗体相对位置不变，滚动条的大小随着窗体大小的改变而改变，命令按钮作水平滚动条与垂直滚动条交接处的填充。
因代码注释较多，详细代码情况请您下载本源码包，自行解压查看。
- 2023-02-22 07:50:04下载
- 积分：1
