第三章窗體和簡單的輸入輸出-免費(fèi)閱讀
【正文】 ? 注意續(xù)行符不能將一個完整的單詞或一對雙引號括起的字符串分為兩行 。 “千里共嬋娟” “但愿人長久” amp。 ? 例如當(dāng)窗口調(diào)整大小時 ， 可用 Resize事件過程來移動窗口中的控件位置或調(diào)整其大小 ， 使界面保持美觀 。 X amp。 窗體示例 可見狀態(tài) 使用 Show方法窗口即可見，或者直接進(jìn)入自動可見 –顯示或隱藏窗體 If Then Else End If –模式窗體和無模式窗體 1 ?模式窗體 ?不能將焦點(diǎn)切換到其它窗體 0 ?無模式窗體 ?可以將焦點(diǎn)切換到其它窗體 可見狀態(tài)的事件 改變焦點(diǎn)控制權(quán)事件： ? 窗體的活動狀態(tài)： Activate事件 (獲得控制權(quán) /焦點(diǎn) ) Form1_Activate() MsgBox “Hello” End Sub ? 窗體的非活動狀態(tài)： Deactivate事件 (失去控制權(quán) /焦點(diǎn) ) Form1_DeActivate() MsgBox “See you later” End Sub 此外，焦點(diǎn)事件會伴隨以上兩個事件發(fā)生： Activate緊跟著 GotFocus事件， Deactivate事件前有一個 LostFocus事件 卸載窗體 卸載方法 : Unload命令或通過界面操作窗體關(guān)閉按鈕實(shí)現(xiàn)自動卸載 Private Sub cmdExit_Click() Unload me End Sub 或 Private Sub cmdExit_Click() Unload frmMain End Sub 卸載事件 ? Form_QueryUnload事件 該事件過程發(fā)生在正式卸載之前，可為用戶提供停止 卸載的機(jī)會 Form_QueryUnload(Cancel As Integer, Unloadmode As Integer) cancel ， 設(shè)置為非零值，可停止窗體的關(guān)閉 unloadmode， 指示引起此事件的原因 如 vbFormControlMenu， vbFormCode…. ***當(dāng)使用 End語句 或在開發(fā)環(huán)境按“結(jié)束”按鈕時， QueryUnload事件不會發(fā)生 ? Form_Unload事件 窗口確實(shí)要關(guān)閉時引發(fā) Unload 事件，可以做最后的提 示，如數(shù)據(jù)是否保存等 鼠標(biāo)事件 【 例 】 編寫程序在窗口標(biāo)題欄中顯示鼠標(biāo)當(dāng)前的坐標(biāo)位置。 vbFixedToolWindow 4 固定工具窗口 ， 不能改變尺寸 。 vbSizable（ 缺省值 ） 2 普通可調(diào)整大小的窗口 ， 包含所有邊框元素 。通常將一些初始化的操作放在該事件過程中。是字符串連接操作符 ? 程序中只需要響應(yīng)鼠標(biāo)移動事件，事件過程中鼠標(biāo)的坐標(biāo)會通過參數(shù) X和 Y傳遞進(jìn)來，然后修改窗體標(biāo)題即可。但是如果窗體中放置了控件（嘗試放一個 TextBox控件），則程序運(yùn)
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1