思路:
创新互联-专业网站定制、快速模板网站建设、高性价比尤溪网站开发、企业建站全套包干低至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 等等字符串函数都是可用的。
售后响应及时
7×24小时客服热线数据备份
更安全、更高效、更稳定价格公道精准
项目经理精准报价不弄虚作假合作无风险
重合同讲信誉,无效全额退款