怎么搜索按指定名称搜索本机中的图片并显示到图片框上

308291118

怎么搜索按指定名称搜索本机中的图片并显示到图片框上？？？
比如我想找名字叫A.jpg的图片。并显示到图片框上。
应该怎么写？？？？

308291118

是不是都睡觉了啊？？

308291118

是不是都睡觉了啊？？有没有人回答问题了~

forkh

我来回答哈

看附件源码

补充内容 (2012-3-8 00:29):
请采纳为最佳答案

特殊字符

.版本 2

.程序集 窗口程序集1
.程序集变量 文件目录, 文本型
.程序集变量 分割文件名, 文本型, , "0"
.程序集变量 文件名, 文本型
.程序集变量 i, 整数型
.程序集变量 目录, 文本型, , "1000000"

.子程序 _按钮1_被单击

选择列表框1.清空 ()
i ＝ 0
子程序1 (编辑框3.内容)

.子程序 子程序1
.参数 参数目录, 文本型
.局部变量 记录, 文本型


.如果真 (取文本右边 (参数目录, 1) ≠ “\”)
    参数目录 ＝ 参数目录 ＋ “\”
.如果真结束
文件名 ＝ 寻找文件 (参数目录 ＋ 编辑框2.内容, )
.判断循环首 (文件名 ≠ “”)
    分割文件名 ＝ 分割文本 (文件名, “.”, )
    选择列表框1.加入项目 (分割文件名 [1], )
    i ＝ i ＋ 1
    _启动窗口.标题 ＝ “一共找到” ＋ 到文本 (i) ＋ “个”
    目录 [i] ＝ 参数目录 ＋ 文件名
    处理事件 ()
    文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
文件目录 ＝ 寻找文件 (参数目录 ＋ “*.*”, #子目录)
.判断循环首 (文件目录 ≠ “”)
    .如果真 (取文本左边 (文件目录, 1) ≠ “.”)
        子程序1 (参数目录 ＋ 文件目录)
    .如果真结束
    文件目录 ＝ 寻找文件 (, #子目录)
    处理事件 ()
.判断循环尾 ()
.如果真 (选择列表框1.取项目数 () ＝ 0)
    _启动窗口.标题 ＝ “一共找到” ＋ 到文本 (0) ＋ “个”
.如果真结束


.子程序 _按钮2_被单击

图片框1.图片 ＝ 读入文件 (目录 [选择列表框1.现行选中项 ＋ 1])


' 执行 (#打开文件, 目录 [选择列表框1.现行选中项 ＋ 1], , , )



返回 ()
.如果真 (信息框 (“你确定要这样做”, 4, “提示”) ＝ #是钮)
    .如果真 (删除文件 (目录 [选择列表框1.现行选中项 ＋ 1]))
        选择列表框1.删除项目 (选择列表框1.现行选中项)
        信息框 (“删除成功”, 0, )
    .如果真结束

.如果真结束


.子程序 __启动窗口_可否被关闭, 逻辑型

结束 ()