Question

VB怎么实现Command1_Click执行完了才执行Command2_Click

Private Sub Command3_Click()
Command1_Click

Command2_Click

End Sub
Private Sub Command2_Click()
'一些动作
End Sub
Private Sub Command1_Click()
'一些动作

End Sub

这样Command1 Command2 都是同时执行的，有没有办法Command1完成了，再执行 Command2，Command1没完成就不执行Command2

Answer 1

你的代码本来就是Command1完成了，再执行 Command2，不可能同时执行。
事实上，同时执行反而非常难以实现，需要开多线程，VB6很难实现。

Answer 2

VB中，End是强制结束的代码，给出一段代码如下：
Private Sub Command1_Click()
Dim a As Integer,b As Integer
a=Val(Text1.Text)
b=Val(Text2.Text)
Text3.Text=a+b
End Sub
Private Sub Command2_Click()
Dim a As Integer,b As Integer
a=Val(Text1.Text)
b=Val(Text2.Text)
Text4.Text=a*b
End Sub
就像这样，在一个运算Private Sub Command1_Click()后，使用End Sub方可执行Private Sub Command2_Click()

Answer 3

声明 ：Dim a As Boolean
Private Sub Command3_Click()
Command1_Click

End Sub
Private Sub Command2_Click()
if a = true then
'一些动作
end if
End Sub
Private Sub Command1_Click()
'一些动作
a = true
Command2_Click

End Sub

不知是否和你说的一样