нажимаю на 4 (ЛБ2). Нажимаю на 1(ЛБ1). выделение 4 сбрасывается нажиаю снова на 4. потом нажимаю на 1 выделение не сбрасывется. значение то не поменялось.
невеДимка Соколов написал: Надо чтоб сбрасывалось выделение при переходе на другой листбокс
не тогда _Enter напрашивается -
Код
Private Sub ListBox1_Enter()
ListBox2.ListIndex = -1
End Sub
Private Sub ListBox2_Enter()
Dim i&
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = False
Next
End Sub
невеДимка Соколов, трудно вас понять: перечитайте своё последнее сообщение внимательно.
Цитата
невеДимка Соколов написал: если оба листбокса сделать мульти, то не снимает выделение
если оба мульти, то и обработчики _Enter должны быть одинаковы?
Код
Private Sub ListBox1_Enter()
Dim i&
For i = 0 To ListBox2.ListCount - 1
ListBox2.Selected(i) = False
Next
End Sub
Private Sub ListBox2_Enter()
Dim i&
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = False
Next
End Sub