|
Tipp 0407
|
Listeneinträge löschen
|
|
|
Autor/Einsender: Datum: |
|
Ronald Janowski 13.08.2004 |
|
Entwicklungsumgebung: |
|
VB 6 |
|
|
In diesem Beispiel werden die markierten Listeneinträge mit VB-Mitteln gelöscht. Dazu wird
der Auswahlzustand aller Elemente des Listenfelds mit Hilfe der Selected-Eigenschaft
ermittelt, und wenn markiert, gelöscht.
|
|
|
Option Explicit
Private Sub Form_Load()
Dim n As Long
For n = 1 To 100
List1.AddItem "Eintrag " & CStr(n)
Next
End Sub
Private Sub cmdDelete_Click()
Dim n As Long
With List1
Select Case .SelCount
Case 0
MsgBox "Es sind keine Einträge zum Löschen markiert!", _
vbOKOnly, Title:="VB-fun-Demo"
Case 1
.RemoveItem .ListIndex
Case Else
For n = .ListCount - 1 To 0 Step -1
If .Selected(n) = True Then
.RemoveItem n
End If
Next
End Select
End With
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,7 kB)
|
Downloads bisher: [ 601 ]
|
|
|