文本垂直滚动,怎样写滚动到完全显示完文本停止滚动

rianwg · 发表于 2021-2-21 03:35:38

本帖最后由 rianwg 于 2021-2-21 03:37 编辑

文本垂直滚动,虽然可以滚动，但无法计算出是否已经完全显示完文本。
超烧脑...类似这种滚动的，怎样实现显示完最后一个行文本就停止滚动。

QQ图片20210221033241.png

文本滚动.rar (26.2 KB, 下载次数: 33)

17660734 · 发表于 2021-2-21 07:22:19

本帖最后由 17660734 于 2021-2-21 07:23 编辑

事件时钟1.周期事件()
      如果位置数<文本总长则
      垂直滚动框1.滚动(位置数)
      位置数=位置数+10
      否则
      时钟1.时钟周期=0
滚动按钮.标题="滚动开始"

      结束如果

结束事件

sasa1 · 发表于 2021-2-21 10:59:41

，但无法计算出是否已经

rianwg · 发表于 2021-2-21 11:33:51

17660734 发表于 2021-2-21 07:22
事件时钟1.周期事件()
如果位置数

谢谢你的回复，目前上这样写是不合理的。把行距或者字体增大，问题就出现了。有没有其它的写法，最好根据文本的长度计算出编辑框的高度，只是不知道怎么计算…

gaoao330 · 发表于 2021-2-21 18:20:25

路过666666666666666

qanjn · 发表于 2021-2-21 21:32:22

用一个标签做参照试试

17660734 · 发表于 2021-2-21 21:58:39

本帖最后由 17660734 于 2021-2-21 22:15 编辑

rianwg 发表于 2021-2-21 11:33
谢谢你的回复，目前上这样写是不合理的。把行距或者字体增大，问题就出现了。有没有其它的写法，最好根据 ...

事件时钟1.周期事件()
垂直滚动框1.滚动(位置数)
判断循环首位置数<文本总长
位置数=位置数+1
判断循环尾
结束事件

事件垂直滚动框1.被滚动(纵向滚动距离为整数型,是否已滚动到顶部或底部为逻辑型)
      如果是否已滚动到顶部或底部=真则
            时钟1.时钟周期=0
            滚动按钮.标题="滚动开始"
      结束如果
结束事件

wrazjd · 发表于 2021-2-22 07:23:46

易如意中文编程学习交流论坛有你更精彩

acx520 · 发表于 2023-12-28 19:21:22

66666666