Мышь

[miller_aa]

Извините может вам покажется мой вопрос глупым .

у меня есть код от кнопки пример
public sub command3_click()

'и мне нужно
if number=1 and нажатие клавиши мышипо команд4. then
msgbox"COO"
end if


какой командой определить нажаьие мышей на кнопку ?

[Viper]

Не понял? Нажатие какой кнопки надо определить? Кнопки в смысле Command или кнопки мышиной (левая, правая, средняя)?

[Twister]

Не очень понятно сформулирован вопрос. Точнее вообще непонятно.

[sl-shem]

одновременно 2 кнопки нажать не получиться! А вот если command4 кнопка типа ChekBox тогда можно проверять нажата или нет!!!

[miller_aa]

Ну как через if указать нажатие мыши ?

[Amed]

miller_aa
Так не получится.

Одновременно две CommandButton нельзя нажать. Или нужно узнать, была ли нажата эта кнопка ранее?

[Viper]

Формулируй точнее, что тебе надо!

[miller_aa]

If vars < 8 Then
Label1 = question2_group1
Command3.Caption = 31
Command4.Caption = 42
Command5.Caption = 12
Command6.Caption = 32
End If



Скажем Command4 явлется правильным ответом как сделать что бы при нажатии выполнялось действии скажем msgbox

[Viper]

ээээ а что код типа:

Private Sub Command4_Click()
MsgBox "Зачот!"
End Sub

не катит?

[miller_aa]

Нет мне ужно при определеном значение это будет игра типа о счатливчика ,

смысал такой генерируется определеное число к нему вопросы , к вопросам база правильных и не правильных значений выраженых на
Command3.Caption
Command4.Caption
Command5.Caption
Command6.Caption

[sl-shem]

Ну так записывай с command.tag признак правильный/неправильный и после нажатия проверяй!!!

[Twister]

Совет: используй массив контролов, будет легче.
Кажись начинаю тебя понимать. Объяви переменную и храни в ней номер кнопки "с правильным ответом". А по нажатию на одном из элементов массива (для всех обработчик один) сверяй индекс и эту самую переменную.

[Viper]

Пишешь массив контролов, запоминаешь номер "правильной" кнопки и код нажатия будет такой:

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

Private nOkNumber as Integer
Private Sub Command_Click(Index As Integer)
If Index = nOkNumber Then
MsgBox "Зачот!"
Else
MsgBox "неЗачот!"
End If
End Sub

[miller_aa]

А кажется понял ты имееш ввиду скажем так при обращение не посрественно к кнопке что бы кнопка проверяла значения верности хм. сейчас поробую

[miller_aa]

А как делать гловальную переменую ,может не правильно спросил как использовать переменную в 2 Private

[Twister]

Объяви как public.

[Viper]

Глобаальная переменная - Public, а вот что это такое?

как использовать переменную в 2 Private

[miller_aa]

Хм странно.
Что я сделал
ДОбавил 2 переменные
Dim num As Integer
Dim vop As Integer


добавил их в код
If vars < 8 Then
num = 1
vop = 2
Label1 = question2_group1
Command3.Caption = 31
Command4.Caption = 42
Command5.Caption = 12
Command6.Caption = 32
End If


перешел коду кнопке
Private Sub Command3_Click()
If num = 1 And vop = 2 Then
MsgBox "COOL"
End If
End Sub

и не какой реакции ?? Может что то не так 7

[Twister]

А где массив контролов и соответственно сравнение с индексом?

[miller_aa]

Вот весь код
Public Sub Command3_Click()
If num = 1 And vop = 2 Then
MsgBox "COOL"
End If
End Sub

Public Sub Command7_Click()
Dim question1_group1 As String
Dim question2_group1 As String
Dim question3_group1 As String
Dim question4_group1 As String
Dim question5_group1 As String
Dim group1 As Integer
Dim vars As Single
Dim num As Integer
Dim vop As Integer
question1_group1 = "Ñêîëüêî ó âàñ ïàëüöåâ?"
question2_group1 = "Ñêîëüêî áóêâ â ðóññêîì àëôàâèòå?"
question3_group1 = "Ñêîëüêî ìåñÿöåâ â ãîäó?"
question4_group1 = "×òî íå ÿâëÿåòñÿ ÿçûêîì ïðîãðàìèðîâàíèÿ?"
question5_group1 = "Íå ðîäèñü êðàñèâîé ýòî ?"
vars = Rnd * 10
If vars > 7 Then
Label1 = question1_group1
Command3.Caption = 4
Command4.Caption = 6
Command5.Caption = 5
Command6.Caption = 8
End If
If vars < 8 Then
num = 1
vop = 2
Label1 = question2_group1
Command3.Caption = 31
Command4.Caption = 42
Command5.Caption = 12
Command6.Caption = 32
End If
If vars < 1 Then
Label1 = question2_group1
End If
Text1.Text = vars
End Sub

[Twister]

Повторяю - у тебя нет массива элементов. Иначе зачем мы вводим переменную?

[Viper]

Дык, елы палы, где массив контролов то?

[miller_aa]

Я что то не пойму (я новечек в ВБ) вы имеете ввиду про такой массив

dim quastions(1 to 4) as integer

[Twister]

Нет, массив CommandButton-ов...

[Twister]

Посмотри свойство Index у какого-нибудь контрола...

[miller_aa]

а понял как он работает , остался один вопрос у меня переменные почемуто не взаимодействуют может не достаточно толька public

[Twister]

Что значит не взаимодействуют? Отказали чтоль?

[miller_aa]

Ну примерно так

Public Sub voprosy()
Dim num As Integer
num = 10
End Sub
....................................

Public Sub Command7_Click()
Text1.Text = num
End Sub

По идее num должен будет выводится в Text1.Text
а там не чё не выводится (((

[Twister]

Нужно num объявлять не в процедуре, а в заголовке модуля:

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

Public num As Integer

Public Sub voprosy()
num = 10
End Sub
'....................................

Public Sub Command7_Click()
Text1.Text = num
End Sub

[miller_aa]

О спасибо все работает