易语言线程内信息框加载皮肤源码

易语言线程内信息框加载皮肤源码

@韦贝贝

.版本 2
.支持库 EThread

.程序集 窗口程序集1, , , ' 本源码来自三叶资源网(www.sanye.cx)

.子程序 __启动窗口_创建完毕

' 本源码来自三叶资源网(www.sanye.cx)
皮肤_加载 (#皮肤_简洁黑红_新)

.子程序 线程

标签1.调用反馈事件 (取指针地址_文本型 (“这是内容。”), 取指针地址_文本型 (“提示：”), )


.子程序 线程1

信息框 (“这是内容。”, 0, “提示：”, )

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

皮肤_加载 (#皮肤_简洁黑红_新)
信息框 (指针_到文本 (参数一), 0, 指针_到文本 (参数二), )

.子程序 _按钮1_被单击, , , ' 本源码来自三叶资源网(www.sanye.cx)

启动线程 (&线程, , )

.子程序 _按钮2_被单击

启动线程 (&线程1, , )