主题：仿BootStap和苹果系统的系统消息反馈

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:系统反馈.foxdb

 

 

一直在这里看高手们的帖子，

第一次发自己做的一个小东西，

请大家拍砖！

 

海内存自己，天涯若比邻。

此主题相关图片如下：qq截图20171109151628.png


此主题相关图片如下：qq截图20171109151703.png

此主题相关图片如下：qq截图20171109151840.png


此主题相关图片如下：qq截图20171109151941.png


此主题相关图片如下：qq截图20171109151954.png


此主题相关图片如下：qq截图20171109152008.png

'仿BootStrap和苹果系统系统消息效果
'有动画效果哦 先展开 后收缩
'会自动出现在活动窗口上部中间区域 或者 主界面顶部
'可以不传参
'第一个参数: 信息
'第二个参数: 颜色
'第三个参数: 功能 (确认-需要用户参与点击 | 确认+取消: 可以返回客户点击返回值-varMessageConfirm | 传递数字1,2,3 展开后停顿描述

使用方式 例如以下：

 

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")

 谢谢我们的甜甜老师