求大神帮忙解决纵向滚动条的问题

wangqiang5629 · 发表于 2014-4-10 17:06:11

如图，纵向滚动条是在易语言基本组件里面的。
想实现的效果是纵向滚动条往下拉，复制的标签组件全部同时往上移动。反之往下移动。
求大神帮帮忙，或者有案例的也可以，先谢谢各位了。

空之影 · 发表于 2014-4-10 17:42:52

那个怎么象编辑框！

醉看ジ笑红颜づ · 发表于 2014-4-10 18:10:07

[e]
.版本 2

.子程序 _编辑框1_滚轮被滚动, 逻辑型
.参数滚动距离, 整数型
.参数功能键状态, 整数型

.如果 (滚动距离＞ 0)
标签1.顶边＝ 1
.否则

.如果结束

.如果 (滚动距离＜ 0)
标签1.顶边＝ 50
.否则

[/e]

最佳吧楼主~~

小爬虫 · 发表于 2014-4-10 18:26:32

复制的标签组件？

麻烦打包上个源码

wangqiang5629 · 发表于 2014-4-11 10:09:40

[e]
.版本 2

.程序集窗口程序集1
.程序集变量标签, 标签, , "40"
.程序集变量标签顶边, 整数型

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

标签顶边＝标签1.顶边

.子程序 _纵向滚动条1_位置被改变

标签1.顶边＝标签顶边－纵向滚动条1.位置
[/e]

自己找到答案了

wangqiang5629 · 发表于 2014-4-11 10:10:38

[e]
.版本 2

.程序集窗口程序集1
.程序集变量标签, 标签, , "40"
.程序集变量标签顶边, 整数型

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

标签顶边＝标签1.顶边

.子程序 _纵向滚动条1_位置被改变

标签1.顶边＝标签顶边－纵向滚动条1.位置

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

[求助] 求大神帮忙解决纵向滚动条的问题