محدودیت انتخاب از لیست باکس

[mahmooddavoodi]

سلام
چه کدی برای لیست باکس (در حالت multiSelect) بنویسم که چنانچه تعداد انتخاب از شش تا بیشتر شد پیغام بده و انتخاب هفتم رو کنسل کنه در حال حاضر اگه 6 تا انتخاب بشه پیغام میده ولی من میخوام اگه انتخاب هفتم انجام شد، پیغام بده و انتخاب هفتم کنسل بشه
Private Sub lstLocalAuthority_Click()
Me.Text10 = lstLocalAuthority.ItemsSelected.Count
If Me.Text10 = 6 Then
MsgBox "ÊÚÏÇÏ ÇäÊÎÇÈ ÔãÇ (6 ÇäÊÎÇÈ) ÇíÇä íÇÝÊ"

End If
End Sub
متشکرم

[alirezabahrami]

سلام
چه کدی برای لیست باکس (در حالت multiSelect) بنویسم که چنانچه تعداد انتخاب از شش تا بیشتر شد پیغام بده و انتخاب هفتم رو کنسل کنه در حال حاضر اگه 6 تا انتخاب بشه پیغام میده ولی من میخوام اگه انتخاب هفتم انجام شد، پیغام بده و انتخاب هفتم کنسل بشه
Private Sub lstLocalAuthority_Click()
Me.Text10 = lstLocalAuthority.ItemsSelected.Count
If Me.Text10 = 6 Then
MsgBox "ÊÚÏÇÏ ÇäÊÎÇÈ ÔãÇ (6 ÇäÊÎÇÈ) ÇíÇä íÇÝÊ"

End If
End Sub
متشکرم
سلام
کدهای زیر را جایگزین کن!
یا علی


Dim i As Integer
Me.Text10 = lstLocalAuthority.ItemsSelected.Count
For i = 6 To Me!lstLocalAuthority.ListCount - 1
If Me.Text10 > 6 Then
Me.lstLocalAuthority.Selected(i) = False
End If
Next
If Me.Text10 > 6 Then
MsgBox "E?ICI C?EICE O?C (6 C?EICE) ?C?C? ?C?E"
End If

[mahmooddavoodi]

سلام
موقعی که مثلا 4 ردیف پشت سرهم سلکت میشه و بعد با چند ردیف فاصله سه ردیف دیگه سلکت میشه، هر سه ردیف پس از پیغامunselect میشن
متشکرم

[alirezabahrami]

سلام
موقعی که مثلا 4 ردیف پشت سرهم سلکت میشه و بعد با چند ردیف فاصله سه ردیف دیگه سلکت میشه، هر سه ردیف پس از پیغامunselect میشن
متشکرم
سلام
در کدهای فوق بجای قطعه کد Me.lstLocalAuthority.Selected(i) = False از قطعه کد Me.lstLocalAuthority.Selected(lstLocalAuthority.Li stIndex) = False

استفاده کن !
یا علی