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
打开vb,点工具--菜单编辑器,先建一个菜单,如:
文件(file
)--打开(open)
--保存(save)
--关闭(close)
将主菜单“文件”项设为不可见,这样在窗体上就看不见该菜单了。
画一个命令按扭,双击打开,输入以下代码:
popupmenu
file
单击按扭时会出现上面的子菜单。
按钮时结束Command1下面的过程?
不一定能实现,因为COMMAND1按下了可能已经挂起,不让你按COMMAND2了。
如果非得要做,你可以这样
外面 DIM a as boolean
COMMANd1 里写 if a then exit sub :a=0
COMMAND2 里写 a=1
双击按钮后,代码如下:
Private Sub Comamand1_Click()
End
End Sub
Private Sub Command1_Click()
End
End Sub