动态添加组件以及仿滚动条组件

易语言 2020-06-22 17:51:25

加入成员 (复制的窗口组建, 标签1)
输出调试文本 (复制窗口组件 (标签1, 复制的窗口组建 [取数组成员数 (复制的窗口组建)]))
.如果 (取数组成员数 (复制的窗口组建) = 1)
复制的窗口组建 [取数组成员数 (复制的窗口组建)].顶边 = 标签1.顶边 + 标签1.高度 + 5
.否则
复制的窗口组建 [取数组成员数 (复制的窗口组建)].顶边 = 复制的窗口组建 [取数组成员数 (复制的窗口组建) - 1].顶边 + 标签1.高度 + 5
.如果结束
复制的窗口组建 [取数组成员数 (复制的窗口组建)].标题 = 到文本 (取数组成员数 (复制的窗口组建))
置随机数种子 ()
复制的窗口组建 [取数组成员数 (复制的窗口组建)].背景颜色 = 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
复制的窗口组建 [取数组成员数 (复制的窗口组建)].可视 = 真
输出调试文本 (取数组成员数 (复制的窗口组建))