以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]button2调用button1中的终止命令，button2后序代码仍然能执行的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=122137)
--  作者：bluesky1437
--  发布时间：2018/7/19 15:14:00
--  [求助]button2调用button1中的终止命令，button2后序代码仍然能执行的问题
 窗口中有button1  button2两个按钮 

bt1按钮中有报错后 
MessageBox.show("***") 
retrun  

在按钮2中输入 代码
Dim bt1 As WinForm.Button = e.Form.controls("Button1")
bt1.PerformClick()
后序代码

点击按钮2后,报错后,按钮2的后序代码仍然执行??

请教各位大神,我应该用什么命令? 
[此贴子已经被作者于2018/7/19 15:14:43编辑过]
--  作者：有点甜
--  发布时间：2018/7/19 15:32:00
--  

用一个vars变量标记，如

 

vars("有错") = true

return

 

调用的时候

 

vars("有错") = false

Dim bt1 As WinForm.Button = e.Form.controls("Button1")
bt1.PerformClick()

If vars("有错") = true then

    return

End If

\'后续代码