【正文】 LostFocus (3)方法 : SetFocus 8. 幫助系統(tǒng)的使用 。KeyPress。Click。 SelText。 SelStart。MaxLength。 ScrollBars。DblClick (3)方法 : Move 第二章 Visual Basic 簡介 77 7. 文本框（ TextBox） (1) 屬性 : Text。BackStyle。AutoSize。KeyUp (3) 方法 : SetFocus 6. 標簽（ Label） (1)屬性 : Caption。 KeyPress。MouseDown。 Default。Visible。 DisablePicture。Picture。Font。MouseUp。 DblClick。Activate。Moveable 。 BorderStyle。 MaxButton 。 CurrentX。Icon。 BackColor。 Caption。 ―縮小”按鈕 39。 ―放大”按鈕 39。 ―斜體”按鈕 39。 ―加粗”按鈕 39。 ―刪除線”按鈕 39。 ―下劃線”按鈕 39。 將變量 tmp的值賦給文本框選中的內容 = tmp 39。 焦點定位在文本框 Text1 End Sub Private Sub Command3_Click() 39。 將選中的內容存放在變量 tmp中 tmp = = 39。 將選中的內容存放在變量 tmp中 tmp = End Sub 第二章 Visual Basic 簡介 69 Private Sub Command2_Click() 39。 ―復制”按鈕 39。 設計界面： 第二章 Visual Basic 簡介 68 代碼如下： 1）在代碼窗口的通用聲明段定義一個臨時變量 tmp，用于存放文本框中選中的內容（即SelText屬性的值） Dim tmp 2）編寫各命令按鈕的 Click事件過程。 2）設置或取消設置文本框文字的下劃線、刪除線、粗體、斜體效果。失去焦點 ?KeyPress:當焦點在文本框時按下一個按鍵時發(fā)生 3. 方法 SetFocus方法： 對象名 .SetFocus 例：將焦點定位在文本框 Text1中。雙擊 ? GotFocus。 打印選擇的文本 End Sub 第二章 Visual Basic 簡介 66 2. 事件 ? Change: 當文本框的內容發(fā)生改變時產生 ? Click。 設置選擇起點 =3 39。 (9) SelText：在運行期返回或設置當前所選擇文本的字符串 Private Sub Command1_Click() 39。可用于控制口令的最大長度 (6) Locked: 指定運行時文本框內容是否可以編輯 (7) SelStart: 在運行期 返回或設置當前選擇文本的起始位置 例 : =0 表示選擇文本的起始位置從第一個字符開始。 1. 屬性 (1) Text屬性：文本框中顯示的內容 例 : = 歡迎 = (2) MultiLine: 決定是否可以顯示多行文本 (3) ScrollBars: 決定是否帶滾動條以及滾動條的方向 (無、水平、垂直、雙向 ) (僅當 MultiLine屬性值為 True時才可以帶滾動條 ) 第二章 Visual Basic 簡介 64 (4) PasswordChar: 在文本框中鍵入字符顯示為該指定的字符。 Private Sub Timer1_Timer() 39。 關閉定時器 = 0 39。 激活定時器 = False = True End Sub 第二章 Visual Basic 簡介 62 3）單擊“停止”按鈕關閉定時器，使標簽回到窗體左側，設置“開始”按鈕有效，“停止”按鈕無效。 將標簽的初始位置設置在窗體左側 = 0 End Sub 2）單擊“開始”按鈕激活定時器，并設置“開始”按鈕無效，“停止”按鈕有效。 詳細屬性設置見書 P31表 22 定時器 Timer1 標簽 Label1 第二章 Visual Basic 簡介 61 代碼如下： 1）在窗體加載時 (Load事件 )，使標簽的初始位置在窗體的左側。 Private Sub Label1_Click() + 50 End Sub 1緹等價于 1/20 個打印機的磅 第二章 Visual Basic 簡介 60 【 例 24】 設計一個水平滾動的條幅。 例 : 設窗體上有一個標簽控件 Label1， 其AutoSize屬性值為 True， 雙擊該標簽控件，則標簽的標題字體增加 10磅，可以通過如下代碼實現(xiàn)： Private Sub Label1_DblClick() = + 10 End Sub 第二章 Visual Basic 簡介 59 3．方法 Move方法： 標簽名 .Move left[,top,width, height] ?left： 指示標簽左邊的水平坐標（ x軸） ?top： 指示標簽頂邊的垂直坐標（ y軸） ?width： 指示標簽新的寬度 ?height： 指示標簽新的高度 注： left必須有，指定后面的參數(shù)時不能省略前面的參數(shù)。 1．屬性 (1) Caption：標簽的標題 (2) Alignment：標簽中標題的對齊方式 (3) BorderStyle：設置標簽是否有邊框 (4) BackStyle：設置標簽是否透明 (5) AutoSize：設標簽是否能根據(jù)標題自動調整大小 (6) WordWrap：設置標簽是否隨標題沿垂直方向自動擴展。 顯示 按鈕無效 39。 顯示圖像 = True 39。 修改窗體的標題內容 = 單擊顯示按鈕顯示圖像 End Sub 第二章 Visual Basic 簡介 56 2）“顯示”按鈕 cmdShow的 Click事件過程： Private Sub cmdShow_Click() 39。 隱藏 按鈕無效 = True 39。 隱藏 按鈕 = False 39。S) Enabled False 命令按鈕 （名稱） cmdHide Caption 隱藏 (amp。 2)單擊“顯示”按鈕，顯示圖像，并且使“顯示”按鈕無效，“隱藏”按鈕有效（圖 b）。 例如，將焦點定位在命令按鈕 cmdOk上： 第二章 Visual Basic 簡介 53 【 例 23】 啟動 Visual Basic ，新建一個“標準 EXE‖工程，設計如圖 a所示的界面。如： Private Sub Command4_Click() Command1_Click 39。 第二章 Visual Basic 簡介 49 2. 事件 ?Click： 在按鈕上單擊鼠標 ?KeyPress：當按鈕具有焦點時按下一個按鍵時發(fā)生 ?KeyDown：當按鈕具有焦點時按下一個按鍵時發(fā)生 ?KeyUp：當按鈕具有焦