单击同一个按钮，每次发生不同事件？

来源：百度知道 编辑：UC知道 时间：2024/06/23 17:50:11
在同一个按钮下，填上几个不同的事件代码。要每次按按钮，都会按顺序发生不同的事件。
谢谢

可以用 select case

写了个例子 只写了3个功能 可以无限的添加 你看下
'窗体代码
Dim i As String

Private Sub Form_Load()
i = 0
End Sub

Private Sub Command1_Click()
i = i + 1
Select Case i
Case 1
MsgBox "1"
Case 2
MsgBox "2"
Case 3
MsgBox "3"
i = 0
End Select
End Sub