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

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

запуск 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
код приводит к ошибке
поиск такого примера ненашел ..
Последний раз редактировалось zg 2013-05-06 16:42:02, всего редактировалось 1 раз.
Причина: [code][/code]

Хостинговая компания Host-Food.ru
Хостинг HostFood.ru
 

Услуги хостинговой компании Host-Food.ru

Хостинг HostFood.ru

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2520 рублей (8 CPU, 8Gb RAM, 2x500Gb HDD, RAID 3ware 9750):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

zg
полковник
Сообщения: 5845
Зарегистрирован: 2007-12-07 13:51:33
Откуда: Верх-Нейвинск

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

Непрочитанное сообщение zg » 2013-05-06 16:45:19

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

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

JerarHeP
проходил мимо
Сообщения: 1
Зарегистрирован: 2013-09-28 9:27:57
Откуда: Россия
Контактная информация:

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

Непрочитанное сообщение JerarHeP » 2013-09-28 13:34:38

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