English Deutsch Français Italiano Español Português 繁體中文 Bahasa Indonesia Tiếng Việt ภาษาไทย
所有分類

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

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

2006-09-08 20:32:33 · 4 個解答 · 發問者 志源 1 in 電腦與網際網路 程式設計

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

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

2006-09-08 21:25:19 · update #1

4 個解答

'如同戊大所說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

2006-09-09 11:53:07 · answer #1 · answered by W.J.S. 7 · 0 0

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

2006-09-09 14:29:36 · answer #2 · answered by ? 5 · 0 0

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

2006-09-08 21:28:45 · answer #3 · answered by 志源 1 · 0 0

[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,才能自動換行又有捲軸

2006-09-08 21:20:32 · answer #4 · answered by ? 7 · 0 0

fedest.com, questions and answers