как нажать на нужную кнопку

[Sashka23th]

я наверно надоел

есть 3 кнопки
Command1
Command2
Command3
есть переменая "Coomb" = 2
как нажать на кнопку Command2 не использывая функцию IF тоесть
Command "переменная" _click

[skord]

Создай массив контролов и обращайся Command(Index)
А вообще думаю неплохо бы скачать справочник по VB

[Konst_One]

Код: Выделить всё

Friend Sub CommandClick(ByVal Index As Integer)
Dim ctl As Control

For Each ctl In Me.Controls
    If TypeOf ctl Is CommandButton Then
    Select Case Val(0 & Right$(ctl.Name, 1))
        Case Index
            ctl.SetFocus
            SendKeys "{ENTER}"
            Exit For
    End Select
    End If
Next

End Sub

[Sashka23th]

Создай массив контролов и обращайся Command(Index)
А вообще думаю неплохо бы скачать справочник по VB

проблема в том что не могу использывать индекс

[Sashka23th]

Friend Sub CommandClick(ByVal Index As Integer)
Dim ctl As Control

For Each ctl In Me.Controls
If TypeOf ctl Is CommandButton Then
Select Case Val(0 & Right$(ctl.Name, 1))
Case Index
ctl.SetFocus
SendKeys "{ENTER}"
Exit For
End Select
End If
Next

End Sub

а вот етого я совершено не понял

[Konst_One]

Код: Выделить всё

'нажмет на кнопку Command1
CommandClick 1
'нажмет на кнопку Command2
CommandClick 2
'и тд и тп

[Sashka23th]

Konst_One я очень извеняюсь но просто не могу понять вот ето

Select Case Val(0 & Right$(ctl.Name, 1))
Case Index
ctl.SetFocus
SendKeys "{ENTER}"
Exit For
End Select

[Konst_One]

Смотрим цифру в имени твоей кнопки и сравниваем ее с заданным Index.

Command1

[Sashka23th]

допустим заданый индекс 2, он мне выдает ошибку на
ctl.SetFocus
что я делаю не так ?

[Konst_One]

выкладывай-ка ты сюда свой проектик, тогда и разберемся, что к чему

[Sashka23th]

нет проблем
переменая b1 ето правильный ответ от 1 до 5
текст который написал я в Text1 сверяется с текстом который есть в Label1 c индексом b1 и если текст сходится должна нажатся 1 из 5 кнопак (command1 или command2 ....) проблема в том что должна нажатся кнопка Command b1 тоесть если b1=3 должна нажатся кнопка Command3

temp1 = Text1.Text
If InStr(1, Form2.Label1(b1 - 1).Caption, temp1, vbTextCompare) > 0 Then



Else
MsgBox "Sorry may be you wont to try again", vbOKOnly
End If

[Konst_One]

у тебя две формы?
на какой форме должны кнопки нажиматься?

[Konst_One]

и вообще, какая-то странная логика у тебя. что вообще эти кнопки делают? может проще написать функцию, которая отвечает за их действия и ее с нужным параметром вызывать

[Sashka23th]

Konst_One прости мне бежать надо вернусь вечером

[FaKk2]

Sashka23th

Else
MsgBox "Sorry may be you wont to try again", vbOKOnly
End If

I guess by "wont" you mean "wAnt"

[Sashka23th]

FAKK2 thanks
Konst_One дело в том что ето был проект с американскими вопросами в котором было 5 вариантов ответов и один из них правильный
я лиш добавил в него возможность ответа слажнее , тоесть вместо американских ответов надо написать ответ и чтоб не менят весь код хотел при правельном написании чтоб нажималась правильная кнопка

у тебя две формы?
на какой форме должны кнопки нажиматься?

на одной форме текст который пишиш а на второй форме кнопки

[Konst_One]

тогда может так:

Код: Выделить всё

Friend Sub CommandClick(ByVal Index As Integer)
Dim ctl As Control

For Each ctl In Form2.Controls
    If TypeOf ctl Is CommandButton Then
    Select Case Val(0 & Right$(ctl.Name, 1))
        Case Index
            ctl.SetFocus
            SendKeys "{ENTER}"
            Exit For
    End Select
    End If
Next

End Sub

[Kovu]

FAKK2 thanks
Konst_One дело в том что ето был проект с американскими вопросами в котором было 5 вариантов ответов и один из них правильный
я лиш добавил в него возможность ответа слажнее , тоесть вместо американских ответов надо написать ответ и чтоб не менят весь код хотел при правельном написании чтоб нажималась правильная кнопка

у тебя две формы?
на какой форме должны кнопки нажиматься?

на одной форме текст который пишиш а на второй форме кнопки

Эм........а зачем нажимать кнопку когда можно вызывать её процедуру( CommandX_Click)

[Konst_One]

Kovu
человеку хочется кнопку

[max-aziat]

Эм........а зачем нажимать кнопку когда можно вызывать её процедуру( CommandX_Click) [/quote]

и в правду, зачем ?

[Sashka23th]

Kovu дело втом что я немогу вывести процедеру CommandX_Click находясь на другой форме (или не умею)

тогда может так:

Код:
Friend Sub CommandClick(ByVal Index As Integer)
Dim ctl As Control

For Each ctl In Form2.Controls
If TypeOf ctl Is CommandButton Then
Select Case Val(0 & Right$(ctl.Name, 1))
Case Index
ctl.SetFocus
SendKeys "{ENTER}"
Exit For
End Select
End If
Next

End Sub

Konst_One мне действительно стыдно но кажется я есче не дорос до понемания этой процедуры....а что токое "Friend Sub "

[Sashka23th]

УРааа...

и вообще, какая-то странная логика у тебя. что вообще эти кнопки делают? может проще написать функцию, которая отвечает за их действия и ее с нужным параметром вызывать

вот вот где скрывался ответ я даже не ожидал что ето будет так легко
Konst_One спасибо ты мне дал класную подсказку

единственое что досехпор немогу понять неужели нельзя вывести процедуру кнопки которая находится на форме2 если сам находешся на форме1

[tyomitch]

единственое что досехпор немогу понять неужели нельзя вывести процедуру кнопки которая находится на форме2 если сам находешся на форме1

Можно, конечно.
форма2.CommandX_Click() и всё.
Только в объявлении CommandX_Click нужно поменять Private на Friend.

[Konst_One]

Friend - видимость в пределах твоего проекта
Public - глобальная видимость (если в модуле, то для твоего проекта, если в паблик классе DLL, то и для внешних прог)
Private - локальная видимость в пределах класса/модуля

[Sashka23th]

ох ты круто вот как можно было нажать на кнопки не ламая себе и другим голову
на будущие буду знать СПАСИБО

[Александр Дмитриев]

MsgBox "Sorry may be you wont to try again", vbOKOnly

Wont whom?

[hCORe]

Правильнее Who do you want... - вопрос к подлежащему. А whom - довольно редкая штука