-
VB 记录鼠标行为,判断左键右键
VB 记录鼠标行为,记录用户是单击了鼠标右键或是左键,监控鼠标被单击了哪个键,核心的代码如下:
If GetAsyncKeyState(VK_LBUTTON) = -32767 Then
Text1.Text = Text1.Text + " 鼠标左键 "
ElseIf GetAsyncKeyState(VK_RBUTTON) = -32767 Then
Text1.Text = Text1.Text + " 鼠标右键 "
End If
- 2022-02-28 11:29:47下载
- 积分:1
-
VB.NET 多线程TCP端口扫描工具
VB.NET 多线程TCP端口扫描工具,使用前请输入要扫描的网段IP和端口,本程序可将扫描到的开放端口数量显示在窗口中,扫描时应用了多线程技术,扫描时显示当前线程数,适时显示扫描进度和扫描时间,以毫秒计时,扫描速度提升了不少。
注:本程序仅能扫描开放的端口,被禁止和未开放的端口不能被扫描到。
- 2022-05-25 05:47:04下载
- 积分:1
-
VB 通过菜单控制操作权限并保存至数据库
VB 通过菜单控制操作权限,是一个简单的基于数据库的权限控制小程序。首先使用Checkbox控件提供True/false或者YES/NO选项的特性,将操作权限写到Access数据库中,然后读取数据库的数据,通过数据库字段的值决定该菜单是否可以访问,从而达到通过菜单控制每个操作员操作权限的目的。运行程序,选择“销售业务管理”-“销售数据导入”,弹出没有操作权限的提示框。
- 2022-07-15 02:53:53下载
- 积分:1
-
VB 6.0 在字符串中用一子串替换另一子串
VB 6.0 在字符串中用一子串替换另一子串,采用VB中内置的Replace函数来实现,类似这种的替换字符串方法,在平时使用十分广泛,在WEB编程的ASP/PHP/ASP.NET中,同样使用广泛。本示例中,主要是替换一个字符串中的指定位字符串,将其替换成其它字符。
关于Replace的用法,请看以下代码片段:
Text3.Text = Replace(Text1, Mid(Text1, 2, 2), Text2)
- 2022-01-26 05:32:59下载
- 积分:1
-
VB 使用VsMenu控件创建漂亮菜单
VB 使用VsMenu控件创建漂亮菜单,是一个很不错的VsMenu控件用法演示实例,在窗体上单击右键,可以看到弹出式菜单效果。
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then PopupMenu MDIfrmMain.mnuEdit
End Sub
- 2022-09-24 14:25:02下载
- 积分:1
-
vb禁用窗体最大化、最小化和关闭快捷菜单
vb禁用窗体最大化、最小化和关闭快捷菜单,禁用最大化、最小化不可用,重点实现了禁止关闭窗口的功能,禁止后窗口上的关闭按钮变成灰色不可点击了,在实现方面,核心代码如下:
Private Sub Form_Load()
RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_COLSE, MF_REMOVE//禁止关闭
RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_MAXIMIZE, MF_REMOVE//禁止最大化
RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_MINIMIZE, MF_REMOVE//禁止最小化
End Sub
- 2022-08-06 00:49:36下载
- 积分: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
-
Visual basic vb6.0 制作个人调查表窗体
Visual basic vb6.0 制作个人调查表窗体,这个主要是练习一些VB Form 窗体控件中的元素用法,如果你初学习VB的话,这个例子非常适合你学习。
本例子中主要包括了对VB基本控件元素Check、Option、Text、Label、Button的用法进行了演示,具分享出了具体实现某一功能的代码及设置方法,涉及到光标自动归位、清空文本框、判断用户输入是否正确,断用户选择了哪一项按钮等功能,虽然简单,但对于VB打基础还是挺有帮助的。
- 2022-04-18 16:36:31下载
- 积分:1
-
VB.NET API函数画线条示例
VB.NET API函数示例,使用VB api函数画线条的一个例子,如图所示的效果中,鼠标单击两端,即可画出一条直线,主要是学习使用VB.NET中的API画图函数用法。示例运行效果请参见截图所示,本页提供该实例的源码下载。
- 2022-03-22 10:44:12下载
- 积分:1
-
VB Windows文件操作监视程序
VB Windows操作监视程序,一个 Windows的文件目录操作即时监视程序,可以监视在Explore中的重命名、新建、删除文件或目录;改变文件关联;插入、取出CD和添加删除网络共享都可以被该程序记录下来。源程序来源于国外,注释英文。运行界面效果如图所示。当有文件操作时,在程序运行窗口中会有所提示。
- 2023-06-19 19:00:03下载
- 积分:1