Question

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

比如下面这段代码:

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

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

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

Answer 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

Answer 2

打开vb，点工具--菜单编辑器，先建一个菜单，如：
文件（file
）--打开(open)
--保存(save)
--关闭(close)
将主菜单“文件”项设为不可见，这样在窗体上就看不见该菜单了。
画一个命令按扭，双击打开，输入以下代码：
popupmenu
file
单击按扭时会出现上面的子菜单。

Answer 3

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

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

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

Answer 4

双击按钮后，代码如下：
Private Sub Comamand1_Click()
End
End Sub

Answer 5

Private Sub Command1_Click()
    End
End Sub