vb中怎样通过命令按钮结束一个过程?

来源:百度知道 编辑:UC知道 时间:2024/07/16 04:23:07
比如下面这段代码:

Private Sub Command1_Click()
......
......
End Sub

Private Sub Command2_Click()
......
End Sub

当我点击Command2按钮时结束Command1下面的过程,这样的话在Private Sub Command2_Click()下面应该写一个什么样的命令?

按钮时结束Command1下面的过程?

不一定能实现,因为COMMAND1按下了可能已经挂起,不让你按COMMAND2了。

如果非得要做,你可以这样
外面 DIM a as boolean
COMMANd1 里写 if a then exit sub :a=0
COMMAND2 里写 a=1

LSD,请不要给布尔型变量赋 数值
False = 0
True = -1
================================
一般而言,用一个Boolean变量来保存过程是否要继续执行

TRUE表示继续,FLASE表示终止

但在一个过程运行时,VB就像死了一样,无法进行其他操作,所以VB提供了一个函数
DoEvents()
使程序在处理一个过程的同时,还能进行其他操作。


Dim Doing As Boolean

Private Sub Command1_Click()
Doing = False
End Sub

Private Sub Command2_Click()
DoEvents
If Not Doing Then Exit Sub
'//Add code 1 here.
If Not Doing Then Exit Sub
'//Add code 2 here.
'//...
End Sub

双击按钮后,代码如下:
Private Sub Comamand1_Click()
End
End Sub

Private Sub Command1_Click()
    End
End Sub