[vb] load new menu inclusief submenu's

[DukeMan]

Vraagje:

Ik hem in een menu een menuitem met daarbij een aantal submenu items.
Nu doe ik in runtime een load menuitem(teller).
Tevens doe ik load submenuitem(teller).
Graag zou ik dan willen dat die submenuitems ook extra geload worden binnen die nieuwe menuitem, maar ze komen dus bij de oude, waar ze al inzaten...

Hoe kan ik dat oplossen???
voorbeeld:

code:

Menu1
  Menuitem (0)
    submenuitem1 (0)
    submenuitem2 (0)
    submenuitem3 (0)

als ik nu die loads doe krijg ik dit:

code:

Menu1
  Menuitem (0)
    submenuitem1 (0)
    submenuitem2 (0)
    submenuitem3 (0)
    submenuitem1 (1)
    submenuitem2 (1)
    submenuitem3 (1)
  Menuitem (1)

Graag wil ik die submenuitem1-3(1) onder menuitem(1).

Hoe kan ik dit doen, want met .parent = menuitem(1) krijg ik een foutmelding (die is read-only)...

[DukeMan]

weet niemand hoe ik dit kan oplossen???

[DukeMan]

is er dan helemaal niemand die mij dit kan vertellen?? Ik kan er ook niet iets van vinden via google...

[ParaNoiMia]

Uit de FAQ:

Ik krijg niet snel antwoord dus mag ik schoppen?

Wacht minstens 6 uur voor je je topic omhoog schopt. Doe dit dan ook alleen met een zinnige opmerking en dus niet met "Waarom antwoord er nou niemand" nadat je 5 minuten geen antwoord hebt gehad. Sommigen van ons hebben een leven

[DukeMan]

Het is blijkbaar zeer moeilijk om te doen, maar is dit niet te regelen via eenn API call of zo iets???

[Verwijderd]

al op msdn gekeken???

[robjanssen]

Wil je ze perse runtime kunnen laden?

Anders kun je ze ook vantevoren maken met de menu designer en ze pas in de applicatie visible maken.

[Verwijderd]

kijk eens op www.pscode.com ik heb daar ooit eens een module gedownload waarmee het heel makkelijk is.

Als je hem niet kan vinden, wil ik hem ook wel ff mailen... hij is helaas te groot om hier integraal te posten...

[DukeMan]

Ik wil het inderdaad runtime doen omdat een gebruiker van het programma onderdelen kan aanmaken, welke dan weer in het menu tevoorschijn moeten komen. Elk van deze onderdelen hebben een (groot) aantal verschillende eigenschappen die ik elk via een eigen submenu toegankelijk wil maken.

Ik zal ook eens kijken op pscode.com...

[DukeMan]

Op zaterdag 25 mei 2002 09:29 schreef KoenM het volgende:
kijk eens op www.pscode.com ik heb daar ooit eens een module gedownload waarmee het heel makkelijk is.

Als je hem niet kan vinden, wil ik hem ook wel ff mailen... hij is helaas te groot om hier integraal te posten...

Ik heb even gezocht, maar kan zo snel niets vinden, zou je hem kunnen mailen ???

Thanx

[Verwijderd]

Whatever, ik post het toch maar ff, mischien heeft later iemand er nog wat aan .

Mocht een (light)mod dit te lang vinden, dan mail ik alsnog.

Hoe je vast ;):

code:

