第三章窗體和簡(jiǎn)單的輸入輸出(編輯修改稿)
2024-10-06 21:45 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 態(tài)： Deactivate事件 (失去控制權(quán) /焦點(diǎn) ) Form1_DeActivate() MsgBox “See you later” End Sub 此外，焦點(diǎn)事件會(huì)伴隨以上兩個(gè)事件發(fā)生： Activate緊跟著 GotFocus事件， Deactivate事件前有一個(gè) LostFocus事件 卸載窗體 卸載方法 : Unload命令或通過界面操作窗體關(guān)閉按鈕實(shí)現(xiàn)自動(dòng)卸載 Private Sub cmdExit_Click() Unload me End Sub 或 Private Sub cmdExit_Click() Unload frmMain End Sub 卸載事件 ? Form_QueryUnload事件 該事件過程發(fā)生在正式卸載之前，可為用戶提供停止 卸載的機(jī)會(huì) Form_QueryUnload(Cancel As Integer, Unloadmode As Integer) cancel ， 設(shè)置為非零值，可停止窗體的關(guān)閉 unloadmode， 指示引起此事件的原因 如 vbFormControlMenu， vbFormCode…. ***當(dāng)使用 End語(yǔ)句 或在開發(fā)環(huán)境按“結(jié)束”按鈕時(shí)， QueryUnload事件不會(huì)發(fā)生 ? Form_Unload事件 窗口確實(shí)要關(guān)閉時(shí)引發(fā) Unload 事件，可以做最后的提 示，如數(shù)據(jù)是否保存等 鼠標(biāo)事件 【 例 】 編寫程序在窗口標(biāo)題欄中顯示鼠標(biāo)當(dāng)前的坐標(biāo)位置。 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = 鼠標(biāo)事件演示 水平坐標(biāo) = amp。 X amp。 垂直坐標(biāo) = amp。 Y End Sub ? 提示： amp。是字符串連接操作符 ? 程序中只需要響應(yīng)鼠標(biāo)移動(dòng)事件，事件過程中鼠標(biāo)的坐標(biāo)會(huì)通過參數(shù) X和 Y傳遞進(jìn)來，然后修改窗體標(biāo)題即可。如果設(shè)置的是當(dāng)前窗體的某些屬性，可以省略窗體名，或用關(guān)鍵字 Me來指代。如 : = 鼠標(biāo)事件演示 水平坐標(biāo) = amp。 X amp。 垂直坐標(biāo) = amp。 Y 鍵盤事件 【 例 】 編寫程序利用鍵盤 “ +”和 “ ”實(shí)現(xiàn)窗口的變大和變小 。 Private Sub Form_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Asc(+) = * = * Case Asc() = * = * End Select End Sub ? 由于參數(shù) KeyAscii是一個(gè)整數(shù)的 Ascii碼 ， 所以將 “ +”和 “ ”字符轉(zhuǎn)換為對(duì)應(yīng)的 Ascii碼后再作比較 。 窗體的 KeyPreview屬性 ?
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1