запуск SUB из списка LISTBOX . помогите .

Правила форума
Убедительная просьба юзать теги [code] при оформлении листингов.
Сообщения не оформленные должным образом имеют все шансы быть незамеченными.

Ответить


Этот вопрос предназначен для предотвращения автоматической отправки форм спам-ботами.
Смайлики
:smile: :( ;-) :roll: :pardon: 8) :x :oops: :shock: :cz2: :-D :ROFL: :Yahoo!: :cry: :Search: :Bravo: :good: :bad: :sorry: :no: :unknown: :evil: :crazy: :"": :fool: :-o :drinks: :st: :bn:
Ещё смайлики…

BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[flash] ОТКЛЮЧЕН
[url] ВКЛЮЧЁН
Смайлики ВКЛЮЧЕНЫ

Обзор темы
   

Если вы не хотите добавлять вложения, оставьте поля пустыми.

Развернуть Обзор темы: запуск SUB из списка LISTBOX . помогите .

Re: запуск SUB из списка LISTBOX . помогите .

Сообщение JerarHeP » 2013-09-28 13:34:38

Извините, я удалил это сообщение Изображение

Re: запуск SUB из списка LISTBOX . помогите .

Сообщение zg » 2013-05-06 16:45:19

объявление R
Serg28 писал(а):Dim R As Object
и есть такая штука
Serg28 писал(а):R = Tk1.Text
R ведь должен быть объектом, а присваевается текст

Проверить не могу, но по идее ошибка тут.

запуск SUB из списка LISTBOX . помогите .

Сообщение Serg28 » 2013-02-28 16:00:27

"начинающий"
делаю программу но возникал потребность в запуске "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


код приводит к ошибке
поиск такого примера ненашел ..

Вернуться к началу