-
VB6.0 使用ADO对象访问数据库
VB6.0 使用ADO对象访问数据库，这个例子其实很简单，就是基本的VB连接数据库、读取数据库内容，然后浏览一条一条的数据，最后关闭数据库，面向VB编程开发新手，有兴趣下载整个源码，在代码中都有详细的注释，因此很适合学习一些数据库操作的基础知识，源码运行截图如下：
- 2022-08-22 22:55:07下载
- 积分：1
-
VB NET sqlserver 销售管理系统
VB NET sqlserver 销售管理系统，销售业务，销售发货，销售退货，回款管理，统计报表，基础信息管理、系统设置、备份和恢复数据、货品基本信息管理、业务员管理等。
版权所有(C) 作者个人自由创作室
VB.NET 销售管理系统 V1.0，SQLSERVER2000数据库。
- 2022-03-16 19:52:06下载
- 积分：1
-
VB6.0 屏幕滚动字幕（文字滚动）
VB6 屏幕滚动字幕，这个文字滚动区域被控制在屏幕的右下角，由右向左开始滚动，中间的高度可以调节，通过调节Me.Top = Screen.Height - Me.Height - 800参数，来改变文字滚动区域距离屏幕顶部的距离，文字滚动的实现是基于计时器和循环来实现，下面的代码可为你提供本效果的实现思路：
Label1.Caption = "这里定义需要滚动的文字内容： 用VB制作的文字滚动效果！"
Me.Left = Screen.Width
Me.Top = Screen.Height - Me.Height - 800
BeginPath Me.hWnd
SetBkMode Me.hWnd, TRANSPARENT
EndPath Me.hWnd
rgn = PathToRegion(Me.hWnd)
SetWindowRgn Me.hWnd, rgn, True
Timer1.Interval = 200
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Me.Left = Me.Left - 100
If Me.Left < Label1.Width * (-1) Then
Timer1.Enabled = False
Me.Left = Screen.Width
Timer1.Enabled = True
End If
End Sub
- 2022-05-21 14:58:30下载
- 积分：1
-
VB 将小写数字金额格式化为大写金额
VB 将小写数字金额格式化为大写金额，这一个相比其它的金额数字转换，是自动转换，用户输入完小写数字金额后，程序将自动把小写数字变为大写，不过奇怪的是，在代码中并没有发现转换功能写在哪里，看到有数据库，莫非大写字符都存储于数据库吗？本例最终的运行效果如下图所示，用户在金额（大写）处输入小写的数字，可以输入小数点，然后单击其它空白处，程序会自动将小写金额转换成大写状态。
- 2022-07-04 15:26:33下载
- 积分：1
-
VB 只允许输入特殊字符
VB 只允许输入特殊字符，这只是一个普通的用户查询窗口，字段名称、运算符、关 键 字，然后对其进行查询，因为要向cbofields中添加规范化数据，所在再输入时只能输入“>”、“
- 2022-03-19 10:07:52下载
- 积分：1
-
VB 类似超级兔子的程序界面
VB 类似超级兔子的程序界面，这只是一个应用程序的界面效果，不包括界面菜单中的功能，因此对界面UI的美化可以参考。这个界面是使用BMP贴图的方式实现，整个窗口就是一张图片，但是经过了处理，添加了菜单，其实挺简单的，当时用在一个手机维修管理系统中了，现在发上来，不知道对大家是否有用？
- 2022-02-07 20:21:01下载
- 积分：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 SetWindowLong限制调整窗口大小的最大值
VB 限制调整窗口大小的最大值，我们根据SetWindowLong函数的说明 ，可写出一个函数，当用户拖动窗口时，控制窗口最大能拖动到什么大小，当达到最大值时，窗口就不能继续被拖大，我们定义一个函数，在打开这个VB窗口时自动加载函数，实现对窗口最大拖动大小的控制：
Private Sub Form_Load()
Dim ret As Long
preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
ret = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf wndproc)
End Sub
- 2022-10-14 18:50:03下载
- 积分：1
-
VB6.0 改变扩展名保护Access数据库
VB6.0 改变扩展名保护Access数据库，也就是让用户修改Access数据库的扩展名，之前可能禁止改变，但本代码介绍的方法允许修改扩展名，以下是本例子核心功能部分的完整源码，仅供参考：
Private Sub Form_Load()
Dim cnnstr As String
cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "db_wjgl.bak;Persist Security Info=False"
cn.Open cnnstr
Adodc1.ConnectionString = cnnstr
Set Picture1.DataSource = Adodc1
Picture1.DataField = "文件"
End Sub
Private Sub Form_Unload(Cancel As Integer)
cn.Close
End Sub
- 2022-05-16 07:33:58下载
- 积分：1
-
vb.net读取Access数据库数据并生成适时曲线
vb.net绘制生成曲线，数据从access数据库中读取，然后将数据进行简要处理后，传送给曲线生成函数，生成适时的数据曲线。
请注意：vb.net里PICTURE只支持像素，长度比较大，需要乘除定义精确值，8当余数为1,则刚好够总长度,否则需要判断长度，计算出坐标,画图，如果要设置数值或日期的显示格可以设置Format属性，例如： .Format = "￥0.00"。
- 2022-03-21 23:38:41下载
- 积分：1
