-
VB 通过菜单控制操作权限并保存至数据库
VB 通过菜单控制操作权限，是一个简单的基于数据库的权限控制小程序。首先使用Checkbox控件提供True/false或者YES/NO选项的特性，将操作权限写到Access数据库中，然后读取数据库的数据，通过数据库字段的值决定该菜单是否可以访问，从而达到通过菜单控制每个操作员操作权限的目的。运行程序，选择“销售业务管理”-“销售数据导入”，弹出没有操作权限的提示框。
- 2022-07-15 02:53:53下载
- 积分：1
-
VB程序托盘控件+源码实例
VB程序托盘控件+源码实例，VB自定义一个添加程序到Windows托盘图标的控件，编译控件源码后生成Tray.ocx，源码包中附有一个调用本托盘程序的示例，在TrayDEMO文件夹内，在Class1.cls文件中实现了托盘的主要操作：将程序图标添加到系统托盘区，将图标从系统托盘区中删除，设置图标的提示信息，添加图标右键操作等功能。
- 2022-07-07 04:23:33下载
- 积分：1
-
VB.NET将任意图像文件设置为鼠标形状
VB.NET将任意图像文件设置为鼠标形状，变换光标，光标文件读取，支持自定义光标的图像文件格式为：图像文件（*.jpg;*.gif;*.png;*.bmp）。操作方法挺简单的，点击 按钮选择一个格式合适的光标文件即可，注意查看鼠标光标的变化。
- 2022-05-05 06:26:41下载
- 积分：1
-
VB制作的软件助手动画 使用Microsoft Agent控件完成
VB使用Microsoft Agent控件制作的软件助手动画，软件助手这个相信大家都熟悉吧，最早的Office里面，就有一个大眼睛小助手，不过感觉这个小助手似乎并没有赢得大家的喜爱。本程序就是调用Windows中固有的Agent控件够实现一个简单的小助手，为制作同类程序的VB开发者提供参考。
注：我测试失败了，我的系统是Widows7，当时这个程序是面向Windows XP的。
- 2023-01-24 11:35:03下载
- 积分：1
-
VB让窗口标题栏闪烁效果源码
VB让窗口标题栏闪烁效果源码，不过我测试没有发现标题栏闪烁，咋回事呢？实现的思路是：声明API函数Flashwindow，然后编写下面的代码：
Call FlashWindow(hwnd, 1)
If Me.Caption = "闪烁的标题栏" Then
Me.Caption = "欢迎使用管理软件！ "
Else
Me.Caption = "闪烁的标题栏-www.codesc.net"
End If
- 2022-08-08 08:27:55下载
- 积分：1
-
VB NET写的DVD播放器源代码
播放器窗口界面中的操作菜单，实现了弹出菜单的功能，把控制菜下的各菜单项添加到弹出式菜单ContextMenuStrip1中。
播放器功能支持DVD格式的视频播放，包括了暂停、播放、停止、弹出等功能。
本播放器程序依赖于AxInterop.MSWEBDVDLib.dll、Interop.MSWEBDVDLib.dll。
- 2023-05-18 15:05:03下载
- 积分：1
-
VB 为菜单添加分割线
VB6为菜单制作添加分割线，在菜单项与菜单项之间显示一个分隔线，这个在Windows经典风格的窗口中，十分常见，像一个水平线那样，把菜单分成多个部分，这个水平线带有阴影效果，视觉效果更立体。
本窗口中的菜单，是一个企业综合管理系统的主界面面板，那些菜单都是测试用的，你可以看一下菜单中的分隔线是如何嵌入到菜单中的。
- 2022-09-22 23:30:03下载
- 积分：1
-
VB 数据库连接通用类
VB 数据库连接通用类，这个数据库连接类支持的版本比较多了，不过有些老了，但是大致的连接原理都一样，支持Access95、Access2000、SQLServer、Dbfiles、Excel等各类存储型数据库的连接方法，并制作成了窗口的形式，以及测试程序，可以打开此数据库测试连接方法。
- 2023-04-15 17:45:04下载
- 积分：1
-
VB 6.0 对字符串进行加、减、乘、除计算
VB 6.0 对字符串进行加、减、乘、除计算，如何对字符串进行加、减、乘、除计算呢，本示例演示了这个功能，其实就是数学表达式的计算，运算式中可以有括号，程序将按照运算规则，按照括号优先、乘除优先的原则进行运算，计算出结果并显示在Textbox中，最终运行效果如示例图所示。
- 2022-03-02 02:18:41下载
- 积分：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