'------------------------------------------------------------------
'   Name:        modCBMenuHelpers (MODCBMENUHELPERS.BAS)
'   Type:        Utility API wrapper module.
'   Description:    Contains commonly-used 'macros' and calls to facilitate
'            working with API-created menus. If you want a more object-
'            oriented way of doing menus, grab the CPopupMenu class and
'            sample(s) from the VBBox
'
'   Author:    Klaus H. Probst [[e-mail]]
'   URL:        http://www.vbbox.com/
'   Copyright:  This work is copyrighted © 1999, Klaus H. Probst
'   Usage:      You may use this code as you see fit, provided that you assume all
'            responsibilities for doing so.
'   Distribution:   If you intend to distribute the file(s) that make up this sample to
'            any WWW site, online service, electronic bulletin board system (BBS),
'            CD or any other electronic or physical media, you must notify me in
'            advance to obtain my express permission.
'
'   Notes:
'
'    The module makes use of the "new" menu APIs (introduced with Win32). These
'    are the ones that take a MENUITEMINFO structure as a parameter, and supercede
'    most of the older menu APIs. The declaration for the other ones are included,
'    though, but not really used except for RemoveMenu() and DeleteMenu().
'    The "new" way to append a submenu to an existing popup menu is to create
'    a simple string item and then set it to MF_SUBMENU, which is what the
'    mnuSimpleItemToSubmenu() function does. In the old days, you would use
'    AppendMenu() or InsertMenu() to do this. It's a bit confusing at first, but
'    you get used to it <g>
'    The mnuPopMenu() function does not use the RECT exclusion facilities in
'    TrackPopupMenuEx(). If you need those, you can add them fairly easily.
'    The mnuAddBreak() function has not been tested at all.
'
'   Platform:
'
'    Any version of 32-bit Windows.
'    If you encounter any problems I'd like to hear about it. My e-mail address is above.
'
'   Dependencies:
'
'    (struct)     RECT, POINTAPI
'    (API)       GetCursorPos
'
'------------------------------------------------------------------------------------------------------
Option Explicit
DefLng A-Z

Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Type POINTAPI
    x As Long
    y As Long
End Type

Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
'Bepaal wie de 'eigenaar' is van het clipboard
Declare Function GetClipboardOwner Lib "user32" () As Long

'// Used by TrackPopupMenuEx()
Type TPMPARAMS
    cbSize As Long
    rcExclude As RECT
End Type

'// Used by the "new" menu APIs
Type MENUITEMINFO
    cbSize As Long
    fMask As Long
    fType As Long          '// used if MIIM_TYPE
    fState As Long        '// used if MIIM_STATE
    lngID As Long          '// used if MIIM_ID
    hSubMenu As Long        '// used if MIIM_SUBMENU
    hbmpChecked As Long    '// used if MIIM_CHECKMARKS
    hbmpUnchecked As Long    '// used if MIIM_CHECKMARKS
    dwItemData As Long      '// used if MIIM_DATA
    dwTypeData As String      '// used if MIIM_TYPE
    cch As Long          '// used if MIIM_TYPE
End Type

'// Menu API declarations
Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Declare Function CreatePopupMenu Lib "user32" () As Long
Declare Function DestroyMenu Lib "user32" (ByVal hMenu As Long) As Long
Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Declare Function TrackPopupMenuEx Lib "user32" (ByVal hMenu As Long, ByVal un As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal hwnd As Long, lpTPMParams As Any) As Long
Declare Function TrackPopupMenu Lib "user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hwnd As Long, lprc As Any) As Long

'// "New" menu functions
Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal dwID As Long, ByVal fbool As Long, lpMenuItemInfo As MENUITEMINFO) As Long
Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal dwID As Long, ByVal fbool As Long, lpcMenuItemInfo As MENUITEMINFO) As Long
Declare Function InsertMenuItem Lib "user32" Alias "InsertMenuItemA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Long, lpcMenuItemInfo As MENUITEMINFO) As Long
Declare Function CheckMenuRadioItem Lib "user32" (ByVal hMenu As Long, ByVal uFirst As Long, ByVal uLast As Long, ByVal uCheck As Long, ByVal uFlags As Long) As Long

'// TrackPopUpMenu() flags
Public Const TPM_LEFTBUTTON = &H0&
Public Const TPM_RIGHTBUTTON = &H2&
Public Const TPM_LEFTALIGN = &H0&
Public Const TPM_CENTERALIGN = &H4&
Public Const TPM_RIGHTALIGN = &H8&

'// Newer flags for the "Ex" version
Public Const TPM_TOPALIGN = &H0&
Public Const TPM_VCENTERALIGN = &H10&
Public Const TPM_BOTTOMALIGN = &H20&
Public Const TPM_HORIZONTAL = &H0&       '/* Horz alignment matters more */
Public Const TPM_VERTICAL = &H40&         '/* Vert alignment matters more */
Public Const TPM_NONOTIFY = &H80&         '/* Don't send any notification msgs */
Public Const TPM_RETURNCMD = &H100&

