VBNet - Форум - Frm1.List1(0).AddItem

Вопрос: Frm1.List1(0).AddItem Добавлено: 12.04.04 19:39

Автор вопроса: cresta

Здравствуйте все. Есть маленький вопросец. Вот такая конструкция:
Frm1.List1(0).AddItem "String"
Frm1.List1(0).Refresh
              i = Frm1.List1(0).ListCount - 1
              MsgBox i & "1"
              Frm1.List1(0).ListIndex = Frm1.List1(0).ListCount - 1
              MsgBox i & "2"
MsgBox Frm1.List1(0).ListCount - 1
В IDE работает, в ехе - нет. Программа вылетает на строке Frm1.List1(0).ListIndex = Frm1.List1(0).ListCount - 1. Т.е. до MsgBox i & "2" дело не доходит. Пытался сделать Frm1.List1(0).ListIndex = i - результат тот же. А очень хочется, чтобы в листбоксе выделялся последний добавленный элемент.
Ответить

Ответы Всего ответов: 4

Номер ответа: 1
Автор ответа:

sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | Цитата | #1

Добавлено: 12.04.04 19:57

А вот у меня работает... VB6 Enterprise & SP6...

Ответить

Номер ответа: 2
Автор ответа:

@CyRax PTR

ICQ: 204447456

Вопросов: 28
Ответов: 664

Web-сайт: basicproduction.nm.ru/
Профиль | Цитата | #2

Добавлено: 14.04.04 04:31

>Frm1.List1(0).ListIndex = Frm1.List1(0).ListCount - 1

В этом случае возникает событие

Sub List1_Click(Index as Integer)

Select Case Index

Case 0

Msgbox "List1(0)",,"Clicked"

Case Else

Msgbox "Another List",,Index

End Select

End Sub

Проверь всё ли там в порядке. В т.ч. и код общий для всех списков массива.

Ответить

Номер ответа: 3 Автор ответа: cresta Вопросов: 117 Ответов: 1538	Профиль \| Цитата \| #3	Добавлено: 14.04.04 19:35
	To CyRax: Спасибо, разобрался. В Sub List1_Click(Index as Integer) считываются данные из массива, которые заполнял только после Frm1.List1(0).ListIndex = Frm1.List1(0).ListCount - 1, т.е. данных ещё фактически нет в массиве, а уже происходит попытка считать их. Передвинул Frm1.List1(0).ListIndex = Frm1.List1(0).ListCount - 1 на 2 строки вниз и всё заработало Ответить

Номер ответа: 4
Автор ответа:

Pendalf

ICQ: 281656216

Вопросов: 10
Ответов: 14

Профиль | Цитата | #4

Добавлено: 17.04.04 03:16

Мона и так:

Frm1.List1(0).ListIndex = Frm1.List1(0).NewIndex

Ответить

Страница: 1 |