如图,添加一个按钮和两个编辑框! 如果两个编辑框的内容都不为空的话,就把两个编辑框的内容用信息框提示出来。
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.如果 (编辑框1.内容 ≠ “”)
.如果 (编辑框2.内容 ≠ “”)
.否则
信息框 (“编辑框2.内容不能为空”, 0, )
.如果结束
.否则
信息框 (“编辑框1.内容不能为空”, 0, )
.如果结束
同上,较为详细实例!
.子程序 _按钮1_被单击
.局部变量------ 类型
返回状态文本;文本型
.判断开始 (编辑框1.内容 = “” 或 取文本长度 (编辑框1.内容) < 5)
编辑框1.内容 = “”
编辑框1.获取焦点 ()
返回 ()
.判断 (编辑框2.内容 = “”)
编辑框2.获取焦点 ()
返回 ()
.判断 (编辑框3.内容 = “” 或 取文本长度 (编辑框1.内容) < 4)
编辑框3.内容 = “”
编辑框3.获取焦点 ()
返回 ()
.默认
.如果 (登录 (编辑框1.内容, 编辑框2.内容, 编辑框3.内容, 返回状态文本) = 0)
载入 (窗口1, , 假)
_启动窗口.销毁 ()
.否则
信息框 (返回状态文本, 0, )
启动线程 (&获取验证码, , )
编辑框3.内容 = “”
编辑框3.获取焦点 ()
.如果结束
编辑框1 ≠ “”