簡單的vb程序設(shè)計(1)-資料下載頁
2025-01-06 18:33本頁面
【正文】 選擇操作時，這三個屬性用來標(biāo)識用戶選中的正文。 SelStart： 選定的正文的開始位置，第一個字符的位置為 0，依次 類推。 SelLength： 選定的正文長度。 SelText： 選定的正文內(nèi)容。 ?Locked： 指定文本內(nèi)容是否可被編輯。默認(rèn)為 False， 表示可編輯；當(dāng)設(shè)置為 True時，文本內(nèi)容相當(dāng)于標(biāo)簽的作用。如： Private sub form_click( ) =true text1. text=“abcdefghijklmnopqrst” End sub ?PasswordChar： 指定顯示在文本框中的字符。 如： =“*” 實例 例：做出下面界面 例：建立一個可以實現(xiàn)剪切、復(fù)制、粘貼和新建的簡單文本編輯器。 程序代碼如下： Dim temp As String Private Sub Form_Load() = 20 End Sub Private Sub CmdNew_Click() = End Sub Private Sub CmdCut_Click() temp = = End Sub Private Sub CmdCopy_Click() temp = End Sub Private Sub CmdPast_Click() = temp End Sub 2. 主要事件 ?Change事件 當(dāng)用戶 輸入新內(nèi)容 或當(dāng) 程序?qū)?Text屬性設(shè)置新值 ，從而改變文本框的 Text屬性時會引發(fā)該事件。當(dāng)用戶輸入一個字符時，就會引發(fā)一次 Change事件。如，用戶輸入“ Hello”一詞，會引發(fā) 5次 Change事件。 輸入過程共 觸發(fā)了 5次 文本框的 change事件！ ?KeyPress事件 當(dāng)用戶按下并釋放鍵盤上的一個 字符鍵 時，就會引發(fā) 焦點所在的文本框 的 KeyPress事件，此事件會返回一個 KeyAscii參數(shù)到該事件過程中。 如：當(dāng)輸入字符“ a”， 返回 KeyAscii的值為 97，通過Chr(KeyAscii)可以將 ASCII碼轉(zhuǎn)換為所對應(yīng)字符“ a”。 應(yīng)用：同 Change事件一樣，每輸入一個字符就會引發(fā)一次KeyPress事件。該事件最常用的是對輸入的是否為回車符（ KeyAscii的值為 13）進(jìn)行判斷，表示文本輸入結(jié)束。 ?LostFocus事件 當(dāng)一個對象失去焦點或移動 Tab鍵或單擊另一個對象時都會發(fā)生 LostFocus事件。 LostFocus事件過程主要是用來對數(shù)據(jù)更新進(jìn)行驗證和確認(rèn)。常用于檢查 Text屬性的內(nèi)容，比在 Change事件過程中檢查有效得多。 ?GotFocus事件 和 LostFocus事件相反，當(dāng)一個對象獲得焦點時發(fā)生。 3. 常用方法 文本框最常用的方法是 SetFocus， 該方法是把光標(biāo)移動到指定的文本框中。通常放在窗體的 activate事件當(dāng)中，而不放到load事件中。 格式： [對象 .]SetFocus 實例 密碼校驗正確后才可 打開 form2窗體！ 例：建立如圖的用戶登錄窗口，兩個文本框分別校驗用戶名和密碼，當(dāng)密碼輸入為“ 123456”時， 單擊“登錄”按鈕或按下回車鍵時 才可以打開窗體 form2 ；否則在窗體的左上角輸出出錯信息。 Private Sub Form_Activate() End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If =“123456” Then Else “密碼錯誤，請重新輸入！ End If End If End Sub Private Sub Text2_LostFocus() If = 123456 Then Else 密碼錯誤，請重新輸入！ End If End Sub 想一想： 把 Text2_LostFocus()事件替換為哪個事件也可以達(dá)到同樣的校驗效果？ 本章小結(jié) ? 對象三要素概念 ? 常用對象的三要素（熟記） ? 建立一個完整的應(yīng)用程序的步驟（包括保存、生成可執(zhí)行文件和打包）
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1