易语言画板自绘的滚动条

画板1.清除 (画板1.宽度 － 10, 0, 10, 画板1.高度)
画板1.刷子颜色 ＝ #浅灰
画板1.画笔颜色 ＝ 画板1.刷子颜色
画板1.画圆角矩形 (画板1.宽度, 画板1.高度, 画板1.宽度 － 20 ＋ 10, 0, 10, 10)
画板1.刷子颜色 ＝ 选择 (在范围内, #深灰, #灰色)
画板1.画笔颜色 ＝ 画板1.刷子颜色
' m_当前位置 ＝ m_当前位置 ÷ (m_最大位置 ÷ 2) × 100
画板1.画圆角矩形 (画板1.宽度, m_滚动块高 ＋ m_当前位置, 画板1.宽度 － 20 ＋ 10, 0 ＋ m_当前位置, 10, 10)
画板1.定位写出 (0, －m_当前位置, m_显示文本)