1樓：匿名使用者
2樓：匿名使用者
richtextbox的大部分功能textbox都能實現，只是比較麻煩點而已。
開啟和寫入檔案用open語句[open "xx.txt" for input as #1]
讀取和寫入用line input和print。
例：private sub command1_click() '讀取檔案
open "xx.txt" for input as #1
do until eof(1)
line input #1, a
text1.text=text1.text & vbcrlf & a
loop
close #1
end sub
private sub command2_click() '寫入檔案
open "xx.txt" for output as #1
print #1,text1.text '讀取檔案
close #1
end sub
3樓：
richtextbox也有滾動條，可以設定的，你再看看好像text只能接受16kb（32kb？？）字串我做的記事本吃虧了……
text複製大的檔案溢位，推薦richtextbox
4樓：匿名使用者
text控制項有很多屬性，其中有乙個multiline屬性，將其設定為true就可以多行顯示文字，還有乙個scrollbar屬性，有四個選擇支，分別為無滾動條（0），豎直滾動條
水平滾動條，豎直與水平滾動條。
理論上用text控制項可以做成記事本，作為初學者的練習的確可以嘗試一下，但是如果要做乙個使用的程式，用api還是乙個好的選擇。再加上word的功能遠好於記事本，而word又有vb編輯器，所以……你自己選吧
5樓：匿名使用者
text1的屬性中
multiline（多行顯示）改為 true
scrollbars（是否有滾動條）改為 3－***
用vb製作乙個簡單記事本問題！
6樓：匿名使用者
|private sub cmd_open_click()dim filen$, freef%, t$cmd_dlg.filter = "文字
抄檔案(*.txt)|*.txt"
cmd_dlg.cancelerror = trueon error goto endsub
cmd_dlg.showopen
freef = freefile
filen = cmd_dlg.filenameopen filen for input as freefline input #freef, t
a_txt.text = t
do until eof(freef)
line input #freef, t
a_txt.text = a_txt.text + vbnewline + t
loop
close freef
endsub:
end sub
簡單VB問題，乙個簡單VB問題
上面的兄弟是考lz的改錯技術嗎？我改了一下macrotian給的 private sub command1 click dim pro as double dim i as integer n text1.text pro 1 for i 1 to n if i mod 2 0 then pro p...
怎麼用VB製作倒計時，怎麼用VB製作一個倒計時？
窗體中放置三個command 三個label 一個timer控制元件，在form load過程中已經說明了控制元件用途，其中label1是顯示分鐘數，label2是顯示秒數，如下 dim js as integer 這裡宣告瞭一個全域性變數，儲存計時數 private sub command1 cl...
vb中的演算法問題,VB乙個演算法問題。
你的舉例很簡bai單的啊,用dufor 迴圈就可以實現。private sub mand1 click i 0 for a 1 to 9 for b 3 to 9 if a b 15 then list1.additem a a b b i i 1 next b next a print a b 1...