| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | | | |
| 变量名 | 类 型 | 数组 | 备 注 |
| 诗人 | 文本型 | 0 |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 句柄 | 整数型 | | |
| i | 整数型 | | |
| 图片框 | 图片框 | | |
| 图片框名称 | 文本型 | | |
诗人 ＝
{ “李白”,
“杜甫”,
“白居易”,
“苏轼”,
“李清照”,
“辛弃疾”,
“杜牧” }句柄 ＝
寻找组件 (_启动窗口, ,
“图片框”, ,
)
计次循环首 (取找到组件数目 (句柄
), i
)
图片框 ＝
取所找到组件 (句柄, i － 1
)图片框名称 ＝
取组件名称 (图片框
)图片框.标记 ＝
到文本 (文本_取右边 (取组件名称 (图片框
),
“图片框”, ,
))
调试输出 (“图片框：” ＋ 图片框名称 ＋
“标记：” ＋ 图片框.标记
)
如果真 (图片框.标记 ≠
“1”)事件转移 (图片框, 图片框1
)
计次循环尾 ()清除组件寻找句柄 (句柄
)|
| _图片框1_鼠标左键被按下 | 逻辑型 | |
|
| 横向位置 | 整数型 | | | |
纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 图片框 | 图片框 | | |
| 待添加文本 | 文本型 | | |
| 内容数组 | 文本型 | | 0 |
| i | 整数型 | | |
| 新内容 | 文本型 | | |
图片框 ＝
取事件组件 ()待添加文本 ＝ 诗人
[到整数 (图片框.标记
)] 内容数组 ＝
分割文本 (编辑框1.内容,
“|”,
) 计次循环首 (取数组成员数 (内容数组
), i
)如果 (内容数组
[i
] ＝ 待添加文本
) 删除成员 (内容数组, i,
) 新内容 ＝
“”计次循环首 (取数组成员数 (内容数组
), i
)如果 (i ＞ 1
)
新内容 ＝ 新内容 ＋
“|”
新内容 ＝ 新内容 ＋ 内容数组 [i]计次循环尾 ()编辑框1.内容 ＝ 新内容
返回 ()
计次循环尾 () 判断 (编辑框1.内容 ＝
“”)编辑框1.
加入文本 (待添加文本
)编辑框1.
加入文本 (“|” ＋ 待添加文本
)
在被选中的图片框上写字，然后选中其他图片框时所有图片框重画一下移除文本
选中的图片 你调整大小宽度 计算与选中图片框的位置偏移 进行 顶边等参数的变化