MultiSelect ListBox’da Belirli Bir Şarta Göre Seçim Yaptırmamak


Private Sub Lstcap_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Dim a As Integer

For i = 0 To Me.Lstcap.ListCount - 1
If Me.Lstcap.Selected(i) Then
a = a + 1
End If
Next
If a >= 41 Then
MsgBox "Maksimum seçim adedine ulaştınız!"
Me.Lstcap.Selected(Me.Lstcap.ListIndex) = False
End If

End Sub

Kodları incelerseniz ne olduğunu anlarsınız….

Paylaşmayı unutmayın!
0 0 votes
Article Rating
Subscribe
Bildir
guest
0 Yorum
Inline Feedbacks
View all comments