'// Menu item styles
Public Const MF_STRING = &H0&
Public Const MF_BITMAP = &H4&
Public Const MF_POPUP = &H10&
Public Const MF_SEPARATOR = &H800&
Public Const MF_USECHECKBITMAPS = &H200&
Public Const MF_OWNERDRAW = &H100&
Public Const MF_MENUBARBREAK = &H20&
Public Const MF_MENUBREAK = &H40&

'// Menu item states
Public Const MF_ENABLED = &H0&
Public Const MF_GRAYED = &H1&
Public Const MF_DISABLED = &H2&
Public Const MF_UNCHECKED = &H0&
Public Const MF_CHECKED = &H8&
Public Const MF_UNHILITE = &H0&
Public Const MF_HILITE = &H80&
Public Const MF_DEFAULT = &H1000
Public Const MF_RIGHTJUSTIFY = &H4000&

'// Menu action flags
Public Const MF_INSERT = &H0&
Public Const MF_CHANGE = &H80&
Public Const MF_APPEND = &H100&
Public Const MF_DELETE = &H200&
Public Const MF_REMOVE = &H1000&
Public Const MF_BYCOMMAND = &H0&
Public Const MF_BYPOSITION = &H400&
    
'// Menu flags
Public Const MF_SYSMENU = &H2000&
Public Const MF_HELP = &H4000&
Public Const MF_MOUSESELECT = &H8000&


'// Values for fMask
Public Const MIIM_STATE = &H1
Public Const MIIM_ID = &H2
Public Const MIIM_SUBMENU = &H4
Public Const MIIM_CHECKMARKS = &H8
Public Const MIIM_TYPE = &H10
Public Const MIIM_DATA = &H20

'// Values for fType
Public Const MFT_STRING = MF_STRING
Public Const MFT_BITMAP = MF_BITMAP
Public Const MFT_MENUBARBREAK = MF_MENUBARBREAK
Public Const MFT_MENUBREAK = MF_MENUBREAK
Public Const MFT_OWNERDRAW = MF_OWNERDRAW
Public Const MFT_RADIOCHECK = &H200&
Public Const MFT_SEPARATOR = MF_SEPARATOR
Public Const MFT_RIGHTORDER = &H2000&
Public Const MFT_RIGHTJUSTIFY = MF_RIGHTJUSTIFY

'// Values for fState
Public Const MFS_GRAYED = &H3&
Public Const MFS_DISABLED = MFS_GRAYED
Public Const MFS_CHECKED = MF_CHECKED
Public Const MFS_HILITE = MF_HILITE
Public Const MFS_ENABLED = MF_ENABLED
Public Const MFS_UNCHECKED = MF_UNCHECKED
Public Const MFS_UNHILITE = MF_UNHILITE
Public Const MFS_DEFAULT = MF_DEFAULT

'
'
'
'
Public Sub mnuCheckRadioGroup(ByVal hMenu As Long, ByVal idItem As Long, ByVal idFirst As Long, ByVal idLast As Long, Optional ByVal uFlags As Long = MF_BYCOMMAND)

Call CheckMenuRadioItem(hMenu, idFirst, idLast, idItem, uFlags)

End Sub


'
'
'
Public Sub mnuHighlightItem(ByVal hMenu As Long, ByVal id As Long)

Dim lpmim As MENUITEMINFO

With lpmim

    .cbSize = Len(lpmim)
    .fMask = MIIM_STATE
    .fState = MFS_HILITE
    
End With

Call SetMenuItemInfo(hMenu, id, False, lpmim)

End Sub


'
'
'
Public Sub mnuAddBreak(ByVal hMenu As Long, Optional ByRef Position As Long = -1)

Dim lpmim As MENUITEMINFO
Dim lngPos As Long
Dim lngID As Long

If Position < 0 Then
    lngPos = GetMenuItemCount(hMenu)
    
Else
    lngPos = Position - 1
    
End If

