Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Массив кнопок

Автор: Oldknight12 21.2.2005, 06:27

У меня вопрос - почему это не работает?
Например, пр нажатии кнопки 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

Автор: korob2001 21.2.2005, 06:38

Проблема в этой строке:

Код


Select Case TestIndex

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

Удачи.

Автор: boevik 21.2.2005, 10:27

Код


Select Case Index

Автор: Akina 21.2.2005, 11:04

И вообще

Код


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

Автор: Oldknight12 23.2.2005, 04:18

Большое спасибо Вамвсем за помощь smile