按钮弹出信息框

ytm易小白

假如启动窗口有很多的按钮，如果启动窗口创建完毕时变量（有效=假），有没有办法做到点击任何按钮都弹信息框提示有效为假呢？程序不继续往下执行！

aipca

补个E文件

补充内容 (2025-4-29 23:44):
判断 (有效 ＝ 假)
信息框 (“有效 ＝ 假”, 0, , )
返回（）'漏了这个

BruceJoysky1987

进行校验—函数调用

难寻。

那就每个按钮里加个全局变量判断就可以了

Ruang

  

如果真 (有效 ＝ 假)
调试输出 (sj按钮.标题 ＋ “被单击”)
返回 ()  ' 返回后不继续往下执行

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .如果真 (有效 ＝ 假)<br /> <br />     调试输出 (sj按钮.标题 ＋ “被单击”)<br /> <br />     返回 ()  ' 返回后不继续往下执行<br /> .如果真结束

每个按钮事件下面第一段添加这个


补充内容 (2025-4-29 23:19):
中间调试内容可以不用

aipca

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
有效	逻辑型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
找按钮	整数型
i	整数型
按钮事件	按钮

有效 ＝ 假
找按钮 ＝ 寻找组件 (_启动窗口, , “按钮”, , )
计次循环首 (取找到组件数目 (找按钮), i)
按钮事件 ＝ 取所找到组件 (找按钮, i － 1)
判断 (按钮事件.标题 ≠ “按钮1”)  ' 找一个标题或标记按钮做为事件对向。
事件转移 (按钮事件, 按钮1)



计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

判断 (有效 ＝ 假)
信息框 (“有效 ＝ 假”, 0, , )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 有效, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 找按钮, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 按钮事件, 按钮<br /> <br /> 有效 ＝ 假<br /> 找按钮 ＝ 寻找组件 (_启动窗口, , “按钮”, , )<br /> .计次循环首 (取找到组件数目 (找按钮), i)<br />     按钮事件 ＝ 取所找到组件 (找按钮, i － 1)<br />     .判断开始 (按钮事件.标题 ≠ “按钮1”)  ' 找一个标题或标记按钮做为事件对向。<br />         事件转移 (按钮事件, 按钮1)<br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .判断开始 (有效 ＝ 假)<br />     信息框 (“有效 ＝ 假”, 0, , )<br /> .默认