用易语言复制组件做一个推糖网图片搜索工具

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

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

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

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

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

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

初始化图片框 ()

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

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

.否则

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

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

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

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

    y ＝ z.取匹配数量 ()

    .计次循环首 (y, i)

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

        .如果 (i ％ 6 ＝ 0)

            u ＝ u ＋ 1

            图片框数组 [i].左边 ＝ 0

        .否则

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

        .如果结束

        图片框1.可视 ＝ 假

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

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

        图片框数组 [i].可视 ＝ 真

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

    .计次循环尾 ()

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

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

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

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

.计次循环首 (y, i)

    .如果真 (i ＜ u)

        图片框数组 [i].销毁 ()

    .如果真结束

.计次循环尾 ()

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