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

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

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

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











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

acx520 发表于 2024-6-22 16:00:32

ѧϰ
页: [1] 2
查看完整版本: 文本垂直滚动,怎样写滚动到完全显示完文本停止滚动