【文章內(nèi)容簡介】 不起作用，只能通過回車鍵換行。 2022/2/3 33 7． SelLength 屬性： 當前選中的字符數(shù)。當在文本框中選擇文本時，該屬性值會隨著選擇字符的多少而改變；未選中任何字符時該屬性值為0；該屬性只能在程序代碼中使用。 8． SelStart 屬性： 表示用戶選中一段文字的起始位置。 0 表示選擇的開始位置在第一個字符之前； 1 表示從第二字符之前開始選擇，依次類推。該屬性只能在程序代碼中使用。 2022/2/3 34 9. SelText 屬性： 表示用戶選中的文本字符串。沒有選擇文本，則該屬性含有一個空字符串；若在程序中設(shè)置 SelText屬性，則用該值代替文本框中選中的文本。 例如：假定文本框 Text1中有下列一行文本： Microsoft Visual Basic Programming 并選擇了 “ Basic‖，則執(zhí)行語句 =‖C++‖ 后，上述文本將變成： Microsoft Visual C++ Programming 2022/2/3 35 事件 ? 文本框除支持 Click， DbClick事件 ， 常用的還有Change、 GotFocus 、 LostFocus事件 。 1． Change事件： 當用戶輸入新內(nèi)容，或程序?qū)ξ谋究虻?Text屬性重新賦值，從而改變文本框的 Text屬性時觸發(fā)該事件。程序運行后，在文本框中每鍵入一個字符（或刪除字符），就會引發(fā)一次 Change事件。 2022/2/3 36 2． GotFocus事件： 當文本框具有輸入焦點（即處于活動狀態(tài)）時，鍵盤上輸入的每個字符都將在該文本框中顯示出來。只有當一個文本框被激活并且可見性為 True時才能接收到焦點。 3． LostFocus事件： 當用戶按下 [Tab]鍵時光標離開文本框，或用鼠標選擇其它對象時觸發(fā)該事件，稱為 “ 失去焦點 ” 事件。 2022/2/3 37 方法 ?文本框最常用的方法是 SetFocus， 使用該方法可把光標移到指定的文本框中 ， 使之獲得焦點 。 當使用多個文本框時 ， 用該方法可把光標移到所需要的文本框中 。 ?其使用格式為： 對象 .SetFocus 2022/2/3 38 【 例 】 程序運行后 ， 隨著用戶的輸入 ， 標簽中同步顯示出用戶對文本框的內(nèi)容更新的次數(shù) 。 運行效果如圖 34所示 。 2022/2/3 39 2022/2/3 40 ?2．編寫事件過程如下： Private Sub Text1_Change（ ） Static i% i = i + 1 = i End Sub ? 請思考：標簽中顯示的數(shù)字是文本框中顯示的字符個數(shù)嗎 ？ 2022/2/3 41 賦值語句 ? 賦值語句是 VB程序最常用 、 最基本的語句 ， 它能為變量提供數(shù)據(jù) 。 另外 ， 若要在程序代碼中設(shè)置對象的屬性 ， 也要使用賦值語句 。 ?賦值語句有兩種格式： ?格式 1： 變量名 =表達式 ?格式 2： [對象名 .]屬性名 =表達式 2022/2/3 42 ? 賦值語句的作用是：首先計算“ =‖右邊表達式的值，然后將該值賦給“ =‖左邊的變量或?qū)ο蟮膶傩浴Ｔ诟袷?2中，若對象名省略，則默認對象為當前窗體。 ? 例如： ? x=2 39。 把 2賦給 x ? y=x*3 39。 計算 x*3的值，得 6，把 6賦給 y ? x=x+1 39。 計算 x+1的值，得 3，把 3賦給 x ? a$= Hello 39。 把“ Hello‖賦給 a$ ? =你好！ 39。 把“你好！”賦給 Text1的 Text屬性 2022/2/3 43 【 例 】 已知三角形三邊 a， b， c的長 ， 求三角形的面積 ， 輸出三條邊長及面積 。 分析：應(yīng)用程序的界面應(yīng)該能讓用戶輸入三邊的長 ， 程序在接收用戶輸入的數(shù)據(jù)后 ， 利用數(shù)學(xué)公式對數(shù)據(jù)進行計算 ， 并把結(jié)果輸出到屏幕上 。 已知三角形三邊 a，b， c的長 ， 求三角形的面積的公式為： 其中 p=（ a+b+c） /2。 （ 1） 界面設(shè)計：在窗體上建立 5個標簽 、 3個文本框和1個命令按鈕 。 設(shè)置各對象的屬性 ， 如表 33所示 。 ))()(( cpbpapps ????2022/2/3 44 2022/2/3 45 設(shè)計完成的界面如圖 35所示。 （ 2）編寫事件過程如下： Private Sub Command1_Click（） Dim a!， b!， c!， p!， s! a = b = c = p =（ a + b + c） / 2 s = Sqr（ p *（ p a） *（ p b） *（ p c）） = s End Sub 2022/2/3 46 Print方法 Print的格式及功能 ?格式： [對象名 .]Print [表達式列表 ] ?功能：在對象上輸出表達式的值 。 ?說明： （ 1） 對象名：可以是 Form（ 窗體 ） 、 Debug（ 立即窗口 ） 、 Picture（ 圖片框 ） 、 Printer（ 打印機 ） 。 省略此項 ， 表示在當前窗體上輸出 。 例如： 2022/2/3 47 ? Print 23*2=； 23*2 39。 在當前窗體上輸出 23*2= 46 ? Good 39。 在圖片框 Picture1上輸出 Good ? Morning 39。 在打印機上輸出 Morning （ 2）表達式列表：是一個或多個表達式，若為多個表達式，則各表達式之間用“，”或“；”隔開。省略此項，則輸出一空行。 2022/2/3 48 （ 3） 用“，”分隔各表達式時， 各項在以 14個字符位置為單位劃分出的區(qū)段中輸出，每個區(qū)段輸出一項；用“；”分隔各表達式時， 各項按緊湊格式輸出 。 （ 4） 如果在語句行末尾有“；”， 則下一個 Print輸出的內(nèi)容，將緊跟在當前 Print輸出內(nèi)容后面； 如果在語句行末尾有“，”， 則下一個 Print輸出的內(nèi)容，將在當前 Print輸出內(nèi)容的下一區(qū)段輸出； 如果在語句行末尾無分隔符， 則輸出完本語句內(nèi)容后換行，即在新的一行輸出下一個 Print的內(nèi)容。 2022/2/3 49 例如： Print 1； 2； 3 Print 4， 5， Print 6 Print 7， 8 Print Print 9， 10 輸出結(jié)果為： 1 2 3 4 5 6 7 8 9 10 2022/2/3 50 與 Print方法有關(guān)的函數(shù) ? 為了使輸出信息按照指定格式和位置輸出，VB提供了幾個與 Print方法配合使用的函數(shù)，主要包括： Tab、 Spc、 Space$、 Format$。 2022/2/3 51 1． Tab函數(shù) 格式： Tab(n) 說明： （ 1）把光標移到參數(shù) n指定的位置，從這個位置開始輸出信息。要輸?shù)某龅膬?nèi)容放在 Tab函數(shù)的后面。 例如： Print Tab（ 10）； 姓名 ； Tab（ 25）； 年齡 則“姓名”和“年齡”分別從當前行的第 10列和第 25列開始輸出。 輸出結(jié)果如下：