Вопрос по visaul basic 6 или 2008

[chop146]

У меня вопрос....Возможно ли на один command button назначить несколько действий? Например нажимаеш появляется одна надпись, нажимаеш ещё разок и потом появляется другая...
Если возможно то как?

P.S Если чёто с созданием темы не так, сильно не бейте...мне 12 лет всётаки...

[Sazary]

Возможно ли на один command button назначить несколько действий? Например нажимаеш появляется одна надпись, нажимаеш ещё разок и потом появляется другая...

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

[chop146]

А по проще сказать....
а мой разум это не осмыслет

[Sazary]

Да, собственно, можно использовать свойство Tag кнопки.
Присвойте ему начальное значение 1.
И в обработчик запишите:

Private Sub Command1_Click()
If Command1.Tag = 1 Then
 MsgBox ("Я надпись")
 Command1.Tag = Command1.Tag + 1
ElseIf Command1.Tag = 2 Then
 MsgBox ("Я другая надпись")
 Command1.Tag = 1
End If
End Sub

[С.М.С]

Создайте форму, на ней кнопку
два щелчка на кнопке
в процедуре обработки формы вставти следующий код

Public клик As Integer
Private Sub Command1_Click()
клик = клик + 1
If клик = 1 Then
MsgBox "первое действие"
End If
If клик = 2 Then
клик = 0
MsgBox "второе действие"
End If
End Sub

Private Sub Form_Load()
клик = 0
End Sub

[chop146]

спс....но так у меня получается тока 2 действия....а как сделать 3 и более?

[Sazary]

Private Sub Command1_Click()
If Command1.Tag = 1 Then
 MsgBox ("Я надпись")
 Command1.Tag = Command1.Tag + 1
ElseIf Command1.Tag = 2 Then
 MsgBox ("Я вторая надпись")
 Command1.Tag = Command1.Tag + 1
ElseIf Command1.Tag = 3 Then
 MsgBox ("Я третья надпись")
 Command1.Tag = Command1.Tag + 1
ElseIf Command1.Tag = 4 Then
 MsgBox ("Я последняя надпись")
 Command1.Tag = 1
End If
End Sub

Улавливаете суть?

[chop146]

нет, не улавливаю

[Sazary]

нет, не улавливаю

А что непонятного?
Сколько нужно действий, столько и будет ElseIf'ов.

Сравните два приведенных мной кода. Первый - для 2-х действий. Второй - для четырех.

[chop146]

у меня не работает....скорее всего на Tag ругается..чё с Tag именно делать?