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

@RCF · Регистрация: 24.03.2010

Студворк — интернет-сервис помощи студентам

Добрый вечер, знатоки VB.

У меня такая проблема.

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

Я путем выбора элементе из List1 получаю значение элемента List2.

для этого использую следующий код:

Visual Basic
1
2
3
Private Sub List1_Click()
List2.ListIndex = List1.ListIndex
End Sub

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

Люди добрые, помогите разобраться с проблемой

dev.Free · 19.09.2012, 21:34

Visual Basic
1
On Error Resume Next

Если у тебя до появления ошибки все работает нормально, тогда код выше тебе в помощь.

@RCF · 19.09.2012, 21:45 **[ТС]**

Спасибо. Так то ошибка не появляется.
Но мне нужно чтобы значение из List2 тоже выбиралось. А в данном случае, если я использую этот код, просто ошибка игнорируется, но я не получаю значение из List2, которое соответствует значению из List1... А при малом количестве записей всё работает корректно...

Тут как быть?

@Апострофф · 19.09.2012, 22:26

Сообщение от RCF

А если в списке более 5000 записей, то выдается ошибка

Правильнее будет звучать - более 32767 записей.

Сообщение от F2

Property ListIndex As Integer
Member of VB.ListBox
Returns/sets the index of the currently selected item in the control.

Сообщение от F1

Integer Data Type

Integer variables are stored as 16-bit (2-byte) numbers ranging in value from -32768 to 32767. The type-declaration character for Integer is the percent sign (%).

You can also use Integer variables to represent enumerated values. An enumerated value can contain a finite set of unique whole numbers, each of which has special meaning in the context in which it is used. Enumerated values provide a convenient way to select among a known number of choices, for example, black = 0, white = 1, and so on. It is good programming practice to define constants using the Const statement for each enumerated value.

@RCF · 19.09.2012, 22:30 **[ТС]**

Property ListIndex As Integer
Member of VB.ListBox
Returns/sets the index of the currently selected item in the control.

А как его реализовать в своем проекте?

