【正文】 默認(rèn)按鈕 108 (1) Text屬性： 字符串類型 。 返回或設(shè)置文本框中顯示的內(nèi)容 。 例如： = ―歡迎使用 Visual Basic‖ (2) MultiLine屬性： 布爾型 。 當(dāng) MultiLine屬性為 True時(shí) ， 文本框可以輸入或顯示多行文本 ， 且會(huì)在輸入的內(nèi)容超出文本框時(shí)自動(dòng)換行 。 默認(rèn)值為 False。 3 用文本框 (TextBox)輸入數(shù)據(jù) 文本框控件在工具箱中的名稱為 TextBox，在 VB中，可以使用文本框控件作為輸入控件，在運(yùn)行時(shí)接收用戶輸入的數(shù)據(jù)。 1)屬性 109 3) PasswordChar屬性： 字符串類型 。 當(dāng) MuitiLine屬性值為 False時(shí) ， 該屬性可以用于口令輸入 。 在缺省狀態(tài)下 ， 該屬性被設(shè)置為空串 ， 用戶從鍵盤(pán)輸入時(shí) ， 每個(gè)字符都可以在文本框中顯示出來(lái) 。 如果把 PasswordChar屬性設(shè)置為一個(gè)字符 ， 如星號(hào) (*)， 則在文本框中鍵人字符時(shí) ， 只顯示星號(hào) ， 不顯示鍵人的字符 。 Text屬性接收的仍是用戶輸入的文本 。 4) ScrollBars屬性： 數(shù)值型 。 該屬性用于確定文本框是否帶滾動(dòng)條 。 有以下 4種選擇： 0None 沒(méi)有滾動(dòng)條 1Horizontal 只有水平滾動(dòng)條 2Vertical 只有垂直滾動(dòng)條 3—Both 同時(shí)具有水平和垂直滾動(dòng)條 只有當(dāng) MultiLine屬性值為 True時(shí) ， 文本框才顯示滾動(dòng)條 。 110 5) SelLength屬性： 數(shù)值型 。 在程序運(yùn)行期間返回或設(shè)置選擇的字符數(shù) 。 例如： = Len() 表示選中文本框 Text1中所有字符 。 6) SelStart屬性： 數(shù)值型 。 在程序運(yùn)行期間返回或設(shè)置當(dāng)前選擇文本的起始位置 。 例如： = 0 表示選擇文本的起始位置從第一個(gè)字符開(kāi)始 。 7) Locked屬性： 布爾型 。 指定運(yùn)行時(shí)文本框內(nèi)容是否可以編輯 。 默認(rèn)值為 False，表示可以編輯 。 111 1)Change事件 ： 當(dāng)用戶向文本框輸人新的內(nèi)容 ， 或在程序代碼中對(duì)文本框的 Text屬性進(jìn)行賦值從而改變了文本框的 Text屬性時(shí) ， 將觸發(fā) Change事件 。 2．事件和方法 文本框除了支持鼠標(biāo)的 Click、 DblClick事件外，還支持Change、 GotFocus、 LostFocus、 KeyPress等事件和 SetFocus方法。 例：建立三個(gè)文本框和兩個(gè)命令按鈕。運(yùn)行時(shí)，用戶在文本框 Text1中輸入內(nèi)容的同時(shí)，文本框 Text2和 Text3顯示相同的內(nèi)容，但顯示的字體不同。單擊“ 清除 ” ，按鈕清空三個(gè)文本框中的內(nèi)容，單擊“ 退出 ” 按鈕結(jié)束程序的運(yùn)行 . 112 設(shè)計(jì)界面 程序代碼 運(yùn)行界面 113 2) GotFOCUS事件： 當(dāng)運(yùn)行時(shí)用 Tab鍵或用鼠標(biāo)選擇對(duì)象，或用 SetFOCUS方法使光標(biāo)落在對(duì)象上時(shí)，觸發(fā)該事件，稱之為? 獲得焦點(diǎn) ?。該事件適用于窗體和大部分可接受鍵盤(pán)輸入的控件。 Text1獲得焦點(diǎn) Text2失去焦點(diǎn) 114 3) LostFOCUS事件： 當(dāng)按下 Tab鍵使光標(biāo)離開(kāi)當(dāng)前文本框 ， 或者用鼠標(biāo)選擇窗體的其他對(duì) 象時(shí)觸發(fā)該事件 ， 稱之為 ? 失去焦點(diǎn) ? 。 4) KeyPress事件： 當(dāng)在鍵盤(pán)上按下某個(gè)鍵時(shí)觸發(fā)該事件 。 KeyPress事件返回一個(gè)參數(shù) KeyAscii，該參數(shù)值為整數(shù)，表示所按下鍵的 ASCⅡ 碼。 5) SetFocus方法： SetFocus方法是文本框常用的方法 ， 該方法是把光標(biāo)移到指定的文本框中 ， 使該文本框獲得焦點(diǎn) 。 當(dāng)在窗體上建立了多個(gè)文本框后 ， 可以使用該方法把光標(biāo)置于所需要的文本框上 。 使用格式如下： [對(duì)象名 ． ]SetFocus 例如 ， 將焦點(diǎn)定位在文本框 Textl中 ， 使用語(yǔ)句： 115 在程序設(shè)計(jì)中對(duì)輸入的數(shù)據(jù)進(jìn)行加工后 ， 往往需要將數(shù)據(jù)輸出 。 在 VB中 ， 可以使用 ?消息框 (MsgBox)函數(shù)或語(yǔ)句 ?文本框 (Text)控件 ?標(biāo)簽 (Label)控件 ?Print方法 實(shí)現(xiàn)輸出 。 輸出數(shù)據(jù) 116 在 windows中 ， 如果操作有誤 ， 通常會(huì)在屏幕上顯示一個(gè)對(duì)話框 ， 提示用戶進(jìn)行選擇 ， 然后系統(tǒng)根據(jù)選擇確定其后的操作 。 VB提供的 MsgBox函數(shù)可以實(shí)現(xiàn)此功能 ， 它可以向用戶傳送信息 ， 并可以接收用戶在對(duì)話框上的選擇 ， 以此作為程序繼續(xù)執(zhí)行的依據(jù) 。 1. 用消息框 (MsgBox)輸出數(shù)據(jù) 117 2 用文本框 (TextBox)輸出數(shù)據(jù) 用文本框可以輸人數(shù)據(jù) ， 也可以使用文本框輸出數(shù)據(jù) 。 例 : 已知長(zhǎng)方體的長(zhǎng)、寬、高為 a、 b、 c，求其表面積 118 119 1． 屬性 Caption屬性 ：字符型 。 標(biāo)簽的標(biāo)題 。 Alignment屬性 ： 數(shù)值型 。 確定標(biāo)簽中標(biāo)題的對(duì)齊方式 ， 有以下設(shè)置值： 0LeftJustify 缺省值 ， 標(biāo)題從標(biāo)簽的左邊開(kāi)始顯示 。 1RightJustif 標(biāo)題靠右顯示 。 2Center 標(biāo)題居中顯示 。 AutoSize屬性 ： 布爾型 。 設(shè)置為 True時(shí) ， 可根據(jù)標(biāo)題自動(dòng)調(diào)整標(biāo)簽的大??；設(shè)置為 False(缺省值 )時(shí) ， 標(biāo)簽保持設(shè)計(jì)時(shí)定義的大小 ， 太長(zhǎng)的標(biāo)題內(nèi)容將不能顯示出來(lái) 。 BackStyle屬性 ：數(shù)值型 。 缺省值為 1， 標(biāo)簽不透明；設(shè)置為 0時(shí) ， 標(biāo)簽透明 。 WordWrap屬性 ： 布爾型 。 設(shè)置為 True時(shí) ， 標(biāo)簽將在垂直方向變化大小以與標(biāo)題相適應(yīng) ， 此時(shí) ， Autosize屬性應(yīng)設(shè)置為 True；設(shè)置為 False時(shí) (缺省值 )， 標(biāo)簽不能在垂直方向上擴(kuò)展 。 3. 用標(biāo)簽 (Label)輸出數(shù)據(jù) VB提供的標(biāo)簽控件只能顯示文本，而不能對(duì)文本進(jìn)行編輯。標(biāo)簽通常用于標(biāo)注本身具有 Caption屬性的控件。例如，可以使用標(biāo)簽為文本框附加描述信息。標(biāo)簽也常用于輸出。 120 設(shè)計(jì)界面 代碼 運(yùn)行界面 例 121 標(biāo)簽控件可以支持 Click、 DblClick等事件 。 例：設(shè)窗體上有一個(gè)標(biāo)簽控件 Labell， 其 AutoSize屬性值為T(mén)rue， 雙擊該標(biāo)簽控件 ， 則標(biāo)簽的標(biāo)題字體增加 10磅 ， 可以通過(guò)如下代碼實(shí)現(xiàn)： Private Sub Label1_DblClick( ) Labell． FontSize = Labell． FontSize + 10 End Sub 2．事件 122 Print方法可以在窗體 、 圖片框 、 打印機(jī)和立即窗口等對(duì)象上輸出數(shù)據(jù) 。 [對(duì)象名 ． ] Print [表達(dá)式表 ][{。 | ,}] ? 對(duì)象名 可以是窗體 、 圖片框 、 打印機(jī)或立即窗口 。 如果省略 “ 對(duì)象名 ” ， 則在當(dāng)前窗體上輸出 。 ? 表達(dá)式表 中的表達(dá)式可以是算術(shù)表達(dá)式 、 字符串表達(dá)式 、 關(guān)系表達(dá)式或者布爾表達(dá)式 ， 多個(gè)表達(dá)式之間的分隔符為逗號(hào) (， )或分號(hào) (； )。 3. 用 Print方法輸出數(shù)據(jù) 1. Print方法 123 例： Form1． Print ―歡迎使用 Visual Basic‖ 在窗體 Forml上顯示字符串?歡迎使用 Visual Basic‖ Picture1． Print ―歡迎使用 Visual Basic‖ 在圖片框 Picturel上顯示字符串?歡迎使用 Visual Basic‖ Printer． Print ―歡迎使用 Visual Basic‖ 在打印機(jī)上打印字符串?歡迎使用 Visual Basic‖ 124 Print方法具有計(jì)算和輸出雙重功能。 對(duì)于表達(dá)式，先計(jì)算表達(dá)式的值，然后輸出。輸出時(shí)，數(shù)值型數(shù)據(jù)前面有一符號(hào)位（正號(hào)不顯示），后面留一個(gè)空格位；字符串原樣輸出，前后無(wú)空格。 符號(hào)位 125 Print方法有兩種顯示格式：區(qū)分格式和緊湊格式。 當(dāng)各表達(dá)式之間用逗號(hào)作為分隔符時(shí)，則按區(qū)分，顯示數(shù)據(jù)個(gè)字為單位把一個(gè)輸出行分成 若干區(qū)個(gè)表達(dá)式的值。 當(dāng)各表達(dá)式之間用分號(hào)作為分隔符時(shí)，則按緊湊格式輸出數(shù)據(jù)，后一項(xiàng)緊跟前一項(xiàng)輸出。 126 一般情況下，每執(zhí)行一次 Print方法都要自動(dòng)換行，即每一次執(zhí)行 Print時(shí)，都會(huì)在新的一行上輸出數(shù)據(jù)。若要在同一行上輸出數(shù)據(jù)，則可以在末尾加上分號(hào)或逗號(hào)。 若省略 表達(dá)式表 ，則輸出一個(gè)空行或取消前面 Print末尾的逗號(hào)或分號(hào)的作用。 127 2. 與 Print方法有關(guān)的函數(shù) 格式 : Tab[(n)] 功能 : 在指定的第 n個(gè)位置 上輸出數(shù)據(jù) . 1) Tab函數(shù) 說(shuō)明 : ?若 n小于當(dāng)前顯示位置 , 則自動(dòng)移到下一個(gè)輸出行的第 n列上 。 ?若 n小于 1,則打印位置在第 1列 。 ?若 n大于輸出行的寬度 ,則利用公式 n Mod width計(jì)算下一個(gè)打印位置 。 ?若省略此參數(shù) ,則將插入點(diǎn)移到下一個(gè)打印區(qū)的起點(diǎn) . 128 2) Spc函數(shù) 格式 : Spc(n) 功能 : 跳過(guò) n個(gè)空格 . 說(shuō)明 : n是一個(gè)數(shù)值表達(dá)式 ,表示空格 . 例如 : Print ―Hello‖。 Spc(3)。 ―World‖ 輸出結(jié)果 : HelloUUUWorld Spc函數(shù)與輸出項(xiàng)之間用分號(hào)分隔 . Spc函數(shù)表示兩個(gè)輸出項(xiàng)之間的間隔 , Tab函數(shù)總是從對(duì)象的左端開(kāi)始計(jì)數(shù) . 129 舉例 [例 33] 使用文本框輸入圓的半徑，計(jì)算圓的面積并用標(biāo)簽 輸出。運(yùn)行界面如下圖所示。 Private Sub Command1_Click() Dim r As Double,s As Double Const pi = r = Val() s=pi * r * r = ―圓的面積：” amp。 s End Sub 130 有些實(shí)際問(wèn)題中 ， 往往需要根據(jù)條件成立與否 ， 決定程序的執(zhí)行方向 ， 在不同的條件下 ， 進(jìn)行不同的處理 。 使用順序結(jié)構(gòu)是無(wú)法解決這一問(wèn)題的 ， 需要用選擇結(jié)構(gòu) 。 本章將介紹 Visual Basic中用于解決此類問(wèn)題的三種語(yǔ)句結(jié)構(gòu) ， 即： 單行結(jié)構(gòu)條件語(yǔ)句 If… Then… Else… 塊結(jié)構(gòu)條件語(yǔ)句 If… Then… EndIf 多分支選擇語(yǔ)句 Select Case… End Select 以上語(yǔ)句又統(tǒng)稱為條件語(yǔ)句 ， 其功能都是根據(jù)條件或表達(dá)式的值有選擇地執(zhí)行一組語(yǔ)句 。 選擇結(jié)構(gòu)程序設(shè)計(jì) 131 格式： If 條件 Then [語(yǔ)句組 1][Else 語(yǔ)句組 2] 功能：如果 條件 成立 ， 則執(zhí)行 語(yǔ)句組 1， 否則執(zhí)行 語(yǔ)句組 2。 實(shí)現(xiàn)選擇結(jié)構(gòu)的語(yǔ)句 1. 單行結(jié)構(gòu)條件語(yǔ)句 ?條件 可以是關(guān)系表達(dá)式、邏輯表達(dá)式、數(shù)值表達(dá)式或字符串表達(dá)式。 對(duì)于數(shù)值表達(dá)式， VB將 0作為 False、非 0作為 True處理； 對(duì)于字符串表達(dá)式， VB只允許包含數(shù)字的字符串，當(dāng)字符串中的數(shù)字值為 0時(shí)，則認(rèn)為是 False，否則認(rèn)為是 True。 VisualBasic將 Null作為 False處理。 ? 語(yǔ)句組 1和 語(yǔ)句組 2可以有多條語(yǔ)句，各語(yǔ)句之間用冒號(hào)隔開(kāi)。 132 例如： If N0 Then A=A+B： B=B+A Else A=AB： B=BA 可以沒(méi)有 Else部分 ， 這時(shí)必須有 語(yǔ)句組 1。 例如： If Xaaa Then PrintX 注意： 1)單行結(jié)構(gòu)條件語(yǔ)句應(yīng)作為一條語(yǔ)句書(shū)寫(xiě) 。 如果語(yǔ)句太長(zhǎng)需要換行 ， 必須在折行處使用續(xù)行符號(hào) ， 即一個(gè)空格跟一個(gè)下劃線 。 2)無(wú)論條件是否成立 ， 單行結(jié)構(gòu)條件語(yǔ)句的出口都是本條件語(yǔ)句之后的語(yǔ)句