Выбор элемента в списке выбора(taФtologica)

[_Brodyaga]

В общем проблема есть таков:есть список выбора, не выпадающий.Необходимо при щелчке на любом элементе, добавлять его данные в лэйбл.Одна загвоздка:это работает только в том случае, если стиль чекбокосвый.Тогда он реагирует на выделение, а какой метод может помочь?ItemCheck работает только с чекбоксами.Дело не горит, но хотелось бы узнать:)

[Amed]

Код: Выделить всё

Private Sub List1_Click()
Label1.Caption = List1.Text
End Sub

Годится?

[_Brodyaga]

Кхм...вы явно меня за ЛАмера считаете:)
Мне нужен рабочий метод,

Код: Выделить всё

Private Sub List1_Click()
Label1.Caption = List1.Text
End Sub

не работает и не будет работать по одной простой прчине:он не получает идентификатора выделенного элемента:)
Есть метод List1.ItemCheck(Item As Integer)
Label1.Caption=List1.List(Item)+vbCrLf
End Sub
но он работает только с Чекбоксами.Список не реагирует абсолютно ни на какой метод, все перепробовал:(...
Другие предложения?

[Amed]

Private Sub List1_Click()
MsgBox List1.ListIndex
End Sub

[_Brodyaga]

Действительно, работает...Сейчас надо попробовать такой метод:
Private Sub List1_Click()
MsgBox List1.List(List1.ListIndex)
End Sub
Так как это программа для ламеристического склада ума, и необходимо чтобы вместы цыферок пользователь видел текст, им выделенный...
Большое спасибо кстати:)

[Amed]

Именно так!

[_Brodyaga]

и вот ищчо вопрос:можно ли на лету создавать элементы?Типа
Command1=new Button()

Это я образно, но все же?

[Amed]

Можно.

На форме кнопка Command1 c индексом 0.

Код: Выделить всё

Private Sub Form_Load()
Load Command1(1)
With Command1(1)
    .Move 0, 0
    .Visible = True
End With
End Sub

[_Brodyaga]

А вот оно как, всмысле массив контроллеров? Хорошо, проблема знача решена, респект:)