透明标签内容循环滚动

zl2017 · 发表于 2018-6-3 11:41:57

https://bbs.125.la/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
.如果真结束

weihua2018 · 发表于 2018-7-10 11:05:02

为什么要有进度条？为什么还没有到结尾就又从头开始了？

玥婷 · 发表于 2018-6-4 18:30:25

怎么一下回了这么多次

xingwuzhe · 发表于 2018-6-4 00:45:44

谢谢分享谢谢

sz66457417 · 发表于 2018-6-3 14:45:22

6666666666666

点通粉丝 · 发表于 2018-6-3 14:29:16

我上面写的只是参考
没这么麻烦只需要把启动窗口改成进度条就行了

窗口程序集名	保留	保留	备注
窗口程序集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	扩展界面支持库一

点通粉丝 · 发表于 2018-6-3 14:28:52

本帖最后由点通粉丝于 2018-6-3 14:31 编辑

怎么一下回了这么多次

点通粉丝 · 发表于 2018-6-3 14:28:18

本帖最后由点通粉丝于 2018-6-3 14:30 编辑

zl2017 · 发表于 2018-6-3 12:47:16

本帖最后由 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

		自动登录	找回密码
密码			注册

[易源码分享] 透明标签内容循环滚动

点评