第1个回答 2011-05-09
一个简单的、、、
.版本 2
.支持库 EThread
.程序集 窗口程序集1
.程序集变量 是否停止, 逻辑型
.程序集变量 列表框文件名, 文本型, , "0"
.子程序 __启动窗口_创建完毕
编辑框1.内容 = 取运行目录 () + “\”
组合框1.加入项目 (“*”, )
组合框1.加入项目 (“exe”, )
组合框1.加入项目 (“jpg”, )
组合框1.加入项目 (“bmp”, )
组合框1.现行选中项 = 0
.子程序 _按钮1_被单击
是否停止 = 假
启动线程 (&子程序1, , )
.子程序 子程序1
.局部变量 表项
.局部变量 路径, 文本型
.局部变量 文件名, 文本型
.如果真 (是否停止 = 真) ' 搜索被停止,则返回
返回 ()
.如果真结束
文件名 = 寻找文件 (编辑框1.内容 + 组合框1.内容, )
.判断循环首 (文件名 ≠ “”) ' 显示找到的文件
列表框1.加入项目 (文件名, )
加入成员 (列表框文件名, 编辑框1.内容 + 文件名)
文件名 = 寻找文件 (, )
.判断循环尾 ()
.子程序 _按钮2_被单击
是否停止 = 真本回答被网友采纳