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 等等字符串函数都是可用的。


分享标题:vb.net双击文件 vb单击与双击窗体
网页URL:http://myzitong.com/article/hjhdse.html