.版本 2
.子程序 _临时子程序
' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
屏幕_写字 (“这是测试文本”, 200, 200, , 80, #红色)
.子程序 屏幕_写字, , 公开
.参数 文本, 文本型, 可空, 默认为“屏幕写字”
.参数 横坐标, 整数型, 可空, 默认0
.参数 纵坐标, 整数型, 可空, 默认0
.参数 字体, 文本型, 可空, 默认宋体,必须保证字体有效
.参数 字体大小, 整数型, 可空, 默认20
.参数 文本颜色, 整数型, 可空, 默认 #红色
.局部变量 临字体, 字体
.如果真 (载入 (窗口1, , 假))
.如果真 (是否为空 (文本))
文本 = “屏幕写字”
.如果真结束
窗口1.标签1.标题 = 文本
窗口1.左边 = 横坐标
窗口1.顶边 = 纵坐标
.如果真 (是否为空 (字体))
字体 = “宋体”
.如果真结束
.如果真 (是否为空 (字体大小))
字体大小 = 20
.如果真结束
.如果真 (是否为空 (文本颜色))
文本颜色 = #红色
.如果真结束
临字体.字体名称 = 字体
临字体.字体大小 = 字体大小
窗口1.标签1.字体 = 临字体
窗口1.标签1.文本颜色 = 文本颜色
.如果真结束
.子程序 屏幕_写字_擦除, , , ' 本源码来自三叶资源网(www.sanye.cx)
.如果真 (是否已创建 (窗口1))
窗口1.销毁 ()