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:     [ Jetzt bewerten ]	Views:  6.298
ohne Homepage	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 22 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.9 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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...