-
VB6 利用Combo、DTPicker组合框辅助录入数据
VB6.0 利用组合框辅助录入数据，输入框什么的就不多说了，主要学习VB6 中的Combo、DTPicker组合框在录入数据时的用法，方便用户选择数据、选择时间，特别是时间，可固定为指定格式，防止程序出错等。
- 2023-03-15 11:25:03下载
- 积分：1
-
VB6.0 使用列表播放midi等媒体文件
VB6.0 使用列表播放midi等媒体文件，代码中添加了注释，了解VB如何操作MIDI文件进行播放，核心是调用了msdxm.ocx文件，如果程序不能运行,将本目录中的msdxm.ocx文件拷贝到C:WINDOWSsystem32目录下,然后,在"开始"/"运行"中键入regsvr32 C:WINDOWSsystem32msdxm.ocx, 回车再运行程序即可.
- 2022-03-23 18:50:41下载
- 积分：1
-
股票采集数据源码
用VB编的股票采集数据源码、分享出来希望对大家有用。
- 2022-07-10 11:37:10下载
- 积分：1
-
VB 石头剪刀布猜拳游戏
VB 石头剪刀布猜拳游戏，游戏操作方法：在窗体左下方的石头、剪子、布图标中，单击用户想要出的一种手势，电脑会自动给出该手势，任一方赢了都会给出相应提示图片信息。游戏结果判定逻辑：
将用户和计算机所选的图片的序号合成一个字符串，根据这个字符串判断用户的输赢
00 石头对石头 重来
01 石头对剪子 用户赢
02 石头对布 用户输
10 剪子对石头 用户输
11 剪子对剪子 重来
12 剪子对布 用户赢
20 布对石头 用户赢
21 布对剪子 用户输
22 布对布 重来
- 2023-07-03 14:45:03下载
- 积分：1
-
vb RTrim()去除字符串行尾空格
vb 演示如何去除字符串结尾空格，把输入框中的含有空格的字符串，全部过滤掉空格，这个源码似乎有上结简单了，使用RTrim()，一行代码即可搞定：
Private Sub Command1_Click()
Text2.Text = RTrim(Text1)
End Sub
主要是使用了RTrim()函数，这个函数不只是过滤行尾空格，也会将字符串中间空格过滤掉。
- 2022-10-07 20:30:03下载
- 积分：1
-
VB SetWindowRgn创建椭圆形窗口
VB创建一个个性化的椭圆形窗口界面，使用 SetWindowRgn创建椭圆形窗口的例子。个性的窗口形状可增加程序的趣味性，可以使程序更具吸引力。见惯了方方正正的矩形窗体，椭圆形窗体更会使用户眼前一亮。本实例设计一个椭圆形的窗体，运行程序，窗体为椭圆形，单击窗体，即可退出程序。
- 2022-10-27 20:55:03下载
- 积分：1
-
VB Val与汉字的相互转化
VB 数字与字符串的相互转换（汉字区位码与汉字的相互转化）的例子，主要是使用Val函数来实现转换功能，Val的用法很简单，如Text4.Text = Val(Text3)，将此行代码添加到自定义的按钮事件中即可，当用户单击按钮后，可触发此代码执行区位码转换。实现的功能为：
把数字转换成字符串，把字符串转换成数字。
- 2022-02-10 12:28:52下载
- 积分：1
-
visual studio VB 学生信息管理系统 源码
用visual studio VB语言编写的学生信息管理系统 WINFORM 数据库采用的是ORACLE
- 2022-02-24 12:49:02下载
- 积分：1
-
vb.net 故意引发错误演示全局异常捕获处理
本程序主要是演示vb.net全局错误异常消息的捕获处理，程序运行后故意引发错误，并弹出消息处理框，类似于在VB.NET调试器中显示的错误消息，指出错误原因、错误位置和具体代码，方便程序员对错误及时纠正处理，程序运行效果如图所示。
- 2022-09-01 05:15:03下载
- 积分：1
-
VB 使用ODBC DSN连接SQL Server数据库
VB 6 使用ODBC DSN连接SQL Server数据库，要想运行本实例，首先需要附加SQL数据库，然后配置ODBC，ODBC数据源名称是“RSDAGLXT”。将连接数据库的代码写在一个按钮事件中，当用户单击按钮后，开始使用DSN连接数据库。本示例主要是连接SQLSERVER,因此主代码文件代码比较少。连接后会从数据库中读取出数据，并绑定到MSHFlexGrid控件中显示，运行效果请见截图。主代码：
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open DSN=RSDAGLXT;Uid=sa;Pwd=
rs.Open 人事档案信息表, cn, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
MSHFlexGrid1.ColWidth(0) = 100
- 2022-01-25 22:59:47下载
- 积分：1
