ListBox - Auswahl und danach Abfrage
23.11.2005 14:26:41
TheUniversal
ich habe eine kleine Frage zu einer ListBox. Ich möchte, dass wenn ich auf irgendeinen Wert klicke, dass ein Ereignis gestartet wird. Hier mein Code:
Private Sub ListBox1_Click()
If ListBox1.Selected(0) = True Then
MsgBox "Hallo"
End If
End Sub
Anstelle der MsgBox wird dann natürlich ein Ereignis gestartet. In meiner ListBox habe ich aber mehrere Einträge, die überprüft werden sollen. Ich haate zum Beispiel probiert nach dem
.Selected(0 And 1 And 2 ...)
mehrere Bedingungen festzulegen, aber das klappt leider nicht. Was kann ich tun?
Zweites Problem: Wie kann ich diese Wenn-Dann-Sonst-Schleife für die komplette ListBox schreiben. Beispiel:
Private Sub ListBox1_Click()
If ListBox1.Selected(Alle Einträge) = True Then
MsgBox "Hallo"
End If
End Sub
Ich bin gespannt, wie und ob man das realisieren kann. Übrigens zur Auswahl der Einträge nehme ich folgenden Code:
Private Sub Markieren_Click()
Dim intIndex As Integer
For intIndex = 0 To ListBox1.ListCount - 1
ListBox1.Selected(intIndex) = True
Next intIndex
End Sub