Private Sub List1_Click()
On Error Resume Next
List2.ListIndex = List1.ListIndex
End Sub
Private Sub List2_Click()
On Error Resume Next
List1.ListIndex = List2.ListIndex
End Sub
listbox?
Как сделать: вот у меня два listbox я нажимаю на один из них и мне надо что нажался и второй?
сделать принудительное присвоение значения
в переменную Value второго Listbox'а, соответствующее якобы выбираемому элементу
из него элементу.
Код:
Код:
Private Sub List1_Click()
If List2.ListIndex <> List1.ListIndex Then _
List2.ListIndex = List1.ListIndex
End Sub
Private Sub List2_Click()
If List1.ListIndex <> List2.ListIndex Then _
List1.ListIndex = List2.ListIndex
End Sub
If List2.ListIndex <> List1.ListIndex Then _
List2.ListIndex = List1.ListIndex
End Sub
Private Sub List2_Click()
If List1.ListIndex <> List2.ListIndex Then _
List1.ListIndex = List2.ListIndex
End Sub
Цитата:
Originally posted by pashulka
А если хорошо подумать, то надо так :
А если хорошо подумать, то надо так :
Код:
Private Sub List1_Click()
If List2.ListIndex <> List1.ListIndex Then _
List2.ListIndex = List1.ListIndex
End Sub
Private Sub List2_Click()
If List1.ListIndex <> List2.ListIndex Then _
List1.ListIndex = List2.ListIndex
End Sub
If List2.ListIndex <> List1.ListIndex Then _
List2.ListIndex = List1.ListIndex
End Sub
Private Sub List2_Click()
If List1.ListIndex <> List2.ListIndex Then _
List1.ListIndex = List2.ListIndex
End Sub
Да это даже лучше!!!