1樓：匿名使用者
vb6.0可以使用textbok控制元件或richtextbox控制元件實現將讀入文字檔案顯示於控制元件中。
textbox 控制元件有時也稱作編輯欄位或者編輯控制元件，顯示設計時輸入的使用者輸入的、或執行時在**中賦予控制元件的資訊。
為了在 textbox 控制元件中顯示多行文字，要將 multiline 屬性設定為
true。如果多行 textbox 沒有水平滾動條，那麼即使 textbox 調整了大小，文字也會自動換行。為了在
textbox 上定製滾動條組合，需要設定 scrollbars 屬性。
如果文字框的 multiline 屬性設定為 true 而且它的
scrollbars 沒有設定為 none (0)，則滾動條總出現在文字框上。
如果將 multiline 屬性設定為 true，則可以在 textbox 內用 alignment 屬性設定文字的對齊。如果 multiline 屬性是 false，則
alignment 屬性不起作用。
**例項：
private sub command1_click()
dim strj() as string
' 設定「cancelerror」為 true
commondialog1.cancelerror = true
on error goto errhandler
' 設定標誌
commondialog1.flags = cdlofnhidereadonly
' 設定過濾器
commondialog1.filter = "all files (*.*)|*.
*|text files" & "(*.txt)|*.txt|batch files (*.
bat)|*.bat"
' 指定預設的過濾器
commondialog1.filterindex = 2
' 顯示「開啟」對話方塊
commondialog1.showopen
' 顯示選定檔案的名字
debug.print commondialog1.filename
str = commondialog1.filename
open commondialog1.filename for input as #1
do until eof(1)
line input #1, s
text1.text = text1.text & s & vbcrlf
loop
close #1
exit sub
errhandler:
exit sub
end sub
richtextbox 控制元件不僅允許輸入和編輯文字，同時還提供了標準 textbox
控制元件未具有的、更高階的指定格式的許多功能。
上述**同樣適合richtextbox控制元件使用
2樓：
樓上已經給了方法，不過我提醒下，最好用error方法判斷檔案選擇是否取消，而不要用f.filename=""，不然第二次你選擇取消也會開啟第一次的檔案
3樓：匿名使用者
把text1的multiline屬性設為true，scrollbars屬性設為2 - both
private sub command1_click()f.filter = "文字文件(*.txt)|*.txt"
f.filename = ""
f.showopen
if f.filename = "" then enit subgetfreefile = freefileopen f.filename for input as #getfreefile
do while not eof(getfreefile)line input #1, readfiletext1.text = text1.text & readfile & vbcrlf
loop
close #getfreefile
end sub
vb 怎樣開啟檔案並把檔案內容顯示在文字框
4樓：匿名使用者
1、單擊選單「工程」-「部件」，在彈出的「部件」對話方塊裡找到microsoft richtext box 6.0和公共對話方塊microsoft common dialog 6.0並選中它們，單擊「確定」按鈕。
2、在窗體上繪製richtext box和commn dialog。
3、右鍵窗體選擇選單編輯器，編寫開啟和清空選單。
4、兩個按鈕**：
private sub open_click()commondialog1.filter = "文字檔案 (*.txt)|*.
txt|(*.doc)|*.doc|所有檔案|*.
*"commondialog1.showopenrichtextbox1.text = "" '清空文字框filename = commondialog1.
filenamerichtextbox1.loadfile filenameme.caption = "超級記事本：
" & filenameend sub
private sub qk_click()richtextbox1.text = ""
end sub
5、注意：開啟txt檔案時正常的，但是開啟word是亂碼，因為word的儲存方式跟txt檔案不一樣的，這個是正常的。
5樓：匿名使用者
文字框通常用來顯示文字字元，以下是用 vb 編寫的開啟某 txt 檔案，並把檔案內容顯示在文字框的步驟及**：
1、新增必要的元件（文字框、按鈕）
2、設定屬性：
3、編寫按鈕的響應**：
**如下：
private sub command1_click()dim a$
text1.text = ""
open "d:\test.txt" for input as #1doinput #1, a
text1.text = text1.text & a & vbcrlf
loop until eof(1)
close #1
end sub
執行結果：
6樓：
dim str as string '定義個 str 用來儲存讀取的文字
open "路徑" for input as #1 '開啟指定路徑的文字
input #1, str '將指定文字讀取到 str 變數
close #1 '關閉檔案
text1.text = str '讓text1 等於 str 變數的內容
**要簡潔.. 才精緻
本來是很簡單的東西樓上幾位還搞了個迴圈來讀，真是浪費系統資源
7樓：白費電
單擊選單「工程」-「部件」，在彈出的「部件」對話方塊裡找到公共對話方塊microsoft common dialog 6.0並選中它，單擊「確定」按鈕。
在工具-選單編輯器 標題寫檔案（f），名字檔案，再點下下一個，標題寫開啟，名字開啟，再點下向右的箭頭
private sub 開啟_click()
with commondialog1
.dialogtitle = "開啟檔案"
.filter = "文字檔案 (*.txt)|*.txt|(*.doc)|*.doc|所有檔案|*.*"
.filterindex = 0
.showopen
dim tmploadstr as string
open .filename for input as #1
do while not eof(1)
line input #1, tmploadstr
text1.text = text1.text & tmploadstr & vbcrlf
loop
close #1
end with
end sub
8樓：匿名使用者
open "c:\123.txt" for input as #1do while not eof(1)
line input #1, mystringtext1.text = text1.text & mystring & vbcrlf
loop
close #1
這樣才對吧。。
如何把dbf檔案的內容加到access裡面？
用sql自帶的匯入匯出元件。如何將dbf檔案匯入到access 求助dbf檔案匯入access資料庫問題?我來告訴你，不用程式設計也不用費力的一個一個輸入，只需要你把所有的 dbf檔案的字尾修改替換成 access資料庫的字尾，就可以了，1000 的 管用！不管是access還是sqlserver都...
VB如何獲取網頁的內容
1 相關 如下 public function gethtmlstr strurl as string 獲取遠端網頁原始碼 stime now 獲取當前時間 ntime now 獲取迴圈時間 2 使用 在窗體 相應位置寫如下 dim a as string a gethtmlstr 要獲取的 url...
vb替換文字，vb替換文字檔案中指定的內容
1全部if dir 檔案路徑 then 如檔案不存在 不返回值 所以是 空白 msgbox 不存在 else shell regedit.exe s c del.reg end if vb檢查檔案是否存在，可使用 if dir strpathfilename then 就行了 else 執行shel...