189 8069 5689
思路：
创新互联-专业网站定制、快速模板网站建设、高性价比尤溪网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式尤溪网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖尤溪地区。费用合理售后完善，10年实体公司更值得信赖。
1，使用ListBox1控件来存放搜索到的文件名，然后ListBox1.SelectedItem就可以返回选中项的文本；
2，利用获得的选中项文本（即文件与路径），使用打开文本文件的方法，读取内容显示在文本框里。
我不知道我的理解是否正确，不过你先看看吧
以图片为例，我的桌面有一个 例图.jpg 的文件，我自己写的程序 图片浏览器.exe
将图片的启动程序修改成 图片浏览器.exe
图片浏览器.exe 打开 例图.jpg 文件
解决方案如下，利用了 System.Environment.GetCommandLineArgs()函数
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim MyFile As String = "" '用以保存所打开的文件路径
Dim Parameters() As String '用以保存数组参数
Dim i As Integer
Parameters= System.Environment.GetCommandLineArgs()
i = Parameters.GetUpperBound(0)
If i 0 Then
MyFileName = Parameters(1)
PictureBox1.ImageLocation = MyFileName
End If
End Sub
参考文件：MSDN
原创程序哦
注册表打开方法：点开始，运行，regedit
以前看过相关的一遍文章， 复制到下面了，希望对你有帮助。
使用Windows的用户都知道，当我们双击一个后缀为txt文件时，就会用记事本打开这个文件，双击一个后缀为doc文件时，word就会打开。这就是Windows的文件关联技术！有没有办法让我们自己做的程序也能关联一些指定后缀的文件呢？比如，我编写了一款播放器，可以让电脑上的mp3文件都变成我指定的图标，当双击mp3文件时时，会打开我的制作播放器，并且播放。下面，我就说明这个效果怎么实现，并且说明在程序中怎么处理关联信息！
首先，文件的关联是通过注册表实现的，为了说清楚这个问题，我首先讲解手动添加文件关联的方法,这里，我假设要将我制作的“汐木记事本”程序与我独创的后缀为.xtx文件关联！
(1)打开注册表编辑器
(2)找到主键HKEY_CLASSES_ROOT
(3)在HKEY_CLASSES_ROOT下新建子键，名称为.xtx，修改“默认”的值为ximu
(4)在HKEY_CLASSES_ROOT建立子键，名称为ximu
（这个名称要和上面的.xtx中“默认”的值一致，否则关联不上），将其中的“默认”的值改为"新建X文档"（这个无所谓的，随便）
(5)在ximu下建立shell，shell下建立open，open下建立command，点击command，将其中的“默认”的值改为你的程序所在的路径，并且在路径后写一个%1，如：F:\vb相关\汐木实验室\汐木记事本V1.00.exe %1(注意，%1前边有空格！)
这样，文件的关联就完成了！还需要做的是，把文件的图标也关联上，让所有的.xtx文件的图标变成我指定的图标：
在上面提到的ximu下建立DefaultIcon，将其中的“默认”的值改为你需要的图标文件的路径，修改后，可以看到，xtx文件的图标都变成了我指定的。
如果正常按照上边的步骤进行的话，你在桌面新建文本文档，然后把后缀名改为.xtx，图标就是你所指定的图标，双击这个文件，就打开了你的软件
如果以上步骤你都成功了，就可以利用代码让程序执行这些步骤。
我现在在学VB.NET，VB6的语句基本上忘得差不多了。
set aa = createobject("wscript.shell")
aa.regwrite "HKEY_CLASSES_ROOT\.xtx", "ximu"
aa.regwrite "HKEY_CLASSES_ROOT\ximu", "新建X文档"
aa.regwrite "HKEY_CLASSES_ROOT\ximu\shell\open\command","F:\vb相关\汐木实验室\汐木记事本V1.00.exe %1"
aa.regwrite "HKEY_CLASSES_ROOT\ximu\DefaultIcon","F:\001.ico"
大概就是这个样子吧，也许有错误，我时间紧，就不测试了，懒虫不要复制粘贴哦！错了我不承担责任············
完成了关联，你会发现，双击后缀为xtx的文件时，我们设定的程序打开了！但是，问题又来了，怎么让程序知道双击了哪个文件呢？不然怎么进行处理？下面我来介绍对关联信息的处理！使程序获取被双击了的文件的路径，其实这很简单：
用到Command函数，下面的代码可以获取路径：
msgbox（Command）
怎么样？文件的地址是不是都出来了?呵呵，得到了文件地址就不用我说了吧·······
这是我在网上搜的读取txt的函数：
Private Function ReadFile(filePath As String) As String
Dim fileStr As String
Open filePath For Input As #1
Do While Not EOF(1)
Line Input #1, tem
fileStr = fileStr tem vbCrLf
Loop
Close #1
ReadFile = fileStr
End Function
这样，你就可以把文件读到软件里了。
最后，还是建议你学.NET，因为VB6的程序现在已经不支持在WIN7里运行了，而且，我给你看下VB.NET读取txt文件的源码：
dim a as string
a = System.IO.File.OpenText(F:\1.txt)
textbox1.text = a
就这么三句源码，而且还可以再简化！
textbox1.text = System.IO.File.OpenText(F:\1.txt)
怎么样？
呵呵，其实VB6升级到VB.NET并不难，不要相信网上某些人说的“VB6和VB.NET不是同一个语言”之类的话，在VB.NET里，
DO````LOOP
for`````next
do````while`````loop
do``````until````loop
这些循环语句都是通用的，还有cstr cdbl 等等字符串函数都是可用的。