8.3 窗体的事件（课件）-高二《Visual Basic语言程序设计基础》同步精品课堂（电工社·第5版）

Visual Basic语言程序设计基础 第五版 窗体的事件 窗体 8 学习目标： 对窗体进行各种操作，都将触发窗体的有关事件，如单击窗体会触发窗体的 Click 事件通过编写事件过程代码，可以定义窗体在不同事件中的反应，从而实现窗体与程序使用者之间的交互。 8.3 窗体的事件 窗体 8 编写窗体的事件过程代码 单击要编写事件过程的窗体，在“视图”菜单中选择“代码窗口”选项，或在“工程资源管理器”窗口中单击左上角的“查看代码”按钮，可以调出该窗体的代码窗口 单击代码窗口标题条下面的“对象”下拉列表并选择相应窗体(如 Form)，单击“过程”下列表并选择相应的事件名称(如 Load)，代码窗口中将自动出现相应事件过程的代码，如 Private SutForm Load0和 EndSub 等，此时可以编写窗体的事件过程代码。 8.3 窗体的事件 窗体 8 常用事件过程 窗体的事件有 Activate，Deactivate，LostFocusGotFocus，Click，DblClick，MouseDown，MouseUpMouseMove, Initialize,Load, Unload, OueryUnload, Paint, Resize, DragDrop,OLECompleteDragDragOver,OLEDragDrop,OLEDragOver,OLEGiveFeedback, OLESetData, KeyPress, KeyDownKeyUp，OLEStartDrag，LinkClose， LinkError， LinkExecute，LinkOpen， Terminate 学习窗体的几个最常用的事件。 8.3 窗体的事件 窗体 8 Click 事件 触发条件:当用鼠标单击窗体的空白区域或单击窗体上的一个无效控件时，Click 事件被触发。 语法:Private Sub Form Click() 8.3 窗体的事件 窗体 8 DblClick 事件 触发条件:当用鼠标双击窗体的空白区域(无控件的区域，控件的有关知识请参阅第 9章“控件”)或双击窗体上的一个无效控件时，DblClick 事件被触发。语法: Private Sub Form_DblClick（） 8.3 窗体的事件 窗体 8 Initialize 事件 触发条件:当应用程序创建一个窗体时，将触发 Initialize 事件。语法: Private Sub Form_Initialize() 8.3 窗体的事件 窗体 8 Load 事件 触发条件:当窗体被装载时 Load 事件被触发。当通过 Lad 语句启动应用程序，或调用未装载的窗体属性时，也会触发 Load 事件。语法: Private Sub Form Load（） 8.3 窗体的事件 窗体 8 QueryUnload 事件 触发条件:当窗体将要关闭时，QueryUnload 事件被触发。语法: Private Sub Form QueryUnload(cancel As Integer,unloadmode As Integer（） 8.3 窗体的事件 窗体 8 Unload 事件 触发条件:当窗体从屏幕上删除时，Unload 事件被触发语法: Private Sub Form_Unload(cancel As Integer) 8.3 窗体的事件 窗体 8 MouseDown 和 MouseUp 事件 触发条件:当按下鼠标按钮时，MouseDown 事件被触发;当松开鼠标按钮时，MouseUp事件被触发。语法:Private Sub Form MouseDown(button As Integer,shift As Integer,x As Single,y As Single)Private Sub Form MouseUp(button As Integer,shift As Integer,x As Single,y As Single) 8.3 窗体的事件 窗体 8 Activate 和 Deactivate 事件 触发条件:当窗体成为活动窗口时触发 Activate 事件。当窗体变为非活动窗口时触发 Deactivate 事件。语法: Private Sub Form Activate)Private Sub Form Deactivate() 8.3 窗体的事件 窗体 8 GotFocus 事件 触发条件:当窗体获得焦点时，GotFocus 事件被触发。语法:Private Sub Form_GotFocus（） 8.3 窗体的事件 窗体 8 Paint事件 触发条件:当窗体被放大或移动以后，或当一个原本遮盖着该窗体的窗体被移开，并使该窗体部分或完全显