|
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
|
|
|
|
|
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: [ 2585 ]
|
|
|