With lpmim

    .cbSize = Len(lpmim)
    .fMask = MIIM_TYPE
    
    .fType = MFT_MENUBREAK Or MFT_MENUBARBREAK
    
End With

Call InsertMenuItem(hMenu, lngPos, 1, lpmim)

Position = lngPos

End Sub



'
'
'
Public Sub mnuRemoveItemRange(hMenu As Long, ParamArray ItemList() As Variant)

Dim A&

For A& = LBound(ItemList) To UBound(ItemList)

    Call DeleteMenu(hMenu, ItemList(A&), MF_BYCOMMAND)

Next A&

End Sub

'
'
'
Public Sub mnuSetItemDefault(ByVal hMenu As Long, ByVal id As Long, ByVal Default As Boolean)

Dim lpmim As MENUITEMINFO
Dim lngState As Long

If Default = True Then
    lngState = id
    
Else
    lngState = -1
    
End If

With lpmim

    .cbSize = Len(lpmim)
    .fMask = MIIM_STATE
    .fState = MFS_DEFAULT
    
End With

Call SetMenuItemInfo(hMenu, lngState, False, lpmim)

End Sub




'
'
'
Public Sub mnuEnableItem(ByVal hMenu As Long, ByVal id As Long, ByVal Enabled As Boolean)

Dim lpmim As MENUITEMINFO
Dim lngState As Long

If Enabled = True Then
    lngState = MFS_ENABLED
    
Else
    lngState = MFS_GRAYED
    
End If

With lpmim

    .cbSize = Len(lpmim)
    .fMask = MIIM_STATE
    .fState = lngState
    
End With

Call SetMenuItemInfo(hMenu, id, False, lpmim)

End Sub



'
'
'
Public Sub mnuCheckItem(ByVal hMenu As Long, ByVal id As Long, ByVal Checked As Boolean)

Dim lpmim As MENUITEMINFO
Dim lngState As Long

If Checked = True Then
    lngState = MFS_CHECKED
    
Else
    lngState = MFS_UNCHECKED
    
End If

With lpmim

    .cbSize = Len(lpmim)
    .fMask = MIIM_STATE
    .fState = lngState
    
End With

Call SetMenuItemInfo(hMenu, id, False, lpmim)

End Sub


'
'
'
Public Sub mnuAddItem(ByVal hMenu As Long, Optional ByVal id As Long = -1, Optional ByRef Position As Long = -1, Optional ByVal Caption As String = "", Optional ByVal RadioCheck As Boolean = False)

Dim lpmim As MENUITEMINFO
Dim lngPos As Long

If Position < 0 Then
    lngPos = GetMenuItemCount(hMenu)
    
Else
    lngPos = Position
    
End If

With lpmim

    .cbSize = Len(lpmim)
    .fMask = MIIM_TYPE Or MIIM_ID Or MIIM_DATA
    
    If Len(Caption) = 0 Then
      .fType = MFT_SEPARATOR
      id = 0
    
    Else
      .dwTypeData = Caption
      .cch = Len(Caption)
      .fType = MFT_STRING
      If RadioCheck = True Then .fType = MFT_STRING Or MFT_RADIOCHECK
    
    End If
    
    .lngID = id

End With

Call InsertMenuItem(hMenu, lngPos, 1, lpmim)

Position = lngPos

End Sub


'
'
'
Public Sub mnuSetMenuCaption(ByVal hMenu As Long, ByVal id As Long, ByVal Caption As String)

Dim lpmim As MENUITEMINFO

With lpmim

    .cbSize = Len(lpmim)
    .fMask = MIIM_TYPE
    .dwTypeData = Caption
    .cch = Len(Caption)
    .fType = MFT_STRING
    
End With

Call SetMenuItemInfo(hMenu, id, False, lpmim)

End Sub

'
'
'
Public Function mnuPopMenu(hMenu As Long, hwnd As Long, Optional flags As Long = 0, Optional x As Long = -1, Optional y As Long = -1) As Long

Dim lppt As POINTAPI

If x < 0 Or y < 0 Then
    Call GetCursorPos(lppt)
