如何用易语言复制组件做一个推糖网图片搜索工具呢？工具/原料more易语言精益模块方法/步骤1/8分步阅读

打开易语言，新建一个Windows窗口程序

2/8

在新窗口的右侧基础组件中添加3个组件，1个编辑框，1个按钮，1个图片框到新窗口。并修改组件的属性。

3/8

在新窗口的左侧，双击“程序”中“模块引用表”，加入“精益模块”

4/8

插入一个常量，命名为常量_表达式如下。

5/8

在窗口程序集_启动窗口程序下声明几个变量，如下。

6/8

双击按钮组件，在_按钮1_被单击程序下，写如下代码：

初始化图片框 ()

.如果 (编辑框1.内容 ＝ “”)

信息框 (“请输入要搜索的内容！”, #警告图标, “提示”, )

.否则

重定义数组 (图片框数组, 假, 999999)

搜索链接 ＝ “https://www.duitang.com/search/?kw=” ＋ 编辑框1.内容 ＋ “type=feedfrom=webhome”

搜索结果 ＝ 网页_访问S (搜索链接)

z.创建 (#常量_表达式, 搜索结果)

y ＝ z.取匹配数量 ()

.计次循环首 (y, i)

复制窗口组件 (图片框1, 图片框数组 )

.如果 (i ％ 6 ＝ 0)

u ＝ u ＋ 1

图片框数组 .左边 ＝ 0

.否则

图片框数组 .左边 ＝ 60 × (i ％ 6)

.如果结束

图片框1.可视 ＝ 假

图片框数组 .顶边 ＝ 60 × u ＋ 40

_启动窗口.高度 ＝ (u ＋ 1) × 60 ＋ 10

图片框数组 .可视 ＝ 真

图片框数组 .图片 ＝ 网页_访问 (z.取子匹配文本 (i, 2))

.计次循环尾 ()

图片框数组 .移动 (0, 40, , )

7/8

插入一个子程序，命名为初始化图片框（用来删除已经生成的图片框）。代码如下：

u ＝ 寻找组件 (_启动窗口, , “图片框”, 1, )

y ＝ 取找到组件数目 (u)

.计次循环首 (y, i)

.如果真 (i ＜ u)

图片框数组 .销毁 ()

.如果真结束

.计次循环尾 ()

8/8

点击运行，运行成功后，点“编译”-“静态编译”成一个成执行程序。这样一个用复制组件来展示推糖网图片的小工具就做好了。

易语言教程推糖网图片搜索复制组件