滚动条滚轮控制复制窗口组件

例程演示了复制窗口组件（）取事件组件 () 标记 纵向滚动条控件 等相关东西的使用。

纵向滚动条1.位置 ＝ 纵向滚动条1.位置 － 滚动距离 × 10
.如果真 (纵向滚动条1.位置 ＞ 纵向滚动条1.最大位置)
纵向滚动条1.位置 ＝ 纵向滚动条1.最大位置
.如果真结束
_纵向滚动条1_位置被改变 ()

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

_外形框1_滚轮被滚动 (滚动距离, 功能键状态)