Else
    lppt.x = x
    lppt.y = y
    
End If

mnuPopMenu = TrackPopupMenuEx(hMenu, flags, lppt.x, lppt.y, hwnd, ByVal 0&)

End Function


'
'
'
Public Sub mnuRemoveItem(ByVal hMenu As Long, ByVal id As Long, Optional ByVal Destroy As Boolean = True)

If Destroy = True Then
    Call DeleteMenu(hMenu, id, MF_BYCOMMAND)

Else
    Call RemoveMenu(hMenu, id, MF_BYCOMMAND)
    
End If


End Sub

'
'
'
Public Sub mnuSimpleItemToSubMenu(ByVal hMenu As Long, ByVal hSubMenu As Long, ByVal id As Long)

Dim lpmim As MENUITEMINFO

With lpmim

    .cbSize = Len(lpmim)
    .fMask = MIIM_SUBMENU
    .hSubMenu = hSubMenu
    
End With

Call SetMenuItemInfo(hMenu, id, False, lpmim)

End Sub


'
'
'
Public Function mnuGetSubMenu(ByVal hMenu As Long, ByVal id As Long, Optional ByVal fByPosition As Boolean = True) As Long

Dim lpmim As MENUITEMINFO

With lpmim

    .cbSize = Len(lpmim)
    .fMask = MIIM_SUBMENU
    .lngID = id

End With

Call GetMenuItemInfo(hMenu, id, Abs(fByPosition), lpmim)

mnuGetSubMenu = lpmim.hSubMenu

End Function

[DukeMan]

thanx,

maar hoe moet ik deze precies gebruiken??? En hoe kan ik clicks afvangen?

[DukeMan]

weet iemand hoe ik een menuitem moet aanmaken? Ik probeer van alles maar krijg geen resultaat.

Tevens wil ik graag weten hoe ik kliks op menuitems kan afvangen...

[Verwijderd]

Op maandag 27 mei 2002 12:35 schreef NTGiant het volgende:
weet iemand hoe ik een menuitem moet aanmaken? Ik probeer van alles maar krijg geen resultaat.

Tevens wil ik graag weten hoe ik kliks op menuitems kan afvangen...

Tada:

code:

    nMenu = modMenu.CreatePopupMenu()
    
    Do While Not rstMaps.EOF
      Call modMenu.mnuAddItem(nMenu, rstMaps.Fields("MapId") + 0, , rstMaps.Fields("Name") & "")
      rstMaps.MoveNext
    Loop
    
    nResult = modMenu.mnuPopMenu(nMenu, Form1.hwnd, TPM_RETURNCMD)
    
    Call modMenu.DestroyMenu(nMenu)
    End If
  
    If nResult <> 0 Then
    'De gebruiker heeft het item met tag nResult aangeklikt
    DoeIetsMet nResult
    End If

[DukeMan]

Bedankt,
alleen wilde ik het menu item gewoon via het normale menu, boven aan mijn form te zien krijgen, als onderdeel van he menu.

Hoe kan ik dit doen?

[DukeMan]

Ik doe nu het volgende om een menu item in de menu balk te krijgen, alleen verdwijnen mijn bestaande menu-items.
Tevens wanneer ik menu2 wil toevoegen verdwijnt menu 1. Hoe kan dit?

Dit is mijn code:

code:

    hSub1 = CreatePopupMenu()
    AppendMenu hSub1, MF_STRING, 1, "submenu1"
    AppendMenu hSub1, MF_STRING, 2, "submenu2"
    
    hTop1 = CreateMenu()
    hSub2 = CreatePopupMenu()
    AppendMenu hSub2, MF_STRING, 1, "item1"
    AppendMenu hSub2, &H800&, 2, "item1"
    AppendMenu hSub2, MF_POPUP, hSub1, "item2"
    AppendMenu hSub2, MF_POPUP, hSub1, "item3"
    AppendMenu hTop1, MF_POPUP, hSub2, "&File"
    
    hTop2 = CreateMenu()
    hSub3 = CreatePopupMenu()
    AppendMenu hSub3, MF_STRING, 1, "item1"
    AppendMenu hSub3, &H800&, 2, "item1"
    AppendMenu hTop2, MF_POPUP, hSub3, "&Edit"
    
    SetMenu Me.hwnd, hTop1
    SetMenu Me.hwnd, hTop2