Не понятно что-то (((

@Апострофф · 19.09.2012, 22:36

Имеется ввиду, что свойство ListIndex(as Integer) не будет корректно работать для значений выше 32767.
Как это обойти - тот ещё вопрос?!!
Возможно, переходом на VB.NET

@Казанский · 19.09.2012, 22:57

Попробовал на 10000 - работает!

RCF, Вы уверены, что в List2 не меньшее число элементов? Проверьте на всякий

Visual Basic
1
2
3
4
5
6
7
Private Sub List1_Click()
If List2.ListCount >= List1.ListIndex Then
    List2.ListIndex = List1.ListIndex
Else
    MsgBox "!!!"
End If
End Sub

@RCF · 19.09.2012, 23:08 **[ТС]**

Сообщение от Казанский

Вы уверены, что в List2 не меньшее число элементов?

Да. Потому что данные в List1 и в Lisn2 заполняются параллельно из таблицы базы данных, в котором каждая ячейка в поле имеет соответствующее значение. Поэтому данные в лист1 и лист2 заполняются один к одному, то есть количество значений в лист1 в любом случае равно количеству значений в лист2

dev.Free · 20.09.2012, 07:28

Сообщение от Апострофф

Возможно, переходом на VB.NET

Не по теме:

Вот только давайте без плагиата! Меня лично .NET раздражает!

@RCF · 20.09.2012, 07:29 **[ТС]**

Сообщение от Казанский

1

Visual Basic
1
2
3
4
5
6
7
Private Sub List1_Click()
If List2.ListCount >= List1.ListIndex Then
  List2.ListIndex = List1.ListIndex
Else
  MsgBox "!!!"
End If
End Sub

Не работает (((

Новые блоги и статьи Все статьи Все блоги /
Создаем RESTful API на Golang с Fiber golander 04.06.2025 Я перепробовал десятки фреймворков для создания RESTful API за последние годы, и когда впервые столкнулся с Fiber, понял, что это совсем другой уровень. Нет, я не собираюсь рассказывать сказки о. . .	Как работать с куки в ASP.NET Core UnmanagedCoder 04.06.2025 Когда я впервые начал работать с куки в ASP. NET Core, меня поразило, насколько отличается работа с ними от классического ASP. NET. В Core все стало более декомпозированным - больше нет удобного. . .	Рисование коллайдеров физического движка Box2D-WASM v3 на Three.js 8Observer8 04.06.2025 Erin Catto (автор Box2D) переписал с нуля Box2D v2 с С++ на Си и появилась версия Box2D v3. Birch-san собрал Box2D v3 в WebAssembly (WASM), чтобы можно было использовать Box2D v3 на JavaScript. В. . .	Worker Threads и многопоточность в Node.js Reangularity 03.06.2025 Если вы когда-нибудь посещали собеседования на позицию Node. js разработчика, почти наверняка слышали заезженную фразу: "Node. js - однопоточная платформа". Звучит как неоспоримый факт, который. . .	Event-Driven CQRS на C# с паттерном Outbox stackOverflow 03.06.2025 В традиционной модели происходит примерно следующее: вы получаете команду, обрабатываете ее, сохраняете результат в базу данных и затем пытаетесь опубликовать событие в брокер сообщений. Но что если. . .
OwenLogic: перенос сетевых переменных в панель Weintek (EasyBuilder Pro) ФедосеевПавел 03.06.2025 ВВЕДЕНИЕ ПЕРЕД ЭКСПЕРИМЕНТАМИ - СОЗДАЙТЕ РЕЗЕРВНЫЕ КОПИИ ПРОЕКТОВ На момент написания статьи (02 июня 2025 г. ) самыми актуальными версиями ПО являются: OwenLogic v. 2. 10. 366 EasyBuilder Pro. . .	Dev-c++5.11 Покорение вершины russiannick 02.06.2025 С утра преследовала одна мысль - вот бы выучить С++. Сказано-сделано. Окончив смену, скачал в интернете бестселлер Дэвиса Dev-C++ для чайников. Книга оказалась интересной и я скачал среду, на примере. . .	Тестирование Pull Request в Kubernetes с GitHub Actions и GKE Mr. Docker 02.06.2025 Мы все знаем, что тестирование на локальной машине или в изолированном CI-окружении — это не совсем то же самое, что тестирование в реальном кластере Kubernetes. Контекстно-зависимые ошибки, проблемы. . .	Оптимизация CMake для ускорения сборки bytestream 02.06.2025 Вы когда-нибудь ловили себя на мысле, что пока ваш проект компилируется, можно успеть сварить кофе, прочитать главу книги или даже сбегать в соседний офис? Если да, то добро пожаловать в клуб. . .	JS String.prototype.localeCompare() mr_dramm 02.06.2025 скопировано из этой темы чтобы не потерялось. localeCompare без указания локали для сравнения строк под капотом использует Intl. Collator , который работает согласно Unicode Collation Algorithm. . .

@RCF 5 / 5 / 4 Регистрация: 24.03.2010 Сообщений: 241 Записей в блоге: 1
	19.09.2012, 21:45 [ТС]
	Спасибо. Так то ошибка не появляется. Но мне нужно чтобы значение из List2 тоже выбиралось. А в данном случае, если я использую этот код, просто ошибка игнорируется, но я не получаю значение из List2, которое соответствует значению из List1... А при малом количестве записей всё работает корректно... Тут как быть? 0

@RCF 5 / 5 / 4 Регистрация: 24.03.2010 Сообщений: 241 Записей в блоге: 1
	19.09.2012, 22:30 [ТС]
	Property ListIndex As Integer Member of VB.ListBox Returns/sets the index of the currently selected item in the control. А как его реализовать в своем проекте? Не понятно что-то ((( 0

@Апострофф 9902 / 3911 / 740 Регистрация: 11.10.2011 Сообщений: 5,887
	19.09.2012, 22:36
	Имеется ввиду, что свойство ListIndex(as Integer) не будет корректно работать для значений выше 32767. Как это обойти - тот ещё вопрос?!! Возможно, переходом на VB.NET 0