- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 仿BootStap和苹果系统的系统消息反馈 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109323)
-- 发布时间：2017/11/9 15:04:00
-- 仿BootStap和苹果系统的系统消息反馈
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:系统反馈.foxdb |
一直在这里看高手们的帖子，
第一次发自己做的一个小东西，
请大家拍砖！
海内存自己，天涯若比邻。
-- 发布时间：2017/11/9 15:17:00
--
此主题相关图片如下：qq截图20171109151628.png
此主题相关图片如下：qq截图20171109151703.png
-- 发布时间：2017/11/9 15:20:00
--
此主题相关图片如下：qq截图20171109151840.png
此主题相关图片如下：qq截图20171109151941.png
此主题相关图片如下：qq截图20171109151954.png
此主题相关图片如下：qq截图20171109152008.png
-- 发布时间：2017/11/9 15:23:00
--
\'仿BootStrap和苹果系统系统消息效果
\'有动画效果哦 先展开 后收缩
\'会自动出现在活动窗口上部中间区域 或者 主界面顶部
\'可以不传参
\'第一个参数: 信息
\'第二个参数: 颜色
\'第三个参数: 功能 (确认-需要用户参与点击 | 确认+取消: 可以返回客户点击返回值-varMessageConfirm | 传递数字1,2,3 展开后停顿描述
-- 发布时间：2017/11/9 15:23:00
--
嗯嗯，东西不错，赞一个。
-- 发布时间：2017/11/9 15:25:00
--
使用方式 例如以下：
Functions.Execute("系统反馈")
Functions.Execute("系统反馈","信息写这里……")
Functions.Execute("系统反馈","信息写这里……","信息蓝")
Functions.Execute("系统反馈","皇上,西北边境大捷!……1,2,3……","成功绿",3)
Functions.Execute("系统反馈","皇上,西北边境大捷!……您看?","警告黄","确认")
Functions.Execute("系统反馈","皇上,是否可以发动淮海战役了?","危险红","确认+取消")
e.Form.Controls("Label2").Text = Vars("varMessageConfirm")
Functions.Execute("系统反馈","颜色+返回值测试","首选项","确认+取消")
e.Form.Controls("Label2").Text = Vars("varMessageConfirm")
Functions.Execute("系统反馈","颜色+返回值测试","成功绿","确认+取消")
e.Form.Controls("Label2").Text = Vars("varMessageConfirm")
Functions.Execute("系统反馈","颜色+返回值测试","信息蓝","确认+取消")
e.Form.Controls("Label2").Text = Vars("varMessageConfirm")
Functions.Execute("系统反馈","颜色+返回值测试","警告黄","确认+取消")
e.Form.Controls("Label2").Text = Vars("varMessageConfirm")
Functions.Execute("系统反馈","颜色+返回值测试","危险红","确认+取消")
e.Form.Controls("Label2").Text = Vars("varMessageConfirm")
-- 发布时间：2017/11/9 16:17:00
--
谢谢我们的甜甜老师
-- 发布时间：2017/11/9 19:16:00
--
做的不错