Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Массив кнопок, У меня вопрос по поводу массива кнопок 
:(
    Опции темы
Oldknight12
  Дата 21.2.2005, 06:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 1.2.2005

Репутация: нет
Всего: нет

У меня вопрос - почему это не работает?
Например, пр нажатии кнопки cmdTest с Index 1 должна загрузиться форма frmTest1, но этого почему-то не происходит.
Код

Public Sub cmdTest_Click(Index As Integer)
   Select Case TestIndex
   Case 1
    frmTest1.Show
   Case 2
    frmTest2.Show
   Case 3
    frmTest3.Show
   Case 4
    frmTest4.Show
   Case 5
    frmTest5.Show
   Case 6
    frmTest6.Show
   Case 7
    frmTest7.Show
   Case 8
    frmTest8.Show
   Case 9
    frmTest9.Show
   Case 10
    frmTest10.Show
   Case 11
    frmTest11.Show
   Case 12
    frmTest12.Show
End Select
End Sub


Кнопки cmdTest находятся в массиве, формы все созданы.
Подскажите кто-нибудь, пожалуйста, только как-нибудь попонятнее (я недавно
начал этим заниматься) smile
PM MAIL   Вверх
korob2001
Дата 21.2.2005, 06:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: нет
Всего: 61
Проблема в этой строке:
Код

Select Case TestIndex

Посмотри сам в какую переменную процедура cmdTest_Click принимает, переданный ей, параметр, в твоём случае это идекс нажатой кнопки.

Удачи.


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
boevik
Дата 21.2.2005, 10:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
Код

Select Case Index



--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
Akina
Дата 21.2.2005, 11:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
И вообще

Код

Public Sub cmdTest_Click(Index As Integer)
  Forms("frmTest" & Trim(Str(Index)).Show
End Sub



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Oldknight12
Дата 23.2.2005, 04:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 1.2.2005

Репутация: нет
Всего: нет
Большое спасибо Вамвсем за помощь smile
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0442 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.