类_高级信息框 也就是 TaskDialog 的使用案例
乐易模块火山版——您的火山视窗开发神器
https://www.leybc.cn/thread-10-1-1.html
(出处: 火山编程教程培训交流论坛-乐易网络)
这个信息框玩法很多以下是一个常见的案例 进度条 貌似还没写 暂时没用到 这玩意太折磨人了
<火山程序 类型 = "通常" 版本 = 1 />
方法 按钮_被单击 <接收事件 类型 = 整数 注释 = "当按钮被单击后发送此事件" 折叠>
参数 来源对象 <类型 = 按钮 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
{
变量 局_高级信息框 <类型 = 类_高级信息框>
局_高级信息框.重置 ()
局_高级信息框.置窗口标题 ("超链接测试1")
局_高级信息框.置信息标题 ("超链接测试2")
局_高级信息框.置信息内容 ("超链接测试3<a href=\"www.baidu.com\">点击百度</a>")
局_高级信息框.置图标 (类_高级信息框.图标_盾牌背景)
局_高级信息框.启用超链接 (真)
局_高级信息框.置按钮图标 (类_高级信息框.按钮_是 + 类_高级信息框.按钮_取消 + 类_高级信息框.按钮_确认 + 类_高级信息框.按钮_重试)
局_高级信息框.添加按钮 (100, "我是按钮1")
局_高级信息框.添加按钮 (101, "我是按钮2")
局_高级信息框.添加单选框 (200, "单选框1")
局_高级信息框.添加单选框 (201, "单选框2")
局_高级信息框.置默认单选框 (201)
局_高级信息框.添加选择框 ("同意协议?", 真)
局_高级信息框.设置扩展信息 ("查看问题详细信息", "隐藏问题详细信息", "假的……")
局_高级信息框.置底部信息 ("底部信息")
局_高级信息框.置底部图标 (类_高级信息框.图标_信息图标)
局_高级信息框.置回调函数 (取指针_方法 (_回调模板))
局_高级信息框.显示信息框 ()
调试输出 (局_高级信息框.取点击按钮 (), 局_高级信息框.取单选框状态 (), 局_高级信息框.取选择框状态 ())
返回 (0)
}
方法 _回调模板 <静态 类型 = 整数 注释 = "一般在 事件类型=2 时返回0其它情况返回1" 折叠>
参数 窗口句柄 <类型 = 变整数>
参数 事件类型 <类型 = 整数 注释 = "参考 类_高级信息框.事件_ 开头的 常量">
参数 参数1 <类型 = 变整数>
参数 参数2 <类型 = 变整数>
参数 自定义参数 <类型 = 变整数>
{
分支判断 (事件类型)
{
分支 (类_高级信息框.事件_被创建)
{
调试输出 ("事件_被创建")
跳出分支 ()
}
分支 (类_高级信息框.事件_切换焦点)
{
调试输出 ("事件_切换焦点")
跳出分支 ()
}
分支 (类_高级信息框.事件_按钮被点击)
{
调试输出 ("事件_按钮被点击", 参数1)
返回 (0)
跳出分支 ()
}
分支 (类_高级信息框.事件_超链接被点)
{
变量 局_网址 <类型 = 文本型>
局_网址 = 指针到文本 (参数2)
调试输出 ("事件_超链接被点", 局_网址)
打开指定网址 (局_网址)
跳出分支 ()
}
分支 (类_高级信息框.事件_计时器触发)
{
调试输出 ("事件_计时器触发")
跳出分支 ()
}
分支 (类_高级信息框.事件_信息框被销毁)
{
调试输出 ("事件_信息框被销毁")
跳出分支 ()
}
分支 (类_高级信息框.事件_单选框被点击)
{
调试输出 ("事件_单选框被点击", 参数1)
跳出分支 ()
}
分支 (类_高级信息框.事件_信息框创建完毕)
{
调试输出 ("事件_信息框创建完毕")
跳出分支 ()
}
分支 (类_高级信息框.事件_选择框状态改变)
{
调试输出 ("事件_选择框状态改变", 到逻辑_ (参数1))
跳出分支 ()
}
分支 (类_高级信息框.事件_请求帮助)
{
调试输出 ("事件_请求帮助")
跳出分支 ()
}
分支 (类_高级信息框.事件_展开折叠被点击)
{
调试输出 ("事件_展开折叠被点击")
跳出分支 ()
}
}
返回 (1)
}
感谢分享！学习
页:
[1]