建议精易模块增加一个 滚屏公告类的功能

顶级娱乐·

最近因为需要用到这个，随便写了下，想到封装成模块更好，基本都会调用精易模块，所以建议精易模块增加一个 滚屏公告类的功能 不管是动画框还是标签还是什么组件实现都行 我目前用的是 标签  有点bug  我没完善，因为我是按照我的字体大小来设置的，固定的，如果用我这个可以写个自动换算就行了  我用的字体大小是 12号  具体请看二楼

  

子程序名	返回值类型	公开	备 注
公告_滚动
参数名	类 型	参考	可空	数组	备 注
公告标签	标签
所在窗口	窗口
文本	文本型				滚动字幕的文本
是否关闭	逻辑型				默认假 开启
速度	整数型

判断 (是否关闭)
停止滚动 ＝ 真
强制结束线程 (线程2句柄)
公告标签.标题 ＝ “”
返回 ()
标签 ＝ 公告标签
当前窗口1 ＝ 所在窗口
判断 (线程取状态 (线程2句柄) ＜ 1)
停止滚动 ＝ 假
线程2句柄 ＝ 线程_启动多参_文本型 (&滚动公告, 速度, 文本, , , , )
停止滚动 ＝ 真
强制结束线程 (线程2句柄)
程序延时 (1000, )
停止滚动 ＝ 假
线程2句柄 ＝ 线程_启动多参_文本型 (&滚动公告, 速度, 文本, , , , )

子程序名	返回值类型	公开	备 注
滚动公告
参数名	类 型	参考	可空	数组	备 注
滚动速度	整数型
文本	文本型

变量名	类 型	静态	数组	备 注
是否关闭	逻辑型
周期	整数型

标签.左边 ＝ 当前窗口1.宽度
标签.宽度 ＝ 取文本长度 (文本) × 8.6
标签.标题 ＝ 文本
循环判断首 ()
如果真 (周期 ≥ 6)
周期 ＝ 0
如果真 (标签.左边 ≤ －标签.宽度)
标签.左边 ＝ 当前窗口1.宽度
周期 ＝ 周期 ＋ 1
标签.左边 ＝ 标签.左边 － 1
程序延时 (滚动速度, )
循环判断尾 (停止滚动 ＝ 假)

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .子程序 公告_滚动, , 公开<br /> .参数 公告标签, 标签<br /> .参数 所在窗口, 窗口<br /> .参数 文本, 文本型, , 滚动字幕的文本<br /> .参数 是否关闭, 逻辑型, , 默认假 开启<br /> .参数 速度, 整数型<br /> <br /> .判断开始 (是否关闭)<br />     停止滚动 ＝ 真<br />     强制结束线程 (线程2句柄)<br />     公告标签.标题 ＝ “”<br />     返回 ()<br /> .默认<br />     标签 ＝ 公告标签<br />     当前窗口1 ＝ 所在窗口<br />     .判断开始 (线程取状态 (线程2句柄) ＜ 1)<br />         停止滚动 ＝ 假<br />         线程2句柄 ＝ 线程_启动多参_文本型 (&滚动公告, 速度, 文本, , , , )<br />     .默认<br />         停止滚动 ＝ 真<br />         强制结束线程 (线程2句柄)<br />         程序延时 (1000, )<br />         停止滚动 ＝ 假<br />         线程2句柄 ＝ 线程_启动多参_文本型 (&滚动公告, 速度, 文本, , , , )<br />     .判断结束<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 滚动公告<br /> .参数 滚动速度, 整数型<br /> .参数 文本, 文本型<br /> .局部变量 是否关闭, 逻辑型<br /> .局部变量 周期, 整数型<br /> <br /> 标签.左边 ＝ 当前窗口1.宽度<br /> 标签.宽度 ＝ 取文本长度 (文本) × 8.6<br /> 标签.标题 ＝ 文本<br /> .循环判断首 ()<br />     .如果真 (周期 ≥ 6)<br />         周期 ＝ 0<br />     .如果真结束<br />     .如果真 (标签.左边 ≤ －标签.宽度)<br />         标签.左边 ＝ 当前窗口1.宽度<br />         周期 ＝ 周期 ＋ 1<br />     .如果真结束<br />     标签.左边 ＝ 标签.左边 － 1<br />     程序延时 (滚动速度, )<br /> .循环判断尾 (停止滚动 ＝ 假)

顶级娱乐·

附上源码了，可以直接调用  喜欢可以修复完善并加到精易模块 目前代码适用字体及调用方法请看图片，演示请看GIF 。

天生表演家

模块应该不好把易语言自带组件添加进去，真要做，你的把代码重构，并采用自绘方式画出来。到时候那模块大小

顶级娱乐·

shituo 发表于 2022-6-21 20:07
代码写这么烂还 添加呢

临时用的 三分钟写的，我意思是建议添加这类功能，如果用我的这个就得优化  瞎？

shituo

代码写这么烂还 添加呢

石榴熟了

支持大佬

一C

支持大佬 可以安排个GIF