| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 临_公告数组 | 文本型 | | 0 |
| i | 整数型 | | |
| 临_公告内容 | 文本型 | | |
| 临_公告地址 | 文本型 | | |
| 公告内容组 | 文本型 | | 0 |
| 公告地址组 | 文本型 | | 0 |
| 新公告 | 超级按钮 | | |
| 局_源码 | 文本型 | | |
如果 (按钮1.标题 ＝
“滚动展示” 或 按钮1.标题 ＝
“继续展示”)
停止滚动 ＝ 假
按钮1.标题 ＝
“停止展示”
按钮1.标题 ＝
“继续展示”
停止滚动 ＝ 真
如果真 (停止滚动 ＝
真)时钟1.时钟周期 ＝ 0
返回 ()
如果 (单选框1.选中 ＝
真)滚动方向 ＝ 1
滚动方向 ＝ 2
数组清零 (公告组件_数组)公告条.宽度 ＝ 图片框1.宽度
图片框1.高度 ＝ 公告条.高度
公告条.左边 ＝ 0
公告条.顶边 ＝ 0
图片框1.可视 ＝ 真
局_源码 ＝
UTF8到文本 (网页_访问_对象 (“https://doc.cloudreve.pro/”, , , , , , , , , , , , , , , , , ,
))
临_公告数组 ＝
分割文本 (子文本替换 (文本_取出中间文本 (局_源码,
“,
“[/list]”, , ),
“<a”,
“<”,="" ,="" 真),=""
“”, )
计次循环首 (取数组成员数 (临_公告数组
), i
)临_公告内容 ＝
文本_取出中间文本 (临_公告数组
[i
],
“[url=]”,
“< href=”, ,
)临_公告地址 ＝
文本_取出中间文本 (临_公告数组
[i
],
“< href=” ＋
#引号, #引号 ＋
“>”, ,
) 如果真 (临_公告内容 ≠
“” 且 临_公告地址 ≠
“”)复制窗口组件 (公告条, 新公告
)如果 (取文本长度 (临_公告内容
) ＞ 公告条.宽度 ÷ 6
)新公告.标题 ＝
取文本左边 (临_公告内容,
取整 (公告条.宽度 ÷ 6
) － 4
) ＋
“...”新公告.标题 ＝ 临_公告内容
新公告.宽度 ＝ 公告条.宽度新公告.高度 ＝ 公告条.高度
如果 (滚动方向 ＝ 1
)新公告.顶边
＝ (i － 1
) × 公告条.高度
新公告.左边 ＝ 公告条.左边
新公告.左边
＝ (i － 1
) × 公告条.宽度
新公告.顶边 ＝ 公告条.顶边
新公告.通常背景色 ＝ 图片框1.背景颜色新公告.点燃背景色 ＝ 图片框1.背景颜色
新公告.焦点背景色 ＝ 图片框1.背景颜色
新公告.提示文本 ＝ 临_公告内容
新公告.可视 ＝ 真
新公告.标记 ＝ 临_公告地址
事件转移 (新公告, 公告条
)加入成员 (公告组件_数组, 新公告
)
计次循环尾 ()初始高度 ＝ 公告条.高度
滚动间隔 ＝
到整数 (编辑框1.内容
) × 1000
时钟1.时钟周期 ＝ 滚动间隔
滚动公告.e
(963.25 KB, 下载次数: 5)
