VB的停止和运行

提问：VB的停止和运行

在一个命令按钮里面，按第一次的时候运行一段代码，按第二次的时候按第二段代码 如此类推 按到最后一段代码的时候就不能在按

回答：

Private Sub Command1_Click()
Static n As Integer
n = n + 1
Select Case n
Case 1
'执行第一段代码

Case 2
'执行第2段代码

Case 3
'执行第3段代码

Case 4
'执行第4段代码

Command1.Enabled = False
End Select

End Sub

转贴于：立珊网络计算机专业网站