第03章窗體按鈕標簽文本框-資料下載頁
2025-09-25 19:10本頁面
【正文】 ? 【 例 】 編寫程序輸入語文、數(shù)學(xué)、外語三門功課的成績，要求輸入的同時計算平均成績并輸出，即一邊輸入一邊計算。 TextBox控件的 Change事件 ? 編程思路：在輸入或修改單科成績的同時計算平均分，即在語文、數(shù)學(xué)和英語文本框的內(nèi)容發(fā)生改變時就要立即重新計算平均分。因此需要編寫這三個文本框的Change事件過程。代碼如下： Private Sub text1_Change() Dim sum As Double ?用于計算總分 sum = 0 If Text1 And Text2 And Text3 Then sum = sum + Val(Text1) + Val(Text2) + Val(Text3) Text4 = sum / 3 End If End Sub 因為文本框中存放的是字符串 ， 所以需要使用 Val函數(shù)轉(zhuǎn)換為數(shù)字 。 text2, text3的 Change事件過程與 text1相同。 TextBox控件示例 3 ? 有時對輸入的字符類型有特殊要求。比如只允許輸入數(shù)字，如果輸入了其它字符應(yīng)忽略。 ? 可用文本框的 KeyPress事件限制或轉(zhuǎn)換輸入的字符。 【 例 】 為上例增加功能，來限定文本框僅接受數(shù)字字符。 Private Sub text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Asc(“0”) To Asc(“9”) ?輸入數(shù)字 Case vbKeyBack ?輸?shù)氖?Backspace鍵 Case Asc(“.”) ?輸小數(shù)點； 以上為正確字符 ， 不做任何處理 Case Else KeyAscii = 0 39。取消字符 Beep 39。發(fā)出提示音 End Select End Sub TextBox控件示例 4 用戶輸入了有效的鍵，但還要判輸入值是否在有效范圍 ? 在 Validate事件過程中進行檢驗，其中參數(shù) Cancel表示是否要取消焦點的移動，如果為 true則不會引發(fā)LostFocus事件，焦點仍然在 Textbox控件上。 Private Sub Text1_Validate(Cancel As Boolean) If Val(Text1)100 Or Val(Text1)0 Then MsgBox “Invalid data!“ ?MaxLength也可，一般用于限長 Cancel = True End If End Sub TextBox控件 中的選中文本 ? 所有 Windows中的文本編輯工具都有共同的特點 ， 就是可以選擇所有文本或部分文本進行剪切 、 復(fù)制或其它操作 ， 選中的文本以突出顏色顯示 。 ? SelStart屬性： Long型整數(shù) ， 用來指定選定文本塊的起始位置 。 ? SelLength屬性： Long型整數(shù) ， 指定所選的文本塊的字符個數(shù) 。 ? SelText屬性： 是一個字符串 ， 即選定的字符 。如果沒有字符被選定的話 ， 就是空字符串 。 如果程序中對 SelText賦值新的字符串 ， 則該字符串將替換文本框中原選定的文本 。 TextBox控件的 選中文本 Private Sub Form_Click() Text2 = Text3 = Text4 = End Sub TextBox控件 選中文本示例 1 ? 通過設(shè)置 SelStart和 SelLength屬性 ， 可控制文本的選擇 。 例如我們在數(shù)據(jù)錄入程序中 ， 用戶經(jīng)常會希望光標置于已有文本的尾部 ， 或者在重新錄入某項數(shù)據(jù)可能希望新的輸入替換原有數(shù)據(jù) 。 【 例 】 對于分數(shù)輸入的程序 ， 在每個輸入框重新獲得焦點時 ， 將原來文本框中輸入的數(shù)據(jù)全部選中 （ 突出顯示 ） ， 以便于替換或修改 。 代碼如下： Private Sub Text1_GotFocus() = 0 ?0是頭部，尾部 = Len(Text1) + 1 = Len(Text1) End Sub ? 見課堂演示第二章 26， 28 TextBox控件 選中文本示例 2 書寫代碼的規(guī)則 1． 不區(qū)分大小寫 ? 在 VB中所有的關(guān)鍵字 、 常量名 、 變量名以及對象屬性等在書寫時不區(qū)分英文大小寫 。 ? 2． 使用注釋 注釋語句以單引號 ’ 開始 ， 可以單獨書寫一行 ， 也可以與程序語句在同一行 。
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1