vb.net双击文件 vb单击与双击窗体

vb.net查找文件问题

思路：

创新互联-专业网站定制、快速模板网站建设、高性价比尤溪网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式尤溪网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖尤溪地区。费用合理售后完善，10年实体公司更值得信赖。

1，使用ListBox1控件来存放搜索到的文件名，然后ListBox1.SelectedItem就可以返回选中项的文本；

2，利用获得的选中项文本（即文件与路径），使用打开文本文件的方法，读取内容显示在文本框里。

VB.net如何双击文件打开

我不知道我的理解是否正确，不过你先看看吧

以图片为例，我的桌面有一个  例图.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

原创程序哦

自己用vb写的特殊记事本如何双击打开文件

注册表打开方法：点开始，运行，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 等等字符串函数都是可用的。