变量 列表数量 为 整数型
变量 列表间隙 为 整数型

事件 主窗口.创建完毕()
       
结束 事件
函数 添加列表(标题 为 文本型,图片 为 文本型) 为 文本型
       
        变量 列表底部 为 按钮
        变量 列表图片 为 图片框
        变量 列表标题 为 标签
       
        列表底部 = 创建 按钮 位于 垂直滚动框1
        列表图片 = 创建 图片框 位于 垂直滚动框1
        列表标题 = 创建 标签 位于 垂直滚动框1
       
        列表底部.左边 = 按钮2.左边
        列表底部.高度 = 按钮2.高度
        列表底部.宽度 = 按钮2.宽度
        列表底部.顶边 = 列表数量 & 列表底部.高度 + 5
        列表底部.图片 = 按钮2.图片
        列表底部.标题 = ""
       
        列表图片.左边 = 图片框1.左边
        列表图片.顶边 = (图片框1.顶边 - 按钮2.顶边) + 列表底部.顶边
        列表图片.高度 = 图片框1.高度
        列表图片.宽度 = 图片框1.宽度
        列表图片.背景颜色 = 无色
        列表图片.图像 = 图片
       
        列表标题.左边 = 标签2.左边
        列表标题.宽度 = 标签2.宽度
        列表标题.高度 = 标签2.高度
        列表标题.顶边 = (标签2.顶边 - 按钮2.顶边) + 列表底部.顶边
        列表标题.背景颜色 = 无色
        列表标题.字体大小 = 10
        列表标题.标题 = 标题
        列表标题.字体颜色 = &HFF000000
       
        列表数量 = 列表数量 + 1
        列表底部.可视 = 真
        列表图片.可视 = 真
        列表标题.可视 = 真
       
结束 函数


事件 按钮1.被单击()
        添加列表("这是一个美女","4.png")
结束 事件

事件 图片框1.被单击()
       
结束 事件

as59564143 发表于 2018-8-31 16:24
没MRB谁给你做啊

我有                          

没MRB谁给你做啊