-
一个演示VB API高速搜索文件的程序
一个演示VB高速搜索文件程序,基于API来实现,用于快速查找文件,类似的例子在前几年的书籍实例中,有很多,这一个也是从VB的书中整理出来的,代码中有丰富的注释,主要是分享给VB新手参考学习的。
- 2022-10-25 13:25:04下载
- 积分: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
-
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 打印与打印预览功能源码,这个打印预览可以调节预览的放大倍率,在不同的放大状态下预览打印内容,支持打印文字内容和图片的内容,自动调用Windows默认的打印机进行打印,如测试截图所示的效果。
- 2023-05-22 11:35:03下载
- 积分:1
-
VB 6 在DataGrid表格中实现下拉列表框
VB 6.0 在DataGrid表格中实现下拉列表框,大家可以看截图,在如演示效果所示的DataGrid表格中,单击“单位”一列任意行数据,会显示出一个下拉框,供输入者选择单位,扩展了DataGrid的功能,增加了易用性,提升了用户体验。添加这一功能的核心代码为:
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "tb_stock"
Set DataGrid1.DataSource = Adodc1
List1.AddItem ("支")
List1.AddItem ("瓶")
List1.AddItem ("盒")
List1.AddItem ("袋")
DataGrid1.Columns(6).Button = True
仅供参考,本示例是配合数据库实现的,请确保测试时数据库是连接的。
- 2022-07-26 04:39:52下载
- 积分:1
-
VB NET版 五子棋游戏
VB NET版 五子棋(人机对弈),五子棋游戏源码,单击菜单中的开局即可开始游戏,人先走棋,电脑随后,每一步会有提示,游戏功能不算太复杂。源代码部分,主要实现了游戏数据初始化、获取鼠标单击位置值、绘制棋盘网格、定义图形类对象、重绘控件的控制等,可了解一下VB编写棋牌游戏的一些要领。
- 2022-02-03 04:33:28下载
- 积分:1
-
VB 只允许输入特殊字符
VB 只允许输入特殊字符,这只是一个普通的用户查询窗口,字段名称、运算符、关 键 字,然后对其进行查询,因为要向cbofields中添加规范化数据,所在再输入时只能输入“>”、“
- 2022-03-19 10:07:52下载
- 积分:1
-
VB 6.0 过程引用传递参数
VB 6.0 过程引用传递参数,显示传递前和传递后的参数值:
Private Sub mysub(ByRef i As Integer)
i = 100
End Sub
Private Sub Form_Resize()
Dim num As Integer
num = 1
Print "传递前:" & num
Call mysub(num)
Print "传递后:" & num
End Sub
- 2022-02-12 05:00:23下载
- 积分:1
-
磁性窗体 VB简单实现方法举例
VB简单实现磁性窗体,将窗体粘合,子窗体连接的任何窗体都粘合上,获取所有窗体的矩形区域,并重新设置粘合,连接窗体上的矩形。这种窗口多见于一些影音视频播放软件中,比如播放列表快接近播放主窗口时,自动吸附到主窗口上,紧贴主窗口边缘,像是有种磁性一样吸附在一起,本窗口中的三个子窗口,都具有自动吸附的磁性感觉,有兴趣可下载本源码学习测试。
- 2022-01-21 20:24:46下载
- 积分:1
-
一个实现图像旋转效果的VB实例
一个实现图像的旋转效果实例,由VB6.0编写,前几年的源码,本程序实现图片的逆时针旋转90度,单击窗口中的按钮即可实现旋转功能,这部分代码,可参考如下代码:
逆时针旋转90度
Private Sub Command2_Click()
For j = 0 To h Step 1
For i = 0 To w Step 1
BitBlt Picture2.hDC, i, j, 1, 1, Me.Picture1.hDC, j, i, srCopy
Next i
Next j
End Sub
- 2023-07-06 04:55:02下载
- 积分:1