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