第三章窗体和简单的输入输出(编辑修改稿)

第三章窗体和简单的输入输出(编辑修改稿)内容摘要：

态： Deactivate事件 (失去控制权 /焦点 ) Form1_DeActivate() MsgBox “See you later” End Sub 此外，焦点事件会伴随以上两个事件发生： Activate紧跟着 GotFocus事件， Deactivate事件前有一个 LostFocus事件 卸载窗体 卸载方法 : Unload命令或通过界面操作窗体关闭按钮实现自动卸载 Private Sub cmdExit_Click() Unload me End Sub 或 Private Sub cmdExit_Click() Unload frmMain End Sub 卸载事件 • Form_QueryUnload事件 该事件过程发生在正式卸载之前，可为用户提供停止 卸载的机会 Form_QueryUnload(Cancel As Integer, Unloadmode As Integer) cancel ， 设置为非零值，可停止窗体的关闭 unloadmode， 指示引起此事件的原因 如 vbFormControlMenu， vbFormCode…. ***当使用 End语句 或在开发环境按“结束”按钮时， QueryUnload事件不会发生 • Form_Unload事件 窗口确实要关闭时引发 Unload 事件，可以做最后的提 示，如数据是否保存等 鼠标事件 【 例 】 编写程序在窗口标题栏中显示鼠标当前的坐标位置。 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = 鼠标事件演示 水平坐标 = amp。 X amp。 垂直坐标 = amp。 Y End Sub • 提示： amp。 是字符串连接操作符 • 程序中只需要响应鼠标移动事件，事件过程中鼠标的坐标会通过参数 X和 Y传递进来，然后修改窗体标题即可。 如果设置的是当前窗体的某些属性，可以省略窗体名，或用关键字 Me来指代。 如 : = 鼠标事件演示 水平坐标 = amp。 X amp。 垂直坐标 = amp。 Y 键盘事件 【 例 】 编写程序利用键盘 “ +”和 “ ”实现窗口的变大和变小。 Private Sub Form_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Asc(+) = * = * Case Asc() = * = * End Select End Sub • 由于参数 KeyAscii是一个整数的 Ascii码 ， 所以将 “ +”和 “ ”字符转换为对应的 Ascii码后再作比较。 窗体的 KeyPreview属性 •。