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