Tipp 0090 ListBox mit Kontext-Menü
Autor/Einsender:
Datum:
  Detlev Schubert
03.07.2001
Entwicklungsumgebung:   VB 5
In vielen Fällen wäre es schon ganz sinnvoll, wenn die ListBox mit einem eigenen Kontextmenü ausgestattet wäre. Da dies leider nicht so ist, greifen wir zu einem ganz kleinen Trick, in dem wir mit dem Menüeditor ein normales Pop-Up-Menü erzeugen und dieses zunächst auf Invisible setzen, damit es nur bei Bedarf sichtbar wird.
 
Option Explicit

Private Sub Form_Load()
  List1.AddItem "Schumacher, Michael - Ferrari"
  List1.AddItem "Schumacher, Ralf - Williams/BMW"
  List1.AddItem "Hakkinen, Mika - McLaren/Mercedes"
  List1.AddItem "Coulthard, David - McLaren/Mercedes"
  List1.AddItem "Frentzen, Harald - Jordan/Honda"
  List1.ListIndex = 1
End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, _
    X As Single, Y As Single)
  If Button = 2 Then
    PopupMenu mnuListbox
  End If
End Sub

Private Sub mnuKontextmenü_Click(Index As Integer)
  Dim x as Integer

  Select Case Index
    Case 1
      For x = 0 To List1.ListCount - 1
        If List1.Selected(x) = True Then
          List1.RemoveItem (x)
          Exit For
        End If
      Next
    Case 2
      List1.Clear
  End Select
End Sub
 
Weitere Links zum Thema
Horizontale ScrollBar
Längere Einträge als ToolTipText anzeigen
Spalten in einer ListBox

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (2 kB) Downloads bisher: [ 2512 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Samstag, 9. Juli 2011