vb中怎样通过命令按钮结束一个过程?
比如下面这段代码:PrivateSubCommand1_Click()............EndSubPrivateSubCommand2_Click().........
比如下面这段代码:
Private Sub Command1_Click()
......
......
End Sub
Private Sub Command2_Click()
......
End Sub
当我点击Command2按钮时结束Command1下面的过程,这样的话在Private Sub Command2_Click()下面应该写一个什么样的命令? 展开
Private Sub Command1_Click()
......
......
End Sub
Private Sub Command2_Click()
......
End Sub
当我点击Command2按钮时结束Command1下面的过程,这样的话在Private Sub Command2_Click()下面应该写一个什么样的命令? 展开
5个回答
展开全部
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
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
单击按扭时会出现上面的子菜单。
文件(file
)--打开(open)
--保存(save)
--关闭(close)
将主菜单“文件”项设为不可见,这样在窗体上就看不见该菜单了。
画一个命令按扭,双击打开,输入以下代码:
popupmenu
file
单击按扭时会出现上面的子菜单。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
按钮时结束Command1下面的过程?
不一定能实现,因为COMMAND1按下了可能已经挂起,不让你按COMMAND2了。
如果非得要做,你可以这样
外面 DIM a as boolean
COMMANd1 里写 if a then exit sub :a=0
COMMAND2 里写 a=1
不一定能实现,因为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 Comamand1_Click()
End
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Command1_Click()
End
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询