vb程序設(shè)計(jì)基礎(chǔ)_全套課件_vb教程第3章教案(參考版)
2025-01-15 22:25本頁面
【正文】 顯示標(biāo)簽 End Sub 。隱藏標(biāo)簽 End Sub Private Sub Command3_Click() 39。產(chǎn)生隨機(jī)顏色碼 = QBColor(Clr) End Sub Private Sub Command2_Click() 39。字體大小 End Sub Private Sub Command1_Click() 39。背景色 = QBColor(0) 39。清除文本框 Text3的內(nèi)容 39。清除文本框 Text1的內(nèi)容 = 39。單擊“清除”按鈕時則清除三個文本框中的內(nèi)容 例 在三個文本框中顯示不同的文字效果 例 主頁 (1)建立應(yīng)用程序的用戶界面和設(shè)置對象屬性 (2)編寫程序代碼 Private Sub Form_Load() = 隸書 = 16 = 楷體 _GB2312 = 20 End Sub Private Sub Text1_Change() = = End Sub Private Sub Command1_Click() 39。“窗體變小”按鈕 = 200 39。“窗體變大”按鈕 = + 200 39。Height為窗體的寬度 = 1000 39。 程序舉例 例 主頁 (1)建立應(yīng)用程序的用戶界面和設(shè)置對象屬性 (2)編寫程序代碼 Private Sub Form_Load() = 4000 39。 MsgBox的兩種格式 主頁 (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 (2) Private Sub Command1_Click() Dim r As Single, k As Single, s As Single r = Val(InputBox(請輸入圓的半徑 , 計(jì)算圓的周長和面積 )) k = 2 * * r s = * r * r = k = s MsgBox 計(jì)算已完成 , , 例 End Sub Private Sub Command2_Click() End End Sub 例 從輸入框中輸入圓的半徑，計(jì)算圓的周長和面積 例 主頁 當(dāng)輸入的圓半徑為 65時，運(yùn)行結(jié)果 主頁 例 控制窗體“變大”和“變小” 在窗體上設(shè)置三個命令按鈕 (圖 )，程序進(jìn)入運(yùn)行狀態(tài)后，當(dāng)單擊“ 窗體變大 ”命令按鈕時，窗體變大，單擊“ 窗體變小 ”按鈕時，窗體變小。例如 MsgBox “輸入文件名是否正確 ” ,52,”請確認(rèn) ” MsgBox “輸入文件名是否正確 ” 采用這種格式時，不知道用戶按下的是什么按鈕。 程序通過判斷 y值 (如采用條件語句 IFTHEN)，再根據(jù)用戶按下的是什么按鈕，再做不同的處理。從返回值中可以知道用戶按下的是哪個按鈕（表 ）。內(nèi)容發(fā)生改變 = + N + End Sub Private Sub Form_Load() = M = M End Sub 運(yùn)行程序后單擊窗體，則在文本框 Text2中顯示的內(nèi)容是 A. PNM B. NPM C. PNP D. PNPM 例 D 思考題 想一想 主頁 對話框既可以用來顯示信息，也可以用于輸入信息 VB中能夠建立兩種預(yù)制對話框：輸入框和消息框 使用系統(tǒng)提供的函數(shù) (InputBox和 MsgBox)，而不必為對話框另建窗體 先看以下一個例子 例 通過輸入框輸入姓名，然后再消息框中顯示出來 Private Sub Form_Load() x = InputBox(輸入您的姓名 , 您叫什么名 ?) y = MsgBox( x amp。 幾點(diǎn)說明： (1) Caption屬性： 對象的標(biāo)題 可以在 Caption屬性中為控件指定一個訪問鍵 例如： =“結(jié)束 (amp。 舉頭望明月，低頭思故鄉(xiāng) End Sub 主頁 Private Sub CmdCls_Click()
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號-1