Rubrik: Fenster & Forms | 15.06.03 |
PopUp-Menü erstellen VB-Version: VB5, VB6 | ||
Views: 24.519 |
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.