簡單說
再 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
'如同戊大所說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⤋