|
发表于 2011-4-5 10:01:11
|
显示全部楼层
重庆市重庆市
想了个比较笨的办法,见红色行。
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击, , , 我就是想如果他不输入文本就提示他输入,但是不输入的话只是提示,不载入窗口1,必须输入了才能载入窗口1
.局部变量 窗口载入标志, 逻辑型
窗口载入标志 = 真
.如果真 (删全部空 (编辑框1.内容) = “”)
信息框 (“请输入账号”, 0, )
编辑框1.内容 = “”
编辑框1.获取焦点 ()
窗口载入标志 = 假
.如果真结束
.如果真 (删全部空 (编辑框2.内容) = “”)
信息框 (“请输入密码”, 0, )
编辑框2.内容 = “”
编辑框2.获取焦点 ()
窗口载入标志 = 假
.如果真结束
.如果真 (删全部空 (编辑框3.内容) = “”)
信息框 (“请输入区域”, 0, )
编辑框3.内容 = “”
编辑框3.获取焦点 ()
窗口载入标志 = 假
.如果真结束
.如果真 (删全部空 (编辑框6.内容) = “”)
信息框 (“请输入账号2”, 0, )
编辑框6.内容 = “”
编辑框6.获取焦点 ()
窗口载入标志 = 假
.如果真结束
.如果真 (删全部空 (编辑框5.内容) = “”)
信息框 (“请输入密码2”, 0, )
编辑框5.内容 = “”
编辑框5.获取焦点 ()
窗口载入标志 = 假
.如果真结束
.如果真 (删全部空 (编辑框4.内容) = “”)
信息框 (“请输入区域2”, 0, )
编辑框4.内容 = “”
编辑框4.获取焦点 ()
窗口载入标志 = 假
.如果真结束
.如果真 (窗口载入标志)
载入 (窗口1, , 真) ' 这个是提示了,就会自动载入了。我就是这里不知道怎么弄的
.如果真结束
[e]
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击, , , 我就是想如果他不输入文本就提示他输入,但是不输入的话只是提示,不载入窗口1,必须输入了才能载入窗口1
.局部变量 窗口载入标志, 逻辑型
窗口载入标志 = 真
.如果真 (删全部空 (编辑框1.内容) = “”)
信息框 (“请输入账号”, 0, )
编辑框1.内容 = “”
编辑框1.获取焦点 ()
窗口载入标志 = 假
.如果真结束
.如果真 (删全部空 (编辑框2.内容) = “”)
信息框 (“请输入密码”, 0, )
编辑框2.内容 = “”
编辑框2.获取焦点 ()
窗口载入标志 = 假
.如果真结束
.如果真 (删全部空 (编辑框3.内容) = “”)
信息框 (“请输入区域”, 0, )
编辑框3.内容 = “”
编辑框3.获取焦点 ()
窗口载入标志 = 假
.如果真结束
.如果真 (删全部空 (编辑框6.内容) = “”)
信息框 (“请输入账号2”, 0, )
编辑框6.内容 = “”
编辑框6.获取焦点 ()
窗口载入标志 = 假
.如果真结束
.如果真 (删全部空 (编辑框5.内容) = “”)
信息框 (“请输入密码2”, 0, )
编辑框5.内容 = “”
编辑框5.获取焦点 ()
窗口载入标志 = 假
.如果真结束
.如果真 (删全部空 (编辑框4.内容) = “”)
信息框 (“请输入区域2”, 0, )
编辑框4.内容 = “”
编辑框4.获取焦点 ()
窗口载入标志 = 假
.如果真结束
.如果真 (窗口载入标志)
载入 (窗口1, , 真) ' 这个是提示了,就会自动载入了。我就是这里不知道怎么弄的
.如果真结束
[/e] |
|