[計算機軟件及應(yīng)用]第2章vb快速入門(參考版)
2024-12-11 02:29本頁面
【正文】 。 第二章 VB快速入門 作業(yè)二： ?窗體 初始運行 時，三個文本框的內(nèi)容為空； ?在前兩個文本框輸入數(shù)值， 單擊 “計算”按鈕 ，能在第三個框中顯示出結(jié)果； ?單擊 “清空”按鈕 ，清空三個框的內(nèi)容； ?單擊 “結(jié)束”按鈕 ，退出程序的運行狀態(tài)。一般無 文本框 屬性： Text、 MultiLine、 ScrollBars、 PasswordChar 事件： KeyPress、 LostFocus、 GotFocus 方法： 命令按鈕 屬性： Caption、 Style、 Picture 事件： Click 第二章 VB快速入門 實驗例題 ?窗體的標(biāo)題為“第一個 VB程序”，文本框內(nèi)容是“歡迎學(xué)習(xí) VB！”； ?窗體運行時， 單擊“隱藏”按鈕 ，則文本框消失， 單擊“顯示”按鈕 ，則文本框出現(xiàn)； ?單擊“退出”按鈕 則結(jié)束程序的運行。 對象三要素： 屬性 、 事件 、 方法 窗體 是所有控件的容器 基本控件 標(biāo)簽 、 文本框 、 命令按鈕 創(chuàng)建應(yīng)用程序的 6個步驟 第二章 VB快速入門 第二章課程小結(jié) 類和對象 。程序可以被執(zhí)行，但執(zhí)行結(jié)果不正確。程序會自動中斷，并給出有關(guān)的錯誤信息。 第二章 VB快速入門 程序的調(diào)試和運行 ?運行時錯誤：指令代碼執(zhí)行了一非法操作引起的。 第二章 VB快速入門 程序的調(diào)試和運行 ?錯誤類型：分為三種 ?編譯錯誤：也叫語法錯誤，是比較容易查找的錯誤。例如本例中，在左側(cè)選中“世界”后復(fù)制到右側(cè)文本框中，然后再選中“天堂”，單擊“剪切”按鈕，右側(cè)文本框中的內(nèi)容就變?yōu)椤笆澜缣焯谩薄? End Sub 選中的文字 例：程序運行時如圖 第二章 VB快速入門 ? 要求如下： ①窗體界面如圖所示，左側(cè)文本框內(nèi)容在設(shè)計時輸入，而非運行時輸入； ②運行時，當(dāng)單擊“隸書 16磅”按鈕，左側(cè)文本框字體格式隨之變化；效果如圖所示； ③單擊“復(fù)制”按鈕，會把左側(cè)框內(nèi)選中的文本復(fù)制到右側(cè)文本框中，如圖；單擊“剪切”按鈕，會把左側(cè)框內(nèi)選中的文本移動到右側(cè)文本框中，如圖所示。 End Sub Private Sub Command2_Click() 選中的文本開始位置是： 。其形式如下： 對象 名 . SetFocus ： LostFocus事件 、 GotFocus事件 、 SetFocus方法經(jīng)常用于對輸入數(shù)據(jù) 進(jìn)行合法性檢驗，過濾不合法的數(shù)據(jù) 第二章 VB快速入門 LostFocus事件 、 GotFocus事件 、 SetFocus方法使用舉例 ? 例：程序設(shè)計時界面如圖，要求： text1中輸入數(shù)據(jù)后，如果數(shù)據(jù)不在 0100之間，要求自動清除 text1中的數(shù)據(jù)，并把焦點重新設(shè)置在 text1中，且在窗體中輸出出錯信息： 數(shù)學(xué)成績輸入錯誤 (應(yīng)在 0100之間 )，重新輸入！ text2中輸入數(shù)據(jù)后，如果數(shù)據(jù)不在 0100之間，要求自動清除 text2中的數(shù)據(jù)，并把焦點重新設(shè)置在 text2中，且在窗體中輸出出錯信息： “語文成績輸入錯誤 (應(yīng)在 0100之間 )，重新輸入！ text3獲得焦點時，就在 text3中顯示平均成績 第二章 VB快速入門 第二章 VB快速入門 當(dāng) text1失去焦點時發(fā)生的事 Private Sub Text1_LostFocus() Dim a% a = Val() If a 0 Or a 100 Then 數(shù)學(xué)成績輸入錯誤 (應(yīng)在 0100之間 )，重新輸入！ = End If End Sub 第二章 VB快速入門 當(dāng) text2失去焦點時發(fā)生的事 Private Sub Text2_LostFocus() Dim a% a = Val() If a 0 Or a 100 Then 語文成績輸入錯誤 (應(yīng)在 0100之間 )，重新輸入！ = End If End Sub 第二章 VB快速入門 當(dāng) text3獲得焦點時發(fā)生的事 Private Sub Text3_GotFocus() Dim a%, b%, c! a = Val() b = Val() c = (a + b) / 2 = c End Sub 第二章 VB快速入門 ： ? SelText屬性：文本框中 選中的文本 ? SelStart屬性 設(shè)置選中文本開始位置，第 1個字符位置是 0 ? SelLength屬性 設(shè)置選中的文本長度 ? 這 3個屬性互相關(guān)聯(lián) ,例如設(shè)置 SelStart、SelLength后， SelText 自動存放指定的文本。 鍵 End Sub xx KeyPress事件： 這里只是說明一下這個事件程序的含義，在以后的學(xué)習(xí)中，會介紹在實用程序中如何使用keypress 第二章 VB快速入門 (2) Changed事件： 當(dāng) Text屬性值發(fā)生改變時引發(fā)該事件 例如：編寫程序，當(dāng)在文本框中輸入一個字時在窗體上就顯示文本框的內(nèi)容 Private Sub Text1_Change() End Sub ： 第二章 VB快速入門 (3) LostFocus事件 對象失去焦點時發(fā)生 LostFocus事件 該事件主要是用來對數(shù)據(jù)進(jìn)行驗證和確認(rèn)，常用于檢查 Text屬性的內(nèi)容 是否符合要求。特別是常見于 對回車鍵的判斷，回車鍵的 KeyAscii=13，根據(jù)keyascll的值是否是 13，決定下一步做什么 xx ： 第二章 VB快速入門 例：在文本框中輸入鍵盤上的任意一個鍵，程序在窗體上輸出 “你按下的是 ascll碼為 :xx 的鍵 比如：在程序運行時在文本框中依次輸入 abcd回車鍵，結(jié)果如圖示 Private Sub Text1_KeyPress(KeyAscii As Integer) 你按下的是 ascll碼為 :。 ? False：（默認(rèn)）僅顯示一行。 ? 默認(rèn)取值為空，此時顯示正常文本； ? 常設(shè)置為取值為 “ *” ，此時無論輸入什么都顯示 “ *” 。默認(rèn)值為 0，表示可以輸入任意長字符串 注意：在 VB中字符長度以字為單位，即一個西文字符與一個漢字都是一個字，長度為 1。 ? 第二章 VB快速入門 對象 屬性名稱
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1