Question

VB中当先点击command1后，弹出msgbox，当msgbox关闭后，点击command2，关闭form1，

其中，先command2也弹出一个对话框。也就是说，先点击command1的话，点击command2后直接把form1关闭了，，这个过程怎么实现呢。主要说出如何实现先点command1，后点command2关闭form1这一步就可以了。
能不能用一个if来判断command1弹对话框，或者command1曾经被点击过？

Answer 1

'定义窗体级全局x，用来描述三种状态
'起始状态 x = 0 ,两个按钮都没有点过
'x=1 点过command1
'x=2 点过command2
Dim x As Integer


Private Sub Command1_Click()
'点击command1判断一下点击前的状态
    If x = 0 Then
       MsgBox "先点command1"
    End If
    x = 1
End Sub

Private Sub Command2_Click()
'点击command1判断一下点击前的状态
    If x = 0 Then
        MsgBox "先点command2"
    End If
    If x = 1 Then
        Unload Me
    End If
    x = 2
End Sub

Private Sub Form_Load()
    x = 0 '窗体加载设置初始状态
End Sub

Answer 2

Private Sub Command1_Click()
Call Command2_Click
End Sub
Private Sub Command2_Click()
MsgBox "关闭form1界面", , "提示"
Unload Form1
End Sub

Answer 3

用个变量判断一下状态好了，command1被点击过，状态变为ture