102 |
' rechte Maustaste wird gedrückt |
' rechte Maustaste wird gedrückt |
103 |
|
|
104 |
Case WM_RBUTTONUP |
Case WM_RBUTTONUP |
105 |
' rechte Maustaste wird losgelassen |
' rechte Maustaste wird losgelassen |
106 |
' (jetzt z.B. Popup-Menü öffnen) |
' (jetzt z.B. Popup-Menü öffnen) |
107 |
PopupMenu MenuPopup |
|
108 |
|
' handle hiding of popup-menu (see http://www.vbcity.com/forums/topic.asp?tid=36205) |
109 |
|
Dim hProcess As Long |
110 |
|
GetWindowThreadProcessId hwnd, hProcess |
111 |
|
AppActivate hProcess |
112 |
|
'SetForegroundWindow (Me.hwnd) |
113 |
|
|
114 |
|
PopupMenu MenuPopup |
115 |
|
|
116 |
Case WM_RBUTTONDBLCLK |
Case WM_RBUTTONDBLCLK |
117 |
' rechte Maustaste - Doppeklick |
' rechte Maustaste - Doppeklick |