精易论坛

标题: 透明标签内容循环滚动 [打印本页]

作者: zl2017 时间: 2018-6-3 11:41
标题: 透明标签内容循环滚动
https://125.confly.eu.org/thread-14176237-1-1.html
我发现最佳答案的源码，效果也不是很好
所以分享一下自己写代码
.版本 2
.支持库 iext
.子程序 __启动窗口_创建完毕
透明标签1.左边＝进度条.左边＋进度条.宽度
.子程序 _按钮1_被单击
透明标签1.标题＝编辑框1.内容
透明标签1.宽度＝ 0
时钟1.时钟周期＝ 10

.子程序 _时钟1_周期事件
透明标签1.左边＝透明标签1.左边－ 1
透明标签1.宽度＝透明标签1.宽度＋ 1
.如果真 (透明标签1.左边＝进度条.左边)
透明标签1.左边＝进度条.左边＋进度条.宽度
.如果真结束
.如果真 (透明标签1.宽度＝进度条.宽度)
透明标签1.宽度＝ 0
.如果真结束

作者: zl2017 时间: 2018-6-3 12:47
本帖最后由 zl2017 于 2018-6-3 13:22 编辑

上面满足不超过进度条宽度
但是不满足左右摆动
下面这个满足不超过进度条宽度和左右摆动
.版本 2
.支持库 iext
.程序集窗口程序集1
.程序集变量 number, 整数型
.子程序 __启动窗口_创建完毕

.子程序 _按钮1_被单击
透明标签1.标题＝编辑框1.内容
透明标签1.左边＝进度条.左边＋进度条.宽度
透明标签1.宽度＝ 0
number ＝ 1
时钟1.时钟周期＝ 10

.子程序 _时钟1_周期事件
透明标签1.左边＝透明标签1.左边－ number
.如果真 (透明标签1.宽度＜到数值 (取文本长度 (编辑框1.内容)) × 6) ' ‘进场不超过进度条
透明标签1.宽度＝透明标签1.宽度＋ number
.如果真结束
.如果真 (透明标签1.左边＝进度条.左边)
number ＝ -1
.如果真结束
.如果真 (透明标签1.左边＝进度条.左边＋进度条.宽度－取文本长度 (编辑框1.内容) × 6)
number ＝ 1

作者: 点通粉丝 时间: 2018-6-3 14:28
本帖最后由点通粉丝于 2018-6-3 14:30 编辑

作者: 点通粉丝 时间: 2018-6-3 14:28
本帖最后由点通粉丝于 2018-6-3 14:31 编辑

怎么一下回了这么多次

作者: 点通粉丝 时间: 2018-6-3 14:29
我上面写的只是参考
没这么麻烦只需要把启动窗口改成进度条就行了

窗口程序集名	保留	保留	备注
窗口程序集1
变量名	类型	数组	备注
number	整数型

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

透明标签1.左边＝进度条.宽度－透明标签1.宽度
number ＝ 1

子程序名	返回值类型	公开	备注
_按钮1_被单击

透明标签1.标题＝编辑框1.内容
透明标签1.宽度＝到数值 (取文本长度 (编辑框1.内容)) × 6
时钟1.时钟周期＝ 10

子程序名	返回值类型	公开	备注
_时钟1_周期事件

透明标签1.左边＝透明标签1.左边－ number

如果真 (透明标签1.左边＝进度条.左边)

number ＝ -1

如果真 (透明标签1.左边＋透明标签1.宽度＝进度条.宽度)

number ＝ 1

i支持库列表	支持库注释
iext	扩展界面支持库一

作者: sz66457417 时间: 2018-6-3 14:45
6666666666666

作者: xingwuzhe 时间: 2018-6-4 00:45
谢谢分享谢谢

作者: 玥婷 时间: 2018-6-4 18:30
怎么一下回了这么多次

作者: weihua2018 时间: 2018-7-10 11:05
为什么要有进度条？为什么还没有到结尾就又从头开始了？

欢迎光临精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4