Rubrik: Oberfläche · Menüs | VB-Versionen: VB4, VB5, VB6 | 08.04.03 |
PopUp-Menü eines TrayIcons wieder schließen Dieser Tipp zeigt, wie sich das PopUp-Menü bei versehentlichen Rechtsklick auf ein Trayicon wieder schließen lässt. | ||
Autor: Torsten Arfeller | Bewertung: | Views: 17.104 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Haben Sie auch schon vor dem Problem gestanden, ein versehentliches Öffnen eines PopUp-Menüs beim Rechtsklick auf ein TrayIcon wieder zu schließen? Selbst über API erstellte PopUp's lassen sich nicht immer schließen. Ein kleiner Trick beim Aufruf des Menü's hilft und wie kann es anders sein, wir brauchen eine API-Funktion dafür. Durch den Aufruf der API-Funktion SetForegroundWindow vor dem Aufruf des PopUp's, erhält das PopUp den Fokus und kann dadurch auch auf das LostFocus-Ereignis reagieren.
Und hier der Code:
Option Explicit ' benötigte API-Deklaration Private Declare Function SetForegroundWindow Lib "user32" ( _ ByVal hwnd As Long) As Long ...
' PopUp-Menü anzeigen (TrayIcon) Private Sub picTrayIcon_MouseMove(Button As Integer, _ Shift As Integer, x As Single, y As Single) Dim nMsg As Long nMsg = x / Screen.TwipsPerPixelX Select Case Msg Case WM_LBUTTONDBLCLK, WM_RBUTTONDBLCLK ... Case WM_RBUTTONUP ' Fokus auf Anwendung setzen SetForegroundWindow Me.hwnd ' PopUp-Menü anzeigen Me.PopupMenu mnuPopUp End Select End Sub
Wie man ein TrayIcon mit integriertem PopUp-Menü erstellt, zeigt nachfolgender Tipp:
Icon Ihrer Anwendung im SystemTray
Alternativ siehe auch: sevTrayIcon ActiveX
Standard-Icon, Flash- oder animierte Icons
Mit dieser Komponente bringen Sie Ihre Anwendung als Icon in den Traybereich der Windows Taskbar (rechts neben der Uhr) - entweder als Standard-Symbol, Flash-Symbol (blinkend) oder auch animiert...
Weiter Infos im Downloadbereich...