ボタンとイベント

質問

Visual Basic 2008 Express Editionで、
ボタン１をクリックしたらイベント１が発生し、
もう一度ボタン１をクリックしたらイベント２が
発生するようにするには、どう書けばいいですか？

回答No.3

talosoft

Dim cnt As Integer = 0
Dim MAX_EVENT As Integer = 2'用意するプロシージャの数
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If cnt = MAX_EVENT-1 Then cnt = 0
Select case cnt
case 0:
'イベント１
case 1:
'イベント2
End Select
cnt+=1
End Sub

お礼

回答ありがとうございました。

回答No.2

imogasi

イベント１,イベント2
といってますが、ほんとにイベントですか。
処理１、処理２（SUBプロシジャーで処理できる内容）ではないですか。

お礼

回答ありがとうございました。

補足

そうですね。
処理だとしたらどう書くのか教えて下さい。

回答No.1

n-jun

Dim ch As Boolean = False

　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　If ch = False Then
　　　　MsgBox("イベント１")
　　　　ch = True
　　ElseIf ch = True Then
　　　　MsgBox("イベント２")
　　　　ch = False
　　End If
　End Sub

チェックを入れるとか？

お礼

回答ありがとうございました。