图片框问题

313503791

又又又又又来麻烦各位大佬了 如图所示，拥有很多个图片框（注意，超级多，100位古代诗人 后续点击还要弹出来他们的诗）现在点击图片框之后，需要让【已选中】这个图片自动到达图片框（重合，遮挡一部分，大概是这样）。但是问题是，图片框现在已经已经有100个了，我能理解的方法就是再复制100个..然后可视 真假 但是太麻烦了..想用复制组件吧 感觉又会影响我后面给图片框打的标记啥的 各位大佬有没有更好的办法哇！！！！！

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
诗人	文本型	0

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
句柄	整数型
i	整数型
图片框	图片框
图片框名称	文本型

诗人 ＝ { “李白”, “杜甫”, “白居易”, “苏轼”, “李清照”, “辛弃疾”, “杜牧” }
句柄 ＝ 寻找组件 (_启动窗口, , “图片框”, , )
计次循环首 (取找到组件数目 (句柄), i)
图片框 ＝ 取所找到组件 (句柄, i － 1)
图片框名称 ＝ 取组件名称 (图片框)
图片框.标记 ＝ 到文本 (文本_取右边 (取组件名称 (图片框), “图片框”, , ))
调试输出 (“图片框：” ＋ 图片框名称 ＋ “标记：” ＋ 图片框.标记)
如果真 (图片框.标记 ≠ “1”)
事件转移 (图片框, 图片框1)

计次循环尾 ()
清除组件寻找句柄 (句柄)

子程序名	返回值类型	公开	备 注
_图片框1_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
图片框	图片框
待添加文本	文本型
内容数组	文本型		0
i	整数型
新内容	文本型

图片框 ＝ 取事件组件 ()
待添加文本 ＝ 诗人 [到整数 (图片框.标记)]
' 将编辑框内容按 "|" 分割成数组
内容数组 ＝ 分割文本 (编辑框1.内容, “|”, )
' 检查数组中是否存在待添加文本
计次循环首 (取数组成员数 (内容数组), i)
如果 (内容数组 [i] ＝ 待添加文本)
' 若存在，将该元素从数组中移除
删除成员 (内容数组, i, )
' 生成新的编辑框内容
新内容 ＝ “”
计次循环首 (取数组成员数 (内容数组), i)
如果 (i ＞ 1)
新内容 ＝ 新内容 ＋ “|”


新内容 ＝ 新内容 ＋ 内容数组 [i]
计次循环尾 ()
编辑框1.内容 ＝ 新内容
返回 ()



计次循环尾 ()
' 若不存在，添加文本
判断 (编辑框1.内容 ＝ “”)
编辑框1.加入文本 (待添加文本)
编辑框1.加入文本 (“|” ＋ 待添加文本)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 诗人, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 句柄, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 图片框, 图片框<br /> .局部变量 图片框名称, 文本型<br /> <br /> 诗人 ＝ { “李白”, “杜甫”, “白居易”, “苏轼”, “李清照”, “辛弃疾”, “杜牧” }<br /> 句柄 ＝ 寻找组件 (_启动窗口, , “图片框”, , )<br /> .计次循环首 (取找到组件数目 (句柄), i)<br />     图片框 ＝ 取所找到组件 (句柄, i － 1)<br />     图片框名称 ＝ 取组件名称 (图片框)<br />     图片框.标记 ＝ 到文本 (文本_取右边 (取组件名称 (图片框), “图片框”, , ))<br />     调试输出 (“图片框：” ＋ 图片框名称 ＋ “标记：” ＋ 图片框.标记)<br />     .如果真 (图片框.标记 ≠ “1”)<br />         事件转移 (图片框, 图片框1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (句柄)<br /> <br /> .子程序 _图片框1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 图片框, 图片框<br /> .局部变量 待添加文本, 文本型<br /> .局部变量 内容数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 新内容, 文本型<br /> <br /> 图片框 ＝ 取事件组件 ()<br /> <br /> <br /> 待添加文本 ＝ 诗人 [到整数 (图片框.标记)]<br /> <br /> ' 将编辑框内容按 "|" 分割成数组<br /> 内容数组 ＝ 分割文本 (编辑框1.内容, “|”, )<br /> <br /> ' 检查数组中是否存在待添加文本<br /> .计次循环首 (取数组成员数 (内容数组), i)<br />     .如果 (内容数组 <i> ＝ 待添加文本)<br />         ' 若存在，将该元素从数组中移除<br />         删除成员 (内容数组, i, )<br />         ' 生成新的编辑框内容<br />         新内容 ＝ “”<br />         .计次循环首 (取数组成员数 (内容数组), i)<br />             .如果 (i ＞ 1)<br />                 新内容 ＝ 新内容 ＋ “|”<br />             .否则<br /> <br />             .如果结束<br />             新内容 ＝ 新内容 ＋ 内容数组 <i><br />         .计次循环尾 ()<br />         编辑框1.内容 ＝ 新内容<br />         返回 ()<br />     .否则<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' 若不存在，添加文本<br /> .判断开始 (编辑框1.内容 ＝ “”)<br />     编辑框1.加入文本 (待添加文本)<br /> .默认<br />     编辑框1.加入文本 (“|” ＋ 待添加文本)<br /> .判断结束

菜鸟路过

直接用复制组件 批量设置位置

afu45

好家伙，100多个还不想用复制组件

z3201

一次展示10-20个图片框,做个翻页功能,把要展示的数据放数组,翻页的时候加载到这些图片框,点击的图片框时候根据当前的图片框记录的标记操作对应数组的数据(展示).

走一回

不相民用复制组件，那怎么办呢？真的要拖100个图片框吗？

憨憨问号

在被选中的图片框上写字，然后选中其他图片框时所有图片框重画一下移除文本

jianxi34

嗯  分页 用数据库做个索引

承易

用网页实现阿，易语言用浏览器调用网页，不是说世界上所有的东西都要用易语言实现，这么多编程语言工具，结合使用

笨来无一悟

并不需要一一对应比如有100个人 然后餐厅需要100个座位吗 吃完了就走 下一个来 桌子属于公用的 不需要某人专用

熬夜

选中的图片 你调整大小宽度 计算与选中图片框的位置偏移  进行 顶边等参数的变化