复制组件编辑框例子源码带纵向滚动条

自带组件还多了一步把不显示的组件给移动到其他地方

显示数量 ＝ 计算窗口可显示编辑框 ()
索引 ＝ 纵向滚动条1.位置
.计次循环首 (取数组成员数 (编辑框), i)
.如果真 (i ≥ 索引 且 i ≤ 索引 ＋ 显示数量) ' 如果是那几个在窗口中显示的编辑框
编辑框 [i].顶边 ＝ 临时计次 × 编辑框 [i].高度
临时计次 ＝ 临时计次 ＋ 1
到循环尾 ()
.如果真结束
编辑框 [i].顶边 ＝ －编辑框 [i].高度 ' 把不是显示在窗口的编辑框都给移动到窗口顶边上
.计次循环尾 ()