變量 项目数量 为 整数型
变量 标题标签集合 为 集合
变量 内容标签集合 为 集合
事件 主窗口.创建完毕 ()
标题标签集合 = 创建 集合
内容标签集合 = 创建 集匼
事件 按钮1.被单击 ()
添加项目 (编辑框1.内容)
过程 添加项目 (标题 为 文本型) ' 动态创建一个项目变量 项目标题 为 标签
变量 项目内容 为 标签
项目标题 = 创建 标签 位于 主窗口 ' 创建项目的标题标签项目标题.移动 (标签1.左边, 标签1.顶边 + 标签1.高度 * 项目数量, 标签1.宽度, 标签1.高度)
项目标题.背景颜色 = 灰色
项目标題.对齐方式 = 靠中居中
项目标题.字体大小 = 9
项目标题.标题 = 标题
项目数量 = 项目数量 + 1
标题标签集合.加入项目 (项目标题)
项目标题.置组件索引 (项目数量)
項目标题.绑定事件 (事件监听器1) ' 绑定按钮的相关事件项目内容 = 创建 标签 位于 主窗口 ' 创建项目的标题标签项目内容.移动 (标签1.左边+4000, 标签1.顶边 + 标签1.高度 * 项目数量, 标签1.宽度, 标签1.高度)
项目内容.背景颜色 = 灰色
项目内容.对齐方式 = 靠中居中
项目内容.字体大小 = 9
项目内容.标题 = 标题
内容标签集合.加入項目 (项目标题)
项目内容.置组件索引 (项目数量)
项目内容.绑定事件 (事件监听器2)
事件 事件监听器1.被单击 (组件索引 为 整数型)
变量 事件标签 为 标签
变量 下移标签 为 标签
变量 计次 为 整数型
事件标签 = 标题标签集合.取项目 (组件索引-2)
事件标签.标题 = "组件索引为：" & 到文本 (组件索引) & "集合总数为：" & 到文夲 (标题标签集合.取项目总数 ())
' 计次=到文本(组件索引) ' 判断循环首 计次 < 内容标签集合.取项目总数() ' 计次 = 计次 + 1 ' 下移标签 = 内容标签集合.取项目(组件索引-2+計次) ' 下移标签.移动(标签1.左边+0, 标签1.顶边 + 标签1.高度+标签1.高度 * 项目数量, 标签1.宽度, 标签1.高度) ' 事件 事件监听器2.被单击 (组件索引 为 整数型)
变量 事件标签 為 标签
事件标签 = 内容标签集合.取项目 (组件索引-2)
事件标签.移动 (标签1.左边, 标签1.顶边 + 标签1.高度 +标签1.高度 * 项目数量, 标签1.宽度, 标签1.高度)
事件 标签1.被单擊 ()
如果 标签1.标题="关" 则
标签2.左边=标签1.左边
标签2.顶边=标签1.顶边+标签1.高度