-
VB6.0 顺序文件写操作的操作演示
VB6.0 顺序文件写操作的操作演示，三种方法写数据，包括了完整的源码项目下载，是学习VB文件读写操作的好范例。
这三种方法是：
把文件的内容一次性的写入
把字符一个一个写入
依次写入顺序文件
- 2022-01-26 17:24:14下载
- 积分：1
-
vb.net复制、移动删除及获取文件的各种属性
vb.net获取TXT文件的各种属性参数，除了复制、移动文件、删除文件外，还可获取到文件的各种属性参数，不过只是针对TXT文本文件，可以获取到以下的参数：文 件 名 、路 径 、文件大小 、创建文件时间、最近访问时间、最近写入时间、是否隐藏文件、是否只读文件、是否系统文件 、是否脱机文件等 。
- 2022-01-26 07:50:33下载
- 积分：1
-
VB6.0 添加、修改、删除数据库指定表
VB6.0 添加、修改、删除数据库指定表，添加、修改、删除作者表，VB6.0 添加、修改、删除数据库指定表。
- 2022-08-15 01:24:59下载
- 积分：1
-
VB制作的软件助手动画 使用Microsoft Agent控件完成
VB使用Microsoft Agent控件制作的软件助手动画，软件助手这个相信大家都熟悉吧，最早的Office里面，就有一个大眼睛小助手，不过感觉这个小助手似乎并没有赢得大家的喜爱。本程序就是调用Windows中固有的Agent控件够实现一个简单的小助手，为制作同类程序的VB开发者提供参考。
注：我测试失败了，我的系统是Widows7，当时这个程序是面向Windows XP的。
- 2023-01-24 11:35:03下载
- 积分：1
-
VB NET sqlserver 销售管理系统
VB NET sqlserver 销售管理系统，销售业务，销售发货，销售退货，回款管理，统计报表，基础信息管理、系统设置、备份和恢复数据、货品基本信息管理、业务员管理等。
版权所有(C) 作者个人自由创作室
VB.NET 销售管理系统 V1.0，SQLSERVER2000数据库。
- 2022-03-16 19:52:06下载
- 积分：1
-
VB制作可移动按钮位置的Toolbar工具栏
VB制作可移动按钮位置的工具栏，这个窗口中的Toolbar允许用户自己调整位置，可以拖动至指定位置，记得word中的工具栏就是这样，当你改变默认的工具栏布局时，程序会使用 MsgBox ("您确实要调整工具栏按钮的位置吗？")弹出确认信息。另外，本范例也可看作是一个在VB窗口中制作图标菜单的好范例，如示例图所示的效果。
- 2022-11-01 12:50:03下载
- 积分：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实现调用其他应用程序的菜单
vb演示如何调用其他应用程序菜单的方法，程序演示了在VB程序中，调用 windows记事本程序的菜单，不过测试发现，本程序在Windows 7中失效了，本代码写于2010年的，有些早了，当时可能只考虑了Windows XP，可能需要对以下代码加以修正，才能适用于windows 7/10环境：
hwnd = FindWindow(vbNullString, "无标题 - 记事本菜单")
If hwnd = 0 Then Exit Sub
hMainMenu = GetMenu(hwnd)
hMenu = GetSubMenu(hMainMenu, 0)
MenuID = GetMenuItemID(hMenu, 3)
AppActivate "无标题 - 记事本菜单"
Ret = SendMessage(hwnd, WM_COMMAND, MenuID, 0&)
- 2022-06-26 16:44:01下载
- 积分：1
-
VB6.0 如何计算加权平均值
VB6.0 代码演示如何计算加权平均值，计算加权平均值可编写以下代码实现：
Private Sub Command1_Click()
Text7.Text = jiaquan(Text1, Text2, Text3, Text4, Text5, Text6)
End Sub
Private Function jiaquan(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As Integer)
Dim sum As Integer
sum = (a * b + c * d + e * f) / (b + d + f)
sum = Round(sum, 2)
jiaquan = sum
End Function
- 2022-02-25 12:19:27下载
- 积分：1
-
VB输入限制：只允许输入汉字
VB输入限制功能一例：只允许输入汉字，本实例只允许用户输入汉字，如果输入其它类型的字符，程序将不允许输入，且会提醒用户。原理是获取键盘上的ASCII值，并判断是否在中文汉字的范围，若不在，就禁止输入。实现本功能的关键代码，分享给大家：
If KeyAscii > 0 And KeyAscii 13 And KeyAscii 8 Then
KeyAscii = 0
MsgBox "只允许输入汉字！", 48, "提示"
End If
因为是对键盘的控制实现对输入的限制，因此若鼠标复制了一段包含其它字符的文字，则程序无能为力，因为鼠标不在监控范围。
- 2023-02-18 18:05:03下载
- 积分：1
