自绘窗信息框 非常好看的信息框！！！

精意源码

声明：原帖https://bbs.125.la/thread-14451639-1-1.html，By：Cat UI - 转载请注明出处 本人只是修改，最终版权不归我所有，但如果转载我修改的源码，请注明出处！！

优化部分：

• 自适应各个行数的窗口宽度，ps：行数>8，>16，>29都会做出相应的调整
• 优化界面（添加2个控制按钮）做出了写调整
• 添加按钮样式（0.圆角 1.正常）
• 添加了很多参数（按钮样式；窗口Esc关闭；反馈回调函数；采用对话框方式）
• 修改了按钮回调函数：按钮的回调函数（根据传入按钮集合中的按钮顺序来排序，点击按钮1反馈1）。此参数可被省略。
• 添加了跟多的程序集：
• 更多请下载后自行查看...
  

界面截图

行数>29

..

行数5<

部分代码展示

  

子程序名	返回值类型	公开	备 注
Cat_信息框	文本型		返回用户按下的按钮标题，如未指定按钮，默认为确定按钮
参数名	类 型	参考	可空	数组	备 注
提示信息	文本型				提示信息不限长度，允许多行
窗口标题	文本型				信息框窗口的标题文字，最多44个字符，1个汉字为2个字符。如果省略此参数，默认为文本“温馨提示：”。
按钮集合	文本型				信息框按钮数组，取每个数组成员文本为按钮标题，最多三个。如果省略此参数，默认只显示确定按钮
按钮样式	整数型				0为圆角.1为方
提示图标	整数型				信息框图标样式：0.成功图标 1.信息图标 2.警告图标 3.错误图标 4.询问图标 如果省略此参数，默认为信息图标
窗口前置	逻辑型				定义是否将信息框窗口前置。如果省略此参数，默认为假
窗口标题颜色	整数型				信息框窗口的标题文字颜色，如果是rgb颜色，请使用系统支持库的取颜色值()来获取。如果省略此参数，默认为黑色。
窗口Esc关闭	逻辑型
提示信息颜色	整数型				提示信息文字颜色，如果是rgb颜色，请使用系统支持库的取颜色值()来获取。如果省略此参数，默认为黑色。
按钮回调函数	子程序指针				按钮的回调函数（根据传入按钮集合中的按钮顺序来排序，点击按钮1反馈1）。此参数可被省略。
反馈回调函数	子程序指针				窗口状态回调函数，需要带索引的参数指针；反馈：-1.窗口被关闭1.窗口首次激活2.位置被改变3.窗口被激活4.窗口被显示5.被隐藏。此参数可被省略。
采用对话框方式	逻辑型

.版本 2<br /> <br /> .子程序 Cat_信息框, 文本型, 公开, 返回用户按下的按钮标题，如未指定按钮，默认为确定按钮<br /> .参数 提示信息, 文本型, 可空, 提示信息不限长度，允许多行<br /> .参数 窗口标题, 文本型, 可空, 信息框窗口的标题文字，最多44个字符，1个汉字为2个字符。如果省略此参数，默认为文本“温馨提示：”。<br /> .参数 按钮集合, 文本型, 可空 数组, 信息框按钮数组，取每个数组成员文本为按钮标题，最多三个。如果省略此参数，默认只显示确定按钮<br /> .参数 按钮样式, 整数型, 可空, 0为圆角.1为方<br /> .参数 提示图标, 整数型, 可空, 信息框图标样式：0.成功图标 1.信息图标 2.警告图标 3.错误图标 4.询问图标 如果省略此参数，默认为信息图标<br /> .参数 窗口前置, 逻辑型, 可空, 定义是否将信息框窗口前置。如果省略此参数，默认为假<br /> .参数 窗口标题颜色, 整数型, 可空, 信息框窗口的标题文字颜色，如果是rgb颜色，请使用系统支持库的取颜色值()来获取。如果省略此参数，默认为黑色。<br /> .参数 窗口Esc关闭, 逻辑型, 可空<br /> .参数 提示信息颜色, 整数型, 可空, 提示信息文字颜色，如果是rgb颜色，请使用系统支持库的取颜色值()来获取。如果省略此参数，默认为黑色。<br /> .参数 按钮回调函数, 子程序指针, 可空, 按钮的回调函数（根据传入按钮集合中的按钮顺序来排序，点击按钮1反馈1）。此参数可被省略。<br /> .参数 反馈回调函数, 子程序指针, 参考 可空, 窗口状态回调函数，需要带索引的参数指针；反馈：-1.窗口被关闭1.窗口首次激活2.位置被改变3.窗口被激活4.窗口被显示5.被隐藏。此参数可被省略。<br /> .参数 采用对话框方式, 逻辑型, 可空

调用方式；例程

  

Cat_信息框 (“By：Cat UI - 转载请注明出处 本人只是修改，最终版权不归我所有请注明，请注明出处”, “温馨提示：”, { “&确定”, “取消”, “重试” }, 0, 0, , 取颜色值 (51, 51, 51), 真, 取颜色值 (255, 128, 0), &测试回调函数, &状态, 假)  ' 打开信息框
' Cat_关闭 ()  ' 销毁信息框
' Cat_取位置 ()  ' 取信息框当前位置，并未

.版本 2<br /> <br /> Cat_信息框 (“By：Cat UI - 转载请注明出处 本人只是修改，最终版权不归我所有请注明，请注明出处”, “温馨提示：”, { “&确定”, “取消”, “重试” }, 0, 0, , 取颜色值 (51, 51, 51), 真, 取颜色值 (255, 128, 0), &测试回调函数, &状态, 假)  ' 打开信息框<br /> ' Cat_关闭 ()  ' 销毁信息框<br /> ' Cat_取位置 ()  ' 取信息框当前位置，并未

纯组件简约信息框UI（自适应高度 回调函数）.zip (204.37 KB, 下载次数: 303)

2022-8-22 19:11 上传

点击文件名下载附件
纯组件简约信息框UI（自适应高度 ...

精意源码

fmh111 发表于 2023-11-16 02:21
这个位置不能出现在右下角吗?

窗口移动，稍微修改一下就可以实现

精意源码

感谢支持

fmh111

这个位置不能出现在右下角吗?

doudou1234

那个说锯木头的你造一把锯子出来再说话

为你忧伤

厉害了

lcx123

支持开源~！感谢分享

wrq375520

感谢分享

一个小男人

        感谢分享，很给力！~

cxycxycxy

学习了！！！！！！！！