Bij de laatste SetMenu wordt de SetMenu van ervoor verwijderd.

[mulder]

3 parameter is een identifier, kan me voorstellen dat die uniek moet zijn.

[DukeMan]

Ik doe nu het volgende:

Module:

code:

Option Explicit

Public Declare Function CreateMenu Lib "user32" () As Long
Public Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As String) As Long

Public Declare Function InsertMenu Lib "user32" Alias "InsertMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Public Declare Function CreatePopupMenu Lib "user32" () As Long
Public Declare Function SetMenu Lib "user32" (ByVal hWnd As Long, ByVal hMenu 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 WM_SYSCOMMAND = &H112
Public Const MF_SEPARATOR = &H800&
Public Const MF_STRING = &H0&
Public Const MF_POPUP = &H10&
Public Const GWL_WNDPROC = (-4)
Public Const IDM_ABOUT As Long = 1010
Public lProcOld As Long

Public Function SysMenuHandler(ByVal hWnd _
As Long, ByVal iMsg As Long, ByVal wParam _
As Long, ByVal lParam As Long) As Long

    If wParam = 1001 Then
      MsgBox "About . . .", vbInformation, "About"
      Exit Function
    End If
    If wParam = 1002 Then
      MsgBox "About sfl,jgldskjhgl. . .", vbInformation, "About"
      Exit Function
    End If

    SysMenuHandler = CallWindowProc(lProcOld, hWnd, iMsg, wParam, lParam)
End Function

Public Function SubClass(FormName As Form)
Dim hSub1 As Long, hSub2 As Long, hSub3 As Long
Dim hTop1 As Long, hTop2 As Long
    
    hSub1 = CreatePopupMenu()
    AppendMenu hSub1, MF_STRING, 1001, "submenu1"
    AppendMenu hSub1, MF_STRING, 1002, "submenu2"
    
    hTop1 = CreateMenu()
    hSub2 = CreatePopupMenu()
    AppendMenu hSub2, MF_STRING, 1003, "item1"
    AppendMenu hSub2, &H800&, 1004, ""
    AppendMenu hSub2, MF_POPUP, hSub1, "item2"
    AppendMenu hSub2, MF_POPUP, hSub1, "item3"
    AppendMenu hTop1, MF_POPUP, hSub2, "&File"
    
    hTop2 = CreateMenu()
    hSub3 = CreatePopupMenu()
    AppendMenu hSub3, MF_STRING, 1005, "item1"
    AppendMenu hSub3, &H800&, 1006, "item2"
    AppendMenu hSub3, MF_STRING, 1007, "item2"
    AppendMenu hTop1, MF_POPUP, hSub3, "&Edit"
    
    SetMenu FormName.hWnd, hTop1
    
    lProcOld = SetWindowLong(FormName.hWnd, GWL_WNDPROC, AddressOf SysMenuHandler)
    
End Function

Form:

code:

Option Explicit

Private Sub Form_Click()
Dim d As String
    d = SubClass(Form1)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    SetWindowLong Me.hWnd, GWL_WNDPROC, lProcOld
End Sub

Als ik hiermee op een menu item klik, doet ie het: ik krijg een actie, maar dan verdwijnt mijn menu.
Als ik op een menu item klik waar geen actie achter zit, gaat het gewoon en blijft mijn menu.
Rara hoe kan dit?

[DukeMan]

Heeft dan echt niemand een idee???
ik heb ondertussen nog meer geprobeerd, maar niets krijg ik aan de praat.

[pkouwer]

loop niet zo te pushen joh!!

[whoami]

Ik vind dit toch wel een hoog 'wie maakt het voor mij'-gehalte hebben.
Je zit blijkbaar gewoon te wachten tot iemand met een oplossing komt en ondertussen probeer je zelf niets. Je kunt zelf ook 't een en 't ander proberen en de bugs eruit slopen.
Daarvoor heb je een debugger.