VB 如何讀取文字檔的內容

Question

簡單說
再 form1有一個 list1
有一個按紐 command1
再 form2有一個 label1
有一個要讀取的文字檔 123.txt
我希望的是能夠再 list1上選一個選項
按下command1
然後開啟 form2
form2的 label1會讀取 123.txt的資料
並貼到 label1的標題顯現出來

希望大大可以幫忙一下~(我才剛學vb沒多久...在比較難或艱澀的地方希望可以指導一下~^^謝謝)

意思就是
lisit 1上面有幾個選項
有選項 123 選此按開啟 會開啟123.txt並顯現出來
有選項 456 選此按開啟 會開啟456.txt並顯現出來

另外 label1可以自動換行和有個可以上下捲動 label1 的垂直捲動軸
謝謝大大的幫忙~^^

Answer 1

'如同戊大所說Label並無捲軸,可改用TextBox並且把MultiLine屬性設成True,ScrollBars屬性設成3'底下CODE在Form1Private Sub Command1_Click()    Dim S$, A() As Byte        '假設檔案在C:\    S = "C:\" & List1.Text & ".txt"    '沒有此檔案就結束    If Dir(S) = "" Then Exit Sub        '以Binary方式讀檔放至A()    ReDim A(FileLen(S) - 1)    Open S For Binary As #1    Get #1, , A    Close #1    With Form2         '開啟Form2        .Show        '將Label設成自動調整大小及可顯示多行        .Label1.AutoSize = True        .Label1.WordWrap = True        '將A()轉成Unicode丟給Label        .Label1 = StrConv(A, vbUnicode)        '若是TextBox就把值丟給TextBox        '.Text1 = StrConv(A, vbUnicode)    End WithEnd Sub

Answer 2

我了解你的意思
你這樣不如用1個Combo,1個textbox
combo裡面選裡面的文件資料,
之後顯示在textbox

Answer 3

點數真的快要沒了耶~"~ 謝謝提醒~

Answer 4

[list1上選一個選項]?
這裏沒交待清楚~

2006-09-09 01:21:59 補充：
還有...list1選項 和 123.txt內容 是否有任何對應關係?!

2006-09-09 01:26:13 補充：
順便提醒泥...不要光顧著問~泥滴點數快沒了!
http://tw.knowledge.yahoo.com/info/points.html

2006-09-09 13:15:44 補充：
label物件是沒有捲軸的!

2006-09-09 13:27:06 補充：
建議把label改用forms2.0的textbox，它才符合你要的功能.

2006-09-09 16:36:01 補充：
vb內建的textbox的自動換行也是無效的...所以還是得用forms2.0的textbox，才能自動換行又有捲軸