1、控制文本框中輸入的內(nèi)容
例如我們只要求在文本框中輸入數(shù)字，而不允許出現(xiàn)其它字符，則我們使用KEYPRESS事件并檢查KeyAscii參數(shù)即可，KeyAscii參數(shù)用來(lái)保存鍵盤所用的ANSI碼（不是ASCII碼），下面是一個(gè)例子：
Private Sub Text_KeyPress(KeyAscii As Integer)
if KeyAscii ＜ Asc("0") Or KeyAscii ＞ Asc("9") then
KeyAscii=0
end if
end sub
2、從外部文本文件讀入和從文本框中寫出內(nèi)容到文件內(nèi)容：
有時(shí)我們需要從外部的文本文件中讀入到文本框中，或是把輸入到文本框中的內(nèi)容保存到文件中，這時(shí)可以通過(guò)對(duì)文件操作的幾個(gè)語(yǔ)句來(lái)實(shí)現(xiàn)，其中 Open 語(yǔ)句能夠?qū)ξ募斎?輸出，LOF函數(shù)返回一個(gè) Long型值，表示用 Open 語(yǔ)句打開的文件的大小，該大小以字節(jié)為單位。Input函數(shù)從文件中讀入數(shù)據(jù)，而Print函數(shù)則把數(shù)據(jù)寫到文件中。具體的代碼如下面的實(shí)例，需要注意的是文本框只能打開大小在32K以下的文本文件，否則會(huì)出現(xiàn)錯(cuò)誤。
filename="c:\myext.txt"
Open filename For Input As #1
Text.Text=Input$(Lof(1),#1)
Close #1
filename="c:\myext.txt"
on error resume next
open "c:\file.txt" for output as #1
print #1,text1.text
close #1
3、怎樣把文本框中的文本全部選中
這需要使用文本框的屬性SelStart和SelLength屬性，SelStart表示選擇文本的開始，SelLength表示要選中文本的長(zhǎng)度，采用以下兩句代碼就行了。
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
另外順便提一下SelText屬性，它可以得到已經(jīng)選中的文本。
4、如何在已經(jīng)存在的文本的textbox添加新的一行
Dim strNewText As String
Text1.strNewText = "Updated: " & Date
Text1.SelStart = Len(Text1.Text)
Text1.SelText = VBNewLine & strNewText
實(shí)現(xiàn)的關(guān)鍵是vbNewLine常數(shù)，它的意義是插入一個(gè)換行符。
例如我們只要求在文本框中輸入數(shù)字，而不允許出現(xiàn)其它字符，則我們使用KEYPRESS事件并檢查KeyAscii參數(shù)即可，KeyAscii參數(shù)用來(lái)保存鍵盤所用的ANSI碼（不是ASCII碼），下面是一個(gè)例子：
Private Sub Text_KeyPress(KeyAscii As Integer)
if KeyAscii ＜ Asc("0") Or KeyAscii ＞ Asc("9") then
KeyAscii=0
end if
end sub
2、從外部文本文件讀入和從文本框中寫出內(nèi)容到文件內(nèi)容：
有時(shí)我們需要從外部的文本文件中讀入到文本框中，或是把輸入到文本框中的內(nèi)容保存到文件中，這時(shí)可以通過(guò)對(duì)文件操作的幾個(gè)語(yǔ)句來(lái)實(shí)現(xiàn)，其中 Open 語(yǔ)句能夠?qū)ξ募斎?輸出，LOF函數(shù)返回一個(gè) Long型值，表示用 Open 語(yǔ)句打開的文件的大小，該大小以字節(jié)為單位。Input函數(shù)從文件中讀入數(shù)據(jù)，而Print函數(shù)則把數(shù)據(jù)寫到文件中。具體的代碼如下面的實(shí)例，需要注意的是文本框只能打開大小在32K以下的文本文件，否則會(huì)出現(xiàn)錯(cuò)誤。
filename="c:\myext.txt"
Open filename For Input As #1
Text.Text=Input$(Lof(1),#1)
Close #1
filename="c:\myext.txt"
on error resume next
open "c:\file.txt" for output as #1
print #1,text1.text
close #1
3、怎樣把文本框中的文本全部選中
這需要使用文本框的屬性SelStart和SelLength屬性，SelStart表示選擇文本的開始，SelLength表示要選中文本的長(zhǎng)度，采用以下兩句代碼就行了。
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
另外順便提一下SelText屬性，它可以得到已經(jīng)選中的文本。
4、如何在已經(jīng)存在的文本的textbox添加新的一行
Dim strNewText As String
Text1.strNewText = "Updated: " & Date
Text1.SelStart = Len(Text1.Text)
Text1.SelText = VBNewLine & strNewText
實(shí)現(xiàn)的關(guān)鍵是vbNewLine常數(shù)，它的意義是插入一個(gè)換行符。