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

比如下面这段代码:

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

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

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

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
温馨提示:内容为网友见解,仅供参考
第1个回答  2020-03-04
打开vb,点工具--菜单编辑器,先建一个菜单,如:
文件(file
)--打开(open)
--保存(save)
--关闭(close)
将主菜单“文件”项设为不可见,这样在窗体上就看不见该菜单了。
画一个命令按扭,双击打开,输入以下代码:
popupmenu
file
单击按扭时会出现上面的子菜单。
第2个回答  2008-08-13
按钮时结束Command1下面的过程?

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

如果非得要做,你可以这样
外面 DIM a as boolean
COMMANd1 里写 if a then exit sub :a=0
COMMAND2 里写 a=1
第3个回答  2008-08-14
双击按钮后,代码如下:
Private Sub Comamand1_Click()
End
End Sub
第4个回答  2015-12-07
Private Sub Command1_Click()
    End
End Sub

相似回答