vb.net查找文件問(wèn)題

思路：

創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價(jià)比尤溪網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫(kù),直接使用。一站式尤溪網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋尤溪地區(qū)。費(fèi)用合理售后完善，10年實(shí)體公司更值得信賴。

1，使用ListBox1控件來(lái)存放搜索到的文件名，然后ListBox1.SelectedItem就可以返回選中項(xiàng)的文本；

2，利用獲得的選中項(xiàng)文本（即文件與路徑），使用打開文本文件的方法，讀取內(nèi)容顯示在文本框里。

VB.net如何雙擊文件打開

我不知道我的理解是否正確，不過(guò)你先看看吧

以圖片為例，我的桌面有一個(gè) ?例圖.jpg ?的文件，我自己寫的程序 圖片瀏覽器.exe

將圖片的啟動(dòng)程序修改成 ?圖片瀏覽器.exe

圖片瀏覽器.exe 打開 ?例圖.jpg ?文件

解決方案如下，利用了?System.Environment.GetCommandLineArgs()函數(shù)

Private?Sub?Form1_Load(sender?As?Object,?e?As?EventArgs)?Handles?MyBase.Load

Dim?MyFile?As?String?=?""??'用以保存所打開的文件路徑?????????????????????

Dim?Parameters()?As?String??'用以保存數(shù)組參數(shù)??????????????????

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

原創(chuàng)程序哦

自己用vb寫的特殊記事本如何雙擊打開文件

注冊(cè)表打開方法：點(diǎn)開始，運(yùn)行，regedit

以前看過(guò)相關(guān)的一遍文章， 復(fù)制到下面了，希望對(duì)你有幫助。

使用Windows的用戶都知道，當(dāng)我們雙擊一個(gè)后綴為txt文件時(shí)，就會(huì)用記事本打開這個(gè)文件，雙擊一個(gè)后綴為doc文件時(shí)，word就會(huì)打開。這就是Windows的文件關(guān)聯(lián)技術(shù)！有沒(méi)有辦法讓我們自己做的程序也能關(guān)聯(lián)一些指定后綴的文件呢？比如，我編寫了一款播放器，可以讓電腦上的mp3文件都變成我指定的圖標(biāo)，當(dāng)雙擊mp3文件時(shí)時(shí)，會(huì)打開我的制作播放器，并且播放。下面，我就說(shuō)明這個(gè)效果怎么實(shí)現(xiàn)，并且說(shuō)明在程序中怎么處理關(guān)聯(lián)信息！

首先，文件的關(guān)聯(lián)是通過(guò)注冊(cè)表實(shí)現(xiàn)的，為了說(shuō)清楚這個(gè)問(wèn)題，我首先講解手動(dòng)添加文件關(guān)聯(lián)的方法,這里，我假設(shè)要將我制作的“汐木記事本”程序與我獨(dú)創(chuàng)的后綴為.xtx文件關(guān)聯(lián)！

(1)打開注冊(cè)表編輯器

(2)找到主鍵HKEY_CLASSES_ROOT

(3)在HKEY_CLASSES_ROOT下新建子鍵，名稱為.xtx，修改“默認(rèn)”的值為ximu

(4)在HKEY_CLASSES_ROOT建立子鍵，名稱為ximu

（這個(gè)名稱要和上面的.xtx中“默認(rèn)”的值一致，否則關(guān)聯(lián)不上），將其中的“默認(rèn)”的值改為"新建X文檔"（這個(gè)無(wú)所謂的，隨便）

(5)在ximu下建立shell，shell下建立open，open下建立command，點(diǎn)擊command，將其中的“默認(rèn)”的值改為你的程序所在的路徑，并且在路徑后寫一個(gè)%1，如：F:\vb相關(guān)\汐木實(shí)驗(yàn)室\汐木記事本V1.00.exe %1(注意，%1前邊有空格！)

這樣，文件的關(guān)聯(lián)就完成了！還需要做的是，把文件的圖標(biāo)也關(guān)聯(lián)上，讓所有的.xtx文件的圖標(biāo)變成我指定的圖標(biāo)：

在上面提到的ximu下建立DefaultIcon，將其中的“默認(rèn)”的值改為你需要的圖標(biāo)文件的路徑，修改后，可以看到，xtx文件的圖標(biāo)都變成了我指定的。

如果正常按照上邊的步驟進(jìn)行的話，你在桌面新建文本文檔，然后把后綴名改為.xtx，圖標(biāo)就是你所指定的圖標(biāo)，雙擊這個(gè)文件，就打開了你的軟件

如果以上步驟你都成功了，就可以利用代碼讓程序執(zhí)行這些步驟。

我現(xiàn)在在學(xué)VB.NET，VB6的語(yǔ)句基本上忘得差不多了。

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相關(guān)\汐木實(shí)驗(yàn)室\汐木記事本V1.00.exe %1"

aa.regwrite "HKEY_CLASSES_ROOT\ximu\DefaultIcon","F:\001.ico"

大概就是這個(gè)樣子吧，也許有錯(cuò)誤，我時(shí)間緊，就不測(cè)試了，懶蟲不要復(fù)制粘貼哦！錯(cuò)了我不承擔(dān)責(zé)任············

完成了關(guān)聯(lián)，你會(huì)發(fā)現(xiàn)，雙擊后綴為xtx的文件時(shí)，我們?cè)O(shè)定的程序打開了！但是，問(wèn)題又來(lái)了，怎么讓程序知道雙擊了哪個(gè)文件呢？不然怎么進(jìn)行處理？下面我來(lái)介紹對(duì)關(guān)聯(lián)信息的處理！使程序獲取被雙擊了的文件的路徑，其實(shí)這很簡(jiǎn)單：

用到Command函數(shù)，下面的代碼可以獲取路徑：

msgbox（Command）

怎么樣？文件的地址是不是都出來(lái)了?呵呵，得到了文件地址就不用我說(shuō)了吧·······

這是我在網(wǎng)上搜的讀取txt的函數(shù)：

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

這樣，你就可以把文件讀到軟件里了。

最后，還是建議你學(xué).NET，因?yàn)閂B6的程序現(xiàn)在已經(jīng)不支持在WIN7里運(yùn)行了，而且，我給你看下VB.NET讀取txt文件的源碼：

dim a as string

a = System.IO.File.OpenText(F:\1.txt)

textbox1.text = a

就這么三句源碼，而且還可以再簡(jiǎn)化！

textbox1.text = System.IO.File.OpenText(F:\1.txt)

怎么樣？

呵呵，其實(shí)VB6升級(jí)到VB.NET并不難，不要相信網(wǎng)上某些人說(shuō)的“VB6和VB.NET不是同一個(gè)語(yǔ)言”之類的話，在VB.NET里，

DO````LOOP

for`````next

do````while`````loop

do``````until````loop

這些循環(huán)語(yǔ)句都是通用的，還有cstr cdbl 等等字符串函數(shù)都是可用的。

本文標(biāo)題：vb.net雙擊文件 vb單擊與雙擊窗體
文章來(lái)源：http://m.newbst.com/article34/hjhdse.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站改版、品牌網(wǎng)站設(shè)計(jì)、網(wǎng)站內(nèi)鏈、網(wǎng)站策劃、網(wǎng)站營(yíng)銷、移動(dòng)網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)