| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]自定函数停止执行？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108716) |
| -- 作者：wangmin2659 -- 发布时间：2017/10/27 16:54:00 -- [求助]自定函数停止执行？ Dim yonghuming As WinForm.TextBox = e.Form.Controls("用户名") Dim mima As WinForm.TextBox = e.Form.Controls("密码") If yonghuming.Text="" Then MessageBox.Show("请输入用户名!") Return End If If mima.Text="" Then MessageBox.Show("请输入密码!") Return End If 以上是我想试实现的内容，因为程序中有大量需要检查是否为空的判断，我想通过函数来解决。 Dim kongjianmingcheng As WinForm.TextBox = args(0) Dim checkmessage As String =args(1) If kongjianmingcheng.Text = "" Then MessageBox.show(checkmessage) kongjianmingcheng.Select() End If 基本功能已经实现。但是如何在调用这个自定义函数时候，即使检查是空了，主程序还是会往下执行 我想能否实现，自定函数执行完了，如果正确，就往下执行，如果不正确，就停止执行？
|
| -- 作者：有点甜 -- 发布时间：2017/10/27 17:04:00 -- 自定义函数返回一个值
return true/false
调用自定义函数的时候接收返回的值
Dim result = Functions.Execute("函数1") If result = true Then
End If |
| -- 作者：wangmin2659 -- 发布时间：2017/10/27 17:15:00 -- 我目前就是这样处理的. |
| -- 作者：有点甜 -- 发布时间：2017/10/27 17:59:00 -- 没理解你说的问题，例子发上来说明。 |