| |
| |
 |
PopUp-Menü wird nicht angezeigt
Wichtiger Hinweis bei Verwendung von sevPopUp in Verbindung mit einem TrayIcon in der Taskbar
 |
| Kategorie: | sevPopUp |
| VB-Versionen: | VB5/6 |
| Autor: | Dieter Otter |
| Datum: | 14.09.07 |
| Views: | 8413 |
|
|
|
| |
|
Problem:
In Verbindung mit dem Einsatz eines TrayIcon in der Windows-Taskbar wird das PopUp-Menü beim Klick auf das TrayIcon nicht angezeigt.
Ursache:
In diesem Fall haben Sie höchstwahrscheinlich vergessen (oder nicht daran gedacht) die hWnd-Eigenschaft von sevPopUp festzulegen.
Lösung:
Weisen Sie der hWnd-Eigenschaft von sevPopUp das Window-Handle der Form zu.
Private Sub sevTray1_Click(Button As Integer)
Dim oPopUp As New sevPopUp.PopUp
Dim nItem As Long
With oPopUp
' Einträge erstellen
.AddItem "..."
.AddItem "..."
' Wichtig!
.hWnd = Me.hWnd
' Kontextmenü an aktueller Mausposition anzeigen
nItem = .Show()
If nItem > 0 Then
' Auswahl auswerten
Select Case .KeyFromID(nItem)
' ...
End Select
End If
End With
Set oPopUp = Nothing
End Sub
 Zurück zur Übersichtsseite
| 
HOME
