类_高级信息框 也就是 TaskDialog 的使用案例

揰掵佲

乐易模块火山版——您的火山视窗开发神器
https://www.leybc.cn/thread-10-1-1.html
(出处: 火山编程教程培训交流论坛-乐易网络)







这个信息框玩法很多  以下是一个常见的案例 进度条 貌似还没写 暂时没用到 这玩意太折磨人了

1. <火山程序 类型 = "通常" 版本 = 1 />
   
2. 
   
3. 方法 按钮_被单击 <接收事件 类型 = 整数 注释 = "当按钮被单击后发送此事件" 折叠>
   
4. 参数 来源对象 <类型 = 按钮 注释 = "提供事件产生的具体来源对象">
   
5. 参数 标记值 <类型 = 整数 注释 = "用户调用"挂接事件"命令时所提供的"标记值"参数值,非此方式挂接事件则本参数值固定为0.">
   
6. {
   
7.     变量 局_高级信息框 <类型 = 类_高级信息框>
   
8.     局_高级信息框.重置 ()
   
9.     局_高级信息框.置窗口标题 ("超链接测试1")
   
10.     局_高级信息框.置信息标题 ("超链接测试2")
    
11.     局_高级信息框.置信息内容 ("超链接测试3<a href="www.baidu.com">点击百度</a>")
    
12.     局_高级信息框.置图标 (类_高级信息框.图标_盾牌背景)
    
13.     局_高级信息框.启用超链接 (真)
    
14.     局_高级信息框.置按钮图标 (类_高级信息框.按钮_是 + 类_高级信息框.按钮_取消 + 类_高级信息框.按钮_确认 + 类_高级信息框.按钮_重试)
    
15.     局_高级信息框.添加按钮 (100, "我是按钮1")
    
16.     局_高级信息框.添加按钮 (101, "我是按钮2")
    
17.     局_高级信息框.添加单选框 (200, "单选框1")
    
18.     局_高级信息框.添加单选框 (201, "单选框2")
    
19.     局_高级信息框.置默认单选框 (201)
    
20.     局_高级信息框.添加选择框 ("同意协议?", 真)
    
21.     局_高级信息框.设置扩展信息 ("查看问题详细信息", "隐藏问题详细信息", "假的……")
    
22.     局_高级信息框.置底部信息 ("底部信息")
    
23.     局_高级信息框.置底部图标 (类_高级信息框.图标_信息图标)
    
24.     局_高级信息框.置回调函数 (取指针_方法 (_回调模板))
    
25.     局_高级信息框.显示信息框 ()
    
26.     调试输出 (局_高级信息框.取点击按钮 (), 局_高级信息框.取单选框状态 (), 局_高级信息框.取选择框状态 ())
    
27.     返回 (0)
    
28. 
    
29. 
    
30. }
    
31. 
    
32. 方法 _回调模板 <静态 类型 = 整数 注释 = "一般在 事件类型=2 时返回0  其它情况返回1" 折叠>
    
33. 参数 窗口句柄 <类型 = 变整数>
    
34. 参数 事件类型 <类型 = 整数 注释 = "参考 类_高级信息框.事件_ 开头的 常量">
    
35. 参数 参数1 <类型 = 变整数>
    
36. 参数 参数2 <类型 = 变整数>
    
37. 参数 自定义参数 <类型 = 变整数>
    
38. {
    
39.     分支判断 (事件类型)
    
40.     {
    
41.         分支 (类_高级信息框.事件_被创建)
    
42.         {
    
43.             调试输出 ("事件_被创建")
    
44.             跳出分支 ()
    
45.         }
    
46.         分支 (类_高级信息框.事件_切换焦点)
    
47.         {
    
48.             调试输出 ("事件_切换焦点")
    
49.             跳出分支 ()
    
50.         }
    
51.         分支 (类_高级信息框.事件_按钮被点击)
    
52.         {
    
53.             调试输出 ("事件_按钮被点击", 参数1)
    
54.             返回 (0)
    
55.             跳出分支 ()
    
56.         }
    
57.         分支 (类_高级信息框.事件_超链接被点)
    
58.         {
    
59.             变量 局_网址 <类型 = 文本型>
    
60.             局_网址 = 指针到文本 (参数2)
    
61.             调试输出 ("事件_超链接被点", 局_网址)
    
62.             打开指定网址 (局_网址)
    
63.             跳出分支 ()
    
64.         }
    
65.         分支 (类_高级信息框.事件_计时器触发)
    
66.         {
    
67.             调试输出 ("事件_计时器触发")
    
68.             跳出分支 ()
    
69.         }
    
70.         分支 (类_高级信息框.事件_信息框被销毁)
    
71.         {
    
72.             调试输出 ("事件_信息框被销毁")
    
73.             跳出分支 ()
    
74.         }
    
75.         分支 (类_高级信息框.事件_单选框被点击)
    
76.         {
    
77.             调试输出 ("事件_单选框被点击", 参数1)
    
78.             跳出分支 ()
    
79.         }
    
80.         分支 (类_高级信息框.事件_信息框创建完毕)
    
81.         {
    
82.             调试输出 ("事件_信息框创建完毕")
    
83.             跳出分支 ()
    
84.         }
    
85.         分支 (类_高级信息框.事件_选择框状态改变)
    
86.         {
    
87.             调试输出 ("事件_选择框状态改变", 到逻辑_ (参数1))
    
88.             跳出分支 ()
    
89.         }
    
90.         分支 (类_高级信息框.事件_请求帮助)
    
91.         {
    
92.             调试输出 ("事件_请求帮助")
    
93.             跳出分支 ()
    
94.         }
    
95.         分支 (类_高级信息框.事件_展开折叠被点击)
    
96.         {
    
97.             调试输出 ("事件_展开折叠被点击")
    
98.             跳出分支 ()
    
99.         }
    
100.     }
     
101. 
     
102.     返回 (1)
     
103. }
     

复制代码

mygodbox

感谢分享！学习