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