-
VB程序托盘控件+源码实例
VB程序托盘控件+源码实例,VB自定义一个添加程序到Windows托盘图标的控件,编译控件源码后生成Tray.ocx,源码包中附有一个调用本托盘程序的示例,在TrayDEMO文件夹内,在Class1.cls文件中实现了托盘的主要操作:将程序图标添加到系统托盘区,将图标从系统托盘区中删除,设置图标的提示信息,添加图标右键操作等功能。
- 2022-07-07 04:23:33下载
- 积分:1
-
VB 只允许输入特殊字符
VB 只允许输入特殊字符,这只是一个普通的用户查询窗口,字段名称、运算符、关 键 字,然后对其进行查询,因为要向cbofields中添加规范化数据,所在再输入时只能输入“>”、“
- 2022-03-19 10:07:52下载
- 积分:1
-
vb.net 捕获键盘按键和鼠标XY坐标位置
vb捕获键盘按键和鼠标坐标位置,监测鼠标的位置和鼠标按键的名称,如窗体所示,随意移动鼠标,即可适时显示出鼠标坐标,若敲击键盘,则会获取到哪一个键被按下,两个功能的代码写在按钮事件中,获取鼠标XY坐标位置:
Me.Label3.Text = "x=" + e.X.ToString() + " y=" + e.Y.ToString()
获取键盘按下:
Me.Label4.Text = "code=" + e.KeyCode.ToString() + " value=" + e.KeyValue.ToString()
- 2023-06-22 15:00:03下载
- 积分:1
-
VB删除指定路径下的文件夹【目录】
VB6.0 删除指定路径下的文件夹【目录】 ,删除时请输入要删除文件夹的所在路径和名称,单击按钮即可。支持遍历目录删除文件,我觉得这是一个挺好的使用FSO操作的VB范例,对于VB新手学习相关的文件操作有很好的帮助。
- 2022-03-19 05:31:28下载
- 积分:1
-
VB SetWindowRgn创建椭圆形窗口
VB创建一个个性化的椭圆形窗口界面,使用 SetWindowRgn创建椭圆形窗口的例子。个性的窗口形状可增加程序的趣味性,可以使程序更具吸引力。见惯了方方正正的矩形窗体,椭圆形窗体更会使用户眼前一亮。本实例设计一个椭圆形的窗体,运行程序,窗体为椭圆形,单击窗体,即可退出程序。
- 2022-10-27 20:55:03下载
- 积分:1
-
VB 使用鼠标分割窗体的Split实例源码
VB6.0 使用鼠标分割窗体,用鼠标切分主窗体,实现SplitForm,可以用鼠标切分的窗体,在一些流行的应用程序中,经常见到窗体上有二个相邻的列表框,可以用鼠标任意拉动中间分割条,改变列表框的大校
演示窗口其实是一个布满了各种导航菜单的窗口,这也是大家学习的一个亮点哦,作为一个信息管理系统的主界面效果还是相当不错的,分隔窗体在很多时候我们也用得上的。
- 2022-08-08 21:38:42下载
- 积分:1
-
VB.NET 软件在线自动升级功能演示
VB.NET 软件在线自动升级功能演示,含源代码,程序自动更新版本源码中核心文件为UpdatingForm.vb,此文件包括了程序自动升级的主要功能,比如更新显示信息、删除不需要的文件、查找客户端需要更新的文件和需要删除的文件、查找服务器端新增需要下载的文件、版本控制文件为必须下载文件、设置当前下载的文件序数、强制结束进程等。
本程序需要一个存放软件最新版本的服务器或者是网址,程序运行后最先检测该网址下的软件是否是最新,若该网址不存在或出错,程序将不再继续,直接退出,如图所示。
- 2022-07-23 12:00:34下载
- 积分:1
-
VB6.0 WinLock-锁住计算机 沐风视窗锁
VB6.0 WinLock-锁住计算机 实现锁定电脑的功能,沐风视窗锁,程序由沐风工作室开发编写,锁定计算机后,按下回车键后请输入解锁密码才能解锁屏幕,另外这个锁屏程序还可以设置自启动、效验密码等功能。
本程序同时支持卸载,当用户点击 卸载按钮后,即将完成删除,程序将运行卸载程序。
温馨提示:第一次使用,请输入密码。密码设置成功,程序将重新启动。
- 2022-08-12 14:41:19下载
- 积分:1
-
VB6.0使用InPutBox显示密码输入框
VB6.0使用InPutBox显示密码输入框,InPutBox大部分情况下是用于输入数据,与用户交互,但这些数据并不是密码类型的,本实例是展示是使用InPutBox作为密码输入框,其实也是挺简单的:
Private Sub Command1_Click()
On Error GoTo Err_Out
Dim lTemp As Long
Dim sTemp As String
lTemp = SetTimer(Me.hwnd, NV_INPUTBOX, 1, AddressOf TimerProc)
sTemp = InputBox("请输入密码", "密码输入框")
Err_Out: End Sub
- 2023-02-13 07:30:04下载
- 积分: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