запуск SUB из списка LISTBOX . помогите .
Добавлено: 2013-02-28 16:00:27
"начинающий"
делаю программу но возникал потребность в запуске "SUB name()" где name берется из списка LISTBOX
код но с ошибкой :
код приводит к ошибке
поиск такого примера ненашел ..
делаю программу но возникал потребность в запуске "SUB name()" где name берется из списка LISTBOX
код но с ошибкой :
Код: Выделить всё
Private Sub Tank1_Click()
Dim R As Object
If Tk1.Text = "Название" Then
Exit Sub
End If
If Tk1.Text = "Выберите страну и ТИП" Then
Exit Sub
End If
If Tk1.Text = "" Then
Exit Sub
Else
R = Tk1.Text
End If
End Sub
поиск такого примера ненашел ..