易语言怎样使新建的滚动条的滚轮自动滚到底部?高手进……

2024-12-17 06:35:09
推荐回答(3个)
回答1:

.版本 2
.支持库 spec

.子程序 _按钮1_被单击

.计次循环首 (纵向滚动条1.最大位置 - 纵向滚动条1.位置, )
.如果真 (纵向滚动条1.位置 ≤ 纵向滚动条1.最大位置)
延迟 (30)
纵向滚动条1.位置 = 纵向滚动条1.位置 + 1
.如果真结束

.计次循环尾 ()

就这样了 那个延迟30毫秒自己看情况而定 其实30ms还是长了
(你最好自己新建个子程序 用 启动线程() 来弄 那样界面不会假死)

有疑问还请百度HI

---------第二次修改

上面的如果用户中途向上拖动了 他就不能完全到最低下

.版本 2
.支持库 spec

.子程序 _按钮1_被单击

.循环判断首 ()
延迟 (30)
纵向滚动条1.位置 = 纵向滚动条1.位置 + 1
.循环判断尾 (纵向滚动条1.位置 ≤ 纵向滚动条1.最大位置)

而这个更简短 我相信这个代码更适合你的程序

(这里也不一定要用多线程 按钮消息本来就是个中断)

--------------------------------
修改完善版 用到了多线程

.版本 2
.支持库 EThread
.支持库 spec

.子程序 __启动窗口_创建完毕

启动线程 (&Y_滚动, , )

.子程序 Y_滚动

.循环判断首 ()
延迟 (30)
纵向滚动条1.位置 = 纵向滚动条1.位置 + 1
.循环判断尾 (纵向滚动条1.位置 ≤ 纵向滚动条1.最大位置)

回答2:

.版本 2

.子程序 __启动窗口_创建完毕

纵向滚动条1.位置 = 100

或者横向

回答3:

用循环,计次循环首()