Работа с ListBox

[TiG]

Знач методом AddItem заполняю несколько строчек. Есть ли вариант нажав на конкретную строчку запустить один процес, а нажав на другую строчку получить другой?

Заранее спасибо.

[tyomitch]

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

Shell List1.List(List1.ListIndex)

[TiG]

Ой не совсем пойму.
Подскажи плз кoд, чтоб нажав первую строку мона было получить End, а нажав вторую чтобы text1.text = "test".

[TiG]

Вот так получилось) Есть другой способ?

Private Sub List1_Click()
If List1.ListIndex = 0 Then End
If List1.ListIndex = 1 Then Text1.Text = "87687678"
End Sub

[Amed]

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

Private Sub Form_Load()
List1.AddItem "End"
List1.AddItem "Set text"
End Sub

Private Sub List1_Click()
Select Case List1.List(List1.ListIndex)
    Case "End"
        End
    Case "Set text"
        Text1.Text = "test"
End Select
End Sub

[tyomitch]

Ой не совсем пойму.
Подскажи плз кoд, чтоб нажав первую строку мона было получить End, а нажав вторую чтобы text1.text = "test".

Мы существенно по-разному понимаем слово "процесс"

[Amed]

Вернее, не все понимают слово "процесс"