请求完成查找编辑框输入的文本名称来查找文件

大祭司

请求完成查找编辑框输入的文本名称来查找文件，通过变色来找到他

时髦猪

  

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

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' 编辑框1.内容 ＝ 取运行目录 ()
超级列表框1.始终显示选择项 ＝ 真

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

变量名	类 型	静态	数组	备 注
文件名	文本型
dwCount	整数型
aryPath	文本型		0
qc	整数型

文件名 ＝ 对话框_打开文件夹 (, )
' 文件名 ＝ 编辑框1.内容
如果真 (文件名 ≠ “”)
编辑框1.内容 ＝ 文件名
dwCount ＝ 文件_枚举 (编辑框1.内容, “*.txt”, aryPath, 真, , 选择框1.选中)
超级列表框1.全部删除 ()
计次循环首 (dwCount, qc)
超级列表框1.插入表项 (, 到文本 (qc), , , , )
超级列表框1.置标题 (qc － 1, 1, aryPath [qc])
超级列表框1.置标题 (qc － 1, 2, 文件_取文件名 (aryPath [qc], 假))
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (超级列表框1.取表项数 (), i)
如果真 (超级列表框1.取标题 (i － 1, 2) ＝ 编辑框2.内容)
超级列表框1.现行选中项 ＝ i － 1
超级列表框1.获取焦点 ()
跳出循环 ()

计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 启动窗口集<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' 编辑框1.内容 ＝ 取运行目录 ()<br /> 超级列表框1.始终显示选择项 ＝ 真<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文件名, 文本型<br /> .局部变量 dwCount, 整数型<br /> .局部变量 aryPath, 文本型, , "0"<br /> .局部变量 qc, 整数型<br /> <br /> 文件名 ＝ 对话框_打开文件夹 (, )<br /> ' 文件名 ＝ 编辑框1.内容<br /> .如果真 (文件名 ≠ “”)<br />     编辑框1.内容 ＝ 文件名<br />     dwCount ＝ 文件_枚举 (编辑框1.内容, “*.txt”, aryPath, 真, , 选择框1.选中)<br />     超级列表框1.全部删除 ()<br />     .计次循环首 (dwCount, qc)<br />         超级列表框1.插入表项 (, 到文本 (qc), , , , )<br />         超级列表框1.置标题 (qc － 1, 1, aryPath [qc])<br />         超级列表框1.置标题 (qc － 1, 2, 文件_取文件名 (aryPath [qc], 假))<br /> <br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     .如果真 (超级列表框1.取标题 (i － 1, 2) ＝ 编辑框2.内容)<br />         超级列表框1.现行选中项 ＝ i － 1<br />         超级列表框1.获取焦点 ()<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()

大祭司

已经自行解决