ich möchte in einer Listbox festlegen, dass maximal 3 Einträge ausgewählt werden können. die Eigenschaft multiselect kenne ich. Nur wie stelle ich genau 3 Einträge ein?
sonnige Grüße aus dem schwarzwald,
Cäcilia
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim intI As Integer, intZ As Integer, intA As Integer
intA = ListBox1.ListIndex
For intI = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(intI) Then intZ = intZ + 1
Next
If intZ >= 4 Then
MsgBox "Maximal 3 Einträge dürfen ausgewählt werden.", 64, "weise hin..."
ListBox1.Selected(intA) = False
End If
End Sub