-
VB 写的拼图 用数字代表图片
VB 写的拼图 用数字代表图片,将数字的顺序排列好,就完成了拼图,比起图片版的拼图,要简单多了。
玩法:将数字1挪动到最开始的位置,如何移动?要把占位的数字一个一个挪开,依次为1、2、3等数字让位,把整体排序好,就拼好了。
- 2022-07-23 16:53:18下载
- 积分:1
-
VB 只允许输入特殊字符
VB 只允许输入特殊字符,这只是一个普通的用户查询窗口,字段名称、运算符、关 键 字,然后对其进行查询,因为要向cbofields中添加规范化数据,所在再输入时只能输入“>”、“
- 2022-03-19 10:07:52下载
- 积分:1
-
VB 演示创建视图 使用视图保存数据
VB 演示创建视图 以及使用视图保存数据,数据库选择了MSSQL,根据各数据库字段创建视图,并使用这个视图进行数据保存,测试前请确保数据库连接成功。
- 2022-07-17 20:55:23下载
- 积分:1
-
vb6 批量生成证书、房屋等编号
vb6 批量生成证书、房屋等编号,学会了本例子,是个比较实用的技巧,在一些需要批量生成编号的地方,你都可以借鉴本程序,来实现编号生成,在本例中,是批量生成房屋的编号,用户可选择楼层范围、单元范围等参数后,即可快速生成编号。十分方便哦。这个小程序从界面和功能易用上来说,都设计的都好用的。
- 2022-10-19 14:10:03下载
- 积分:1
-
VB 6.0 AscW将汉字转换为Unicode字符代码
本源码演示VB 6.0 如何将汉字转换为Unicode字符代码,在窗口中输入汉字,单击按钮,即可将汉字转换为Unicode字符,其实这个实现起来也比较简单,用VB内置函数AscW即可实现,代码的编写可参考如下:
Private Sub Command1_Click()
Text2.Text = AscW(Text1)
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
- 2022-08-09 07:08:37下载
- 积分:1
-
vb.net 键盘鼠标全局线程钩子
vb.net 键盘鼠标全局线程钩子实例源码,源码中包括了HOOk的源码和Test项目源码,HookCode目录中是HOOk的源代码,TestForm为测试源码。测试时请把hookcode目录中生成的TheHook.dll文件拷贝至TestForm目录的bin目录下,与exe同级,运行效果如下图所示。
- 2022-01-21 21:24:31下载
- 积分:1
-
VB 使用DataGrid显示书名数据表
VB 使用DataGrid显示书名数据表,这个例子相当简单,主要是学习在VB编程中如何使用DataGrid数据网格控件,将数据库内容读取出来,然后绑定到DataGrid表格中显示:
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=book"
Adodc1.RecordSource = "select * from 书名"
Set DataGrid1.DataSource = Adodc1
DataGrid1.Columns(3).NumberFormat = "$0.00"
DataGrid1.Columns(4).NumberFormat = "$0.00"
End Sub
- 2023-04-26 14:25:03下载
- 积分:1
-
VB.NET窗体Tab 读取ini文件 界面滑动等功能集
本源码基于VB.NET编写,集合了VB.NET中的读取ini文件,窗体Tab标签,界面滑动等效果,界面看上去是一个音乐播放器,其实本程序是侧重于界面的编程设计,演示了窗口中TAB标签切换、界面滑动以及整体界面的美化的具体实现,使用了比较多的三方DLL,已经都打包了,感兴趣的下载源码,在VS2012版本以上的VS中打开并编译。
- 2022-01-26 07:32:46下载
- 积分:1
-
VB 生成中文验证码的控件附实例调用源码
VB 生成验证码的控件附实例调用例子,支持中文的验证码控件,内含Demo和验证码控件源码,使用时请添加中文验证码.ocx引用。验证码生成11到13的随机数数字随机数,0到6随机数,0到15随机数,从1到15的随机数,从0到14的随机数等,生成了超多的随机数数组,来生成复杂的中文和数学验证码混合体,请参见例子中的使用方法,运行效果如测试截图所示。
- 2022-12-01 05:10:03下载
- 积分:1
-
VB 6.0 将数组中的数据利用图表分析
VB 6.0 将数组中的数据利用图表分析,也就是用柱状图来显示数组中的数据,所有的操作都是从点击按钮开始的,如下代码:
Private Sub Form_Load()
Dim i
i = Array(1, 2, 3, 4, 5, 6, 7)
Dim j
For j = 0 To UBound(i)
With MSChart1
.RowCount = UBound(i) + 1
.Row = j + 1
.ColumnCount = 1
.Data = i(j)
.RowLabel = i(j)
End With
Next j
End Sub
- 2022-01-25 18:47:19下载
- 积分:1