測(cè)繪程序設(shè)計(jì)與應(yīng)用文本框主講教師：吳迪文本框Section常用屬性TextMaxLengthScrollBarsMultiLinePasswordCharFont文本框控件用于接收輸入的數(shù)據(jù)，也可以顯示計(jì)算的結(jié)果數(shù)據(jù)。是VB中最為常用的控件之一。常用事件ChangeGotFocusLostFocusSetFocus常用方法SetFocus與標(biāo)簽控件只能輸出文本不同，文本框控件既可以顯示文本，又可以輸入文本。在設(shè)計(jì)階段或運(yùn)行期間，使用文本框可以實(shí)現(xiàn)在其區(qū)域中顯示、輸入和編輯文本，功能相當(dāng)于一個(gè)簡(jiǎn)單的文本編輯器。因此，文本框控件通常用于輸入、輸出數(shù)字或文本信息，也可以作為文本處理的窗口。1．文本框的常用屬性O(shè)NE前面介紹的一些窗體或控件屬性可以也適用于文本框控件，包括Name、Font、Height、Width、Top、Left、Name、Visible、BorderStyle、Enabled等。此外，文本框還包括以下常用屬性：1）Text屬性該屬性用于設(shè)置或返回文本框中輸入、輸出的字符，是文本框?qū)ο蟮闹饕獙傩?。Text屬性的設(shè)置可以在屬性窗口中操作，也可以通過編寫代碼實(shí)現(xiàn)，例如：Text1.Text="VB程序設(shè)計(jì)"上述語句將在文本框Text1中顯示“VB程序設(shè)計(jì)”。2）MaxLength屬性該屬性用于設(shè)置或返回文本框中可輸入的最大字符數(shù)。該屬性的默認(rèn)值為0，表示不限制文本框中輸入字符的最大長(zhǎng)度。實(shí)際上，如果不限制最大長(zhǎng)度，文本框能夠輸入的字符也不超過64KB。3）MultiLine屬性該屬性用來設(shè)置文本框中是否可以顯示多行文本，其默認(rèn)值是“False”，表示在文本框內(nèi)只能輸入單行文本；當(dāng)MultiLine屬性被設(shè)置為“True”時(shí)，才可以使用多行文本，如下圖所示。（a）屬性值為False（b）屬性值為True4）PasswordChar屬性該屬性用于設(shè)置是否在文本框中顯示用戶鍵入的字符。當(dāng)我們想對(duì)輸入的數(shù)據(jù)（例如口令密碼）進(jìn)行保密時(shí)，可以將該屬性值設(shè)置為一個(gè)字符，那么用戶由鍵盤鍵入的任何字符都將被設(shè)置的字符所覆蓋。例如，在登錄界面，設(shè)置密碼輸入框的PasswordChar屬性值為“*”，則輸入密碼后顯示如右圖所示。PasswordChar屬性值為“*”5）ScrollBars屬性該屬性用于設(shè)置文本框是否有垂直和水平滾動(dòng)條，可設(shè)置的屬性值包括：0-None：文本框中沒有滾動(dòng)條；1-Horizontal：文本框中只有水平滾動(dòng)條；2-Vertical：文本框中只有垂直滾動(dòng)條；3-Both：文本框中同時(shí)具有水平和垂直滾動(dòng)條。提示只有當(dāng)MultiLine屬性被設(shè)置為True時(shí)，用戶才能使用ScrollBars屬性在文本框中設(shè)置滾動(dòng)條；否則ScrollBars屬性設(shè)置無效。2．文本框的事件TWO文本框支持的事件主要有Click、DblClick、Change、GotFocus、LostFocus等。其中，Click、DblClick事件我們?cè)谇懊嬉呀?jīng)用過多次，這里就不再贅述。下面主要介紹Change、GotFocus、LostFocus這三種文本框事件。1）Change事件當(dāng)文本框中顯示的內(nèi)容發(fā)生改變時(shí)，就會(huì)引發(fā)Change事件。例如，在窗體中添加兩個(gè)文本框控件，并將其Text屬性均設(shè)為空。打開代碼窗口并添加如下事件過程代碼：PrivateSubText1_Change()

Text2.Text=UCase(Text1.Text)EndSub運(yùn)行程序，在Text1中輸入英文字符時(shí)，就會(huì)在Text2中得到相應(yīng)的大寫字符。例如在程序運(yùn)行后，在Text1中輸入英文字符串“VisualBasic6.0”后，運(yùn)行結(jié)果如左圖所示。Change事件的運(yùn)行結(jié)果2）GotFocus事件GotFocus事件又稱為獲得焦點(diǎn)事件。當(dāng)文本框中有輸入焦點(diǎn)，即文本框控件是當(dāng)前的活動(dòng)控件時(shí)，就會(huì)引發(fā)GotFocus事件。文本框只有處于被激活狀態(tài)下且其Visible屬性和Enabled屬性均為True時(shí)才能接收到焦點(diǎn)。3）LostFocus事件LostFocus事件又稱為失去焦點(diǎn)事件。當(dāng)文本框控件失去焦點(diǎn)，此時(shí)用戶由鍵盤鍵入的字符不能顯示在文本框中時(shí)，就會(huì)引發(fā)LostFocus事件。下面以一個(gè)程序來測(cè)試GotFocus和LostFocus事件。在這個(gè)測(cè)試程序中，使用三個(gè)對(duì)象：窗體、命令按鈕和文本框。這些對(duì)象的屬性值設(shè)置如下表所示。對(duì)

象屬

性設(shè)置值Form1Caption測(cè)試GotFocus和LostFocus事件Command1Caption失去焦點(diǎn)Text1Text（空）對(duì)象的屬性值設(shè)置打開代碼窗口，添加如下事件過程代碼：PrivateSubText1_GotFocus() '獲得焦點(diǎn)事件

Text1.FontSize=18 '字體大小為18

Text1.ForeColor=RGB(255,0,0) '字體顏色為紅色

Text1.Text="得到焦點(diǎn)" '文本框中顯示“得到焦點(diǎn)”EndSubPrivateSubText1_LostFocus() '失去焦點(diǎn)事件

Text1.FontSize=18 '字體大小為18

Text1.ForeColor=RGB(0,0,255) '字體顏色為藍(lán)色

Text1.Text=“失去焦點(diǎn)” '文本框中顯示“失去焦點(diǎn)”EndSub程序運(yùn)行，將光標(biāo)定位到文本框中時(shí)，文本框獲得焦點(diǎn)并觸發(fā)GotFocus事件，窗口顯示如右圖（一）所示；當(dāng)單擊“失去焦點(diǎn)”按鈕時(shí)，文本框失去焦點(diǎn)，窗口顯示如右圖（二）所示。圖（一）獲得焦點(diǎn)圖（二）失去焦點(diǎn)3．文本框的方法three[對(duì)象.]SetFocus文本框中最常用的方法是設(shè)置焦點(diǎn)SetFocus，其語句格式如下：提示應(yīng)用程序中用到文本控件時(shí)