VB 鼠标钩子实例

最新推荐文章于 2020-04-05 22:30:26 发布

chenhui530

最新推荐文章于 2020-04-05 22:30:26 发布

阅读量5.6k

点赞数

CC 4.0 BY-SA版权

分类专栏： VB原创文章标签： vb function user string integer shell

本文链接：https://blog.youkuaiyun.com/chenhui530/article/details/2056745

该VB程序展示了如何设置鼠标钩子，将一个按钮覆盖到“开始”按钮上。当点击此按钮时，会弹出一个响应事件的快捷菜单。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

此程序演示了在VB中怎么使用鼠标钩子。程序会把按钮覆盖到“开始 ”按钮上，当你按这个按钮的时候会显示一个快捷菜单，并且这个菜单可以响应事件。

frmMain.fm

Option Explicit
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Private Type POINTAPI
    X As Long
    Y As Long
End Type
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type