Получение значения из List1 путём выбора значения в List2 - VB

Формулировка задачи:

Добрый вечер, знатоки VB. У меня такая проблема. На форме есть два элемента List1 и List2. Данные в список заполняются параллельно в одинаковом объеме. То есть, если в List1 заполняется 10 000 записей, то и в List2 заполняется тоже 10 000 записей. Я путем выбора элементе из List1 получаю значение элемента List2. для этого использую следующий код:

Private Sub List1_Click()
List2.ListIndex = List1.ListIndex
End Sub

Данный код работает успешно, если в списке не много записей. А если в списке более 5000 записей, то выдается ошибка. Скрин с ошибкой во вложении... Люди добрые, помогите разобраться с проблемой

Решение задачи: «Получение значения из List1 путём выбора значения в List2»

textual
                            Листинг программы 
                        

                            Private Sub List1_Click()
If List2.ListCount >= List1.ListIndex Then
  List2.ListIndex = List1.ListIndex
Else
  MsgBox "!!!"
End If
End Sub
                        

Оцени полезность:

13 голосов , оценка 4.077 из 5

Похожие ответы