PopUp-Menü erstellen VB-Version:  VB5, VB6
	Views:  25.600

Wie erstellt man ein PopUp-Menü? Der Anwender soll die Möglichkeit haben, bei Klick auf die rechte Maustaste aus einem Menü etwas auswählen zu können.

Ein PopUp-Menü wird über den Menü-Editor erstellt. Starten Sie ein neuesProjekt und geben Sie im Menü-Editor folgendes ein:

Caption:MyPopUp
Name:mnuMyPopUp

Dieses Menü bekommt jetzt noch zwei Untermenüs:

Für das erste Untermenü mit der Pfeiltaste einmal nach 
rechts einrücken ...
 
Caption:Löschen
Name:mnuDelete
 
... das zweite Untermenü auf der gleichen Ebene erstellen:
Caption:Beenden
Name:mnuExit

Damit dieses Menü beim Start der Form nicht angezeigt wird, entfernen wirentweder noch das Häkchen in der Checkbox vor Visible oder lösen das Ganze perCode im Form_Load Ereignis:

Private Sub Form_Load()
  mnuMyPopUp.Visible = False
End Sub

Der Aufruf erfolgt dann im MouseDown-Ereignis des jeweiligen Elements:

' Beispiel Form
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
  X As Single, Y As Single)
 
  If Button = 2 Then  ' rechte Maustaste
    Me.PopupMenu mnuMyPopUp
  End If
End Sub
 
' Beispiel ListBox
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, _
  X As Single, Y As Single)
 
  If Button = 2 Then  ' rechte Maustaste
    Me.PopupMenu mnuMyPopUp
  End If
End Sub
 
' Beispiel PictureBox
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, _
  X As Single, Y As Single)
 
  If Button = 2 Then  ' rechte Maustaste
    Me.PopupMenu mnuMyPopUp
  End If
End Sub

Dies funktioniert bei allen Steuerelementen, die ein MouseDown-Ereignis habenund bei denen von Haus aus kein PopUp-Menü vorhanden ist.