博客展示了一段代码，主要是对Windows API中user32库的多个函数进行声明，如SetMenu、GetMenu等。还定义了POINTAPI类型，在Form_MouseUp和Form_Unload事件中使用这些函数进行菜单操作，包括获取菜单、设置菜单等。
'Code By 魑魅魍魉
'mailto:DemonStudio@hotmail.com
Private Declare Function SetMenu Lib "user32" _
(ByVal hwnd As Long, _
ByVal hMenu As Long) _
As Long
Private Declare Function GetMenu Lib "user32" _
(ByVal hwnd As Long) _
As Long
Private Declare Function DrawMenuBar Lib "user32" _
(ByVal hwnd As Long) _
As Long
Private Declare Function DestroyMenu Lib "user32" _
(ByVal hMenu As Long) _
As Long
Private Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) _
As Long
Private Declare Function WindowFromPoint Lib "user32" _
(ByVal xPoint As Long, _
ByVal yPoint As Long) _
As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim hMenu, mHwnd As Long
Dim Cur As POINTAPI
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
GetCursorPos Cur
mHwnd = WindowFromPoint(Cur.x, Cur.y)
Me.Caption = mHwnd
If mHwnd <> Me.hwnd Then hMenu = GetMenu(mHwnd)
If hMenu <> 0 Then SetMenu Me.hwnd, hMenu
DrawMenuBar Me.hwnd
End Sub
Private Sub Form_Unload(Cancel As Integer)
DestroyMenu hMenu
End Sub
效果如下：
扫一扫
907
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
