popup menu

[13GHOST]

Как в меню, созданное при помощи menu editor, програмно добавить подпункт меню? Заранее спасибо за ответ...

[Gotha]

Форма:

Код: Выделить всё

Option Explicit

Private Sub Form_Load()
   Dim mnuString As MENUITEMINFO
   Dim mnuSeparator As MENUITEMINFO
   
       mnuString.cbSize = Len(mnuString)
       mnuString.fMask = MIIM_STRING Or MIIM_ID
       mnuString.fType = MFT_STRING
       mnuString.dwTypeData = "&About"
       mnuString.wID = UDC_ABOUTMNU
       
       InsertMenuItem GetMenu(Me.hwnd), GetMenuItemCount(GetMenu(Me.hwnd)) + 1, True, mnuString
       ChangeWindowProc
End Sub


Модуль:

Код: Выделить всё

Option Explicit

   Public Declare Function GetMenu Lib "user32.dll" (ByVal hwnd As Long) As Long
   Public Declare Function GetSystemMenu Lib "user32.dll" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
   Public Declare Function InsertMenuItem Lib "user32.dll" Alias "InsertMenuItemA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Boolean, ByRef lpcMenuItemInfo As MENUITEMINFO) As Long
   Public Declare Function GetMenuItemCount Lib "user32.dll" (ByVal hMenu As Long) As Long
   
   Public Type MENUITEMINFO
       cbSize As Long
       fMask As Long
       fType As Long
       fState As Long
       wID As Long
       hSubMenu As Long
       hbmpChecked As Long
       hbmpUnchecked As Long
       dwItemData As Long
       dwTypeData As String
       cch As Long
   End Type
   
   Public Const MF_STRING As Long = &H0&
   Public Const MIIM_ID As Long = &H2
   Public Const MIIM_STRING As Long = &H40
   Public Const MFT_SEPARATOR = &H800
   Public Const MFT_STRING = &H0

   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
   Public 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
   
   Public Const GWL_WNDPROC = (-4)
   
   Public Const UDC_ABOUTMNU As Long = 1

   Global OldWndProc As Long

Public Sub ChangeWindowProc()
   OldWndProc = SetWindowLong(Form1.hwnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub

Function WindowProc(ByVal hw As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   Debug.Print msg
   WindowProc = CallWindowProc(OldWndProc, hw, msg, wParam, lParam)
End Function


[13GHOST]

Этот код добавляет пункт меню, а как добавить подпункт, например в пункт файл нужно еще засунуть несколько подпунктов...

[Viper]

Для этого стоит воспользоваться функцией GetSubMenu. Т.е. порядок такой:

1. Получаешь дескриптор меню формы при помощи GetMenu
2. Получаешь дескриптор подменю при помощи GetSubMenu
3. Дальнейшие действия как в примере - функцией InsertMenuItem lдобавляешь нужный пункт в полученное подменю

[13GHOST]

все разобрался... добавить то добавил... а как теперь реализовать событие, когда по этому пункту кликнули?

[Gotha]

сравнивай wParam c UDC_ABOUTMNU, ток вот какой msg ловить, так и не разобралсо (

[13GHOST]

блин а чо все так трудно?? подругому вообще никак??

[Viper]

Надо ловить сообщение WM_COMMAND

З.Ы. А кому щас легко?