标记组件复制

学易未精

读入图片后，如何双击图片并调试输出这张图的路径呢

  

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
数组	文本型		0
图	图片框
计次	整数型

文件_枚举 (取当前目录 (), “*.jpg”, 数组, 真, , )
图片框1.图片 ＝ 读入文件 (数组 [1])
计次循环首 (取数组成员数 (数组) － 1, 计次)
复制窗口组件 (图片框1, 图)
图.可视 ＝ 真
图.左边 ＝ 图片框1.宽度 × 1.03 × 计次
图.顶边 ＝ 图片框1.顶边
图.图片 ＝ 读入文件 (数组 [计次 ＋ 1])
图.标记 ＝ 到文本 (数组 [计次 ＋ 1])
计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 图, 图片框<br /> .局部变量 计次, 整数型<br /> <br /> 文件_枚举 (取当前目录 (), “*.jpg”, 数组, 真, , )<br /> 图片框1.图片 ＝ 读入文件 (数组 [1])<br /> .计次循环首 (取数组成员数 (数组) － 1, 计次)<br />     复制窗口组件 (图片框1, 图)<br />     图.可视 ＝ 真<br />     图.左边 ＝ 图片框1.宽度 × 1.03 × 计次<br />     图.顶边 ＝ 图片框1.顶边<br />     图.图片 ＝ 读入文件 (数组 [计次 ＋ 1])<br />     图.标记 ＝ 到文本 (数组 [计次 ＋ 1])<br /> .计次循环尾 ()

____′↘夏天

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
数组	文本型		0
图	图片框
计次	整数型

文件_枚举 (取当前目录 (), “*.jpg”, 数组, 真, , )
图片框1.图片 ＝ 读入文件 (数组 [1])
图片框1.标记 ＝ 数组 [1]
计次循环首 (取数组成员数 (数组) － 1, 计次)
复制窗口组件 (图片框1, 图)
图.可视 ＝ 真
图.左边 ＝ 图片框1.宽度 × 1.03 × 计次
图.顶边 ＝ 图片框1.顶边
图.图片 ＝ 读入文件 (数组 [计次 ＋ 1])
图.标记 ＝ 到文本 (数组 [计次 ＋ 1])
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
图1	图片框

图1 ＝ 取事件组件 ()
输出调试文本 (图1.标记)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 图, 图片框<br /> .局部变量 计次, 整数型<br /> <br /> 文件_枚举 (取当前目录 (), “*.jpg”, 数组, 真, , )<br /> 图片框1.图片 ＝ 读入文件 (数组 [1])<br /> 图片框1.标记 ＝ 数组 [1]<br /> .计次循环首 (取数组成员数 (数组) － 1, 计次)<br />     复制窗口组件 (图片框1, 图)<br />     图.可视 ＝ 真<br />     图.左边 ＝ 图片框1.宽度 × 1.03 × 计次<br />     图.顶边 ＝ 图片框1.顶边<br />     图.图片 ＝ 读入文件 (数组 [计次 ＋ 1])<br />     图.标记 ＝ 到文本 (数组 [计次 ＋ 1])<br /> .计次循环尾 ()<br /> <br /> .子程序 _图片框1_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 图1, 图片框<br /> <br /> 图1 ＝ 取事件组件 ()<br /> 输出调试文本 (图1.标记)

大哥，看来还是得给你贴代码。。。

ttioo7

加入一张图片往数组里放个路径，然后把数组下标给组件，取的时候根据组件标记取出来数组中的对应路径