vb點虐 怎樣獲取指定的記事本所有內(nèi)容，并顯示textbox中？

Private Sub open()

成都創(chuàng)新互聯(lián)是專業(yè)的民和網(wǎng)站建設(shè)公司，民和接單;提供成都做網(wǎng)站、成都網(wǎng)站制作、成都外貿(mào)網(wǎng)站建設(shè),網(wǎng)頁設(shè)計,網(wǎng)站設(shè)計,建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進行民和網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團隊,希望更多企業(yè)前來合作!

Dim thefile as string

On Error Goto FE

If (Right(dirLook.Path,1)="\") then

TheFile=dirLook.Path+filFind.FileName

Else

TheFile=dirLook.Path+"\"+filFind.FileName

End if

Open thefile for input as #1

TEXTBOX1.text=Input（LOF（1），#1）

Close #1

Exit Sub

FE:

MsgBox"ERR"核改

Resume Next

End Sub

'dirLook指路徑，filFind.filFind指蘆枯文件名，dirlook最先為盤陪氏洞名

vb點虐 如何用我編寫的一個記事本程序通過鼠標右鍵菜單來打開一個文件

一、用wshshell組件的RegWrite方法寫注冊表，在HKEY_CLASSES_ROOT\*\Shell 位置加入的你槐輪唯程序，

例如：

[HKEY_CLASSES_ROOT\*\shell\我的程序\command]

@="D:\\我的程序.exe %1"

后桐凱面的%1會將文件名傳送給你的程序的Command$，多文件名需要使用DDE方式進行互斥傳入。

二、

將下面內(nèi)容輸入記事本后保存為reg文件，運行即可：

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell]

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell\鉛培OpenInNotepad]

@="用記事本打開"

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell\OpenInNotepad\command]

@="notepad.exe %1"

"用記事本打開" 為右鍵菜單中顯示的名稱

怎樣在VB .NET中調(diào)用記事本和計算器

這個啊，呵呵，應(yīng)該不難吧

先找到你要打開的應(yīng)用程序的文件

然后用一個調(diào)用代碼：

System.Diagnostics.Process.Start("C:\WINDOWS\system32\notepad.exe")

這是要枯高前開記事本的

System.Diagnostics.Process.Start("C:\WINDOWS\system32\calc.exe")

這是打開計算器的

應(yīng)念塌該也可以把這兩個應(yīng)用程序復(fù)制到你的程序的默認目錄下，就是BIN下吧！

呵呵，試沒清試！！要給我加分哦！！！

vb 點虐 程序怎么默認打開txt記事本文件？

樓下的根散拿本不對。沖判搭exe右鍵是沒有“打開方式”的，也沒必要因為這個問題而還原系統(tǒng)。把exe設(shè)置為沖手直接運行，方法：新建一個txt文件，輸入ftype exefile="%1" %* ，保存，把擴展名改為bat，雙擊這個文件，就好了。

新聞標題：關(guān)于vb點虐 訪問記事本的信息
分享路徑：http://www.chinadenli.net/article44/ddpssee.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供ChatGPT、網(wǎng)站建設(shè)、企業(yè)建站、Google、虛擬主機、品牌網(wǎng)站設(shè)計

廣告

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