Rubrik: TextBox, ListBox & ComboBox | 01.07.02 |
Eigenes Popup-Menü in einer Textbox VB-Version: VB5, VB6 | ||
Views: 11.289 |
Wenn Sie in einer ListBox ein Popup-Menü anzeigen möchten, ist das nicht weiter schwierig. Wie funktioniert das aber in einer TextBox, die ja von Haus aus schon ein Popup-Menü hat? Wie kann man hier ein eigenes Popup-Menü realisieren?
Starten Sie ein neues Projekt und fügen Sie über den Menüeditor ein Menü (Caption = Datei, Name = mnuFile) mit zwei oder mehrerenMenüpunkten (z. B. Öffnen, Speichern), eine TextBox (Text1) und eine CheckBox (Check1) in das Formular ein. Dann noch folgenden Code indas MouseDown-Ereignis der TextBox einfügen:
Private Sub Text1_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Button = 2 Then ' 2 = rechte Maustaste Text1.Enabled = False If Check1.Value = 1 Then PopupMenu mnuFile Text1.Enabled = True Text1.SetFocus End If End Sub
Starten Sie das Programm, aktivieren Sie die CheckBox und klicken Sie mit der rechten Maustaste auf die Textbox. Gar nicht so schwierig -oder?