27/02/2020, 01:26
feraz
Adamlar zaten sağ tıklama için yapmışlar.
Shift tuşuyla açarsanız modMenu modülünde alttaki kodlar var.
Orada yapmışlar ve karışık bayağı.
Restore Form Window
Show Access Window
Exit Application
gGbi sağ menü yapmış adamlar.
Bizim acilen bu Api olayını çözüp kendi Apimizi yazmamızın vakti geldi
Shift tuşuyla açarsanız modMenu modülünde alttaki kodlar var.
Orada yapmışlar ve karışık bayağı.
Restore Form Window
Show Access Window
Exit Application
gGbi sağ menü yapmış adamlar.
Bizim acilen bu Api olayını çözüp kendi Apimizi yazmamızın vakti geldi
Kod:
Public Const lngSHOW_ACCESSWINDOW = 2
Public Const lngEXIT_APP = 3
Public Function buildMenu() As Long
' Office Commandbars do not work well when displayed over the taskbar
' therefor we'll create the context-menu by API-Calls.
Dim hMenu As Long
' Creating the PopUpMenu
hMenu = CreatePopupMenu
' Inserting the MenuItems in the PopUpMenu
Call addMenuItem(hMenu, lngRESTORE_WINDOW, "Restore Form Window")
Call addMenuItem(hMenu, lngSHOW_ACCESSWINDOW, "Show Access Window")
Call addMenuItem(hMenu, lngEXIT_APP, "Exit Application")
' Return the handle to the PopUpMenu
buildMenu = hMenu
End Function
Private Sub addMenuItem(hMenu As Long, ItemID As Long, ItemText As String)
Dim MenItemInf As MENUITEMINFO
With MenItemInf
.cbSize = Len(MenItemInf)
.fState = MF_ENABLED
.fMask = MIIM_STATE Or MIIM_TYPE Or MIIM_ID
.fType = MFT_STRING
.dwItemData = 0
.cch = Len(ItemText)
.hSubMenu = 0
.wID = ItemID
.dwTypeData = ItemText
.hbmpChecked = 0
.hbmpUnchecked = 0
End With
Call InsertMenuItem(hMenu, 0, 1, MenItemInf)
End Sub