静林悠松
小水手
UID 1665
精华
0
积分 6
帖子 6
阅读权限 10
注册 2006-1-9
来自 江苏
状态 离线
|
显示鼠标所指菜单的提示文本
"----------------------------------------------标准模块内容
Public OldWindowProc As Long
" 保存默认的窗口函数的地址
Public Const GWL_WNDPROC As Long = -4
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function GetMenu Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32.dll" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Public OB As Object
"-----------------------------------------------------------------
Public Function MenuInfo(ByVal hwnd As Long, ByVal Msg As Long, ByVal wp As Long, ByVal lp As Long) As Long
MenuInfo = CallWindowProc(OldWindowProc, hwnd, Msg, wp, lp)
If Msg <> 287 Then Exit Function
Select Case wp
Case -2139095038 "第一个菜单的第一个子菜单
OB.Caption = "自定义字符1"
Case -2139095037 "增加了1
OB.Caption = "自定义字符2"
Case -2139095035 "第二个菜单的第一个子菜单
OB.Caption = "自定义字符3"
Case -2139095034
OB.Caption = "自定义字符4"
End Select
End Function
"-----------------------------------------------窗体代码
Private Sub Form_Load()
Set OB = info "info为窗体上一个label控件,如果想把提示字符显示在其他控件可自行修改
OldWindowProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)
Call SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf MenuInfo)
End Sub
如果还有问题请与我交流 Q 492610586
|
|
