Ecel全部窗体事件详解_值得收藏.docxVIP

一个控件从同一窗体的另一个控件实际接收到焦点之前，Enter 事件发生。同一窗体中的一个控件即将把焦点转移到另一个控件之前，Exit 事件发生。 语法 Private Sub object_Enter( ) 成分说明Private Sub object_Exit( ByVal Cancel As MSForms.ReturnBoolean) Enter 和 Exit 成分 说明 object Cancel 说明 必需。一个有效的对象名。 必需。事件状态。False 表示由该控件处理这个事件（这是默认方式）。True 表示由应用程序处理这个事件，并且焦点应当留在当前控件上。 Enter 事件和 Exit 事件与 Visual Basic 中的 GotFocus 和 LostFocus 事件类似。与 GotFocus 和 LostFocus 事件不同的是，当窗体接收或失去焦点时 Enter 事件和 Exit 事件不发生。 例如，假如选中了可初始化 Enter 事件的复选框，而后如又选中同一窗体中的另一个控件，那么对于该复选框来说，Exit 事件被初始化（因为焦点正在移到同一窗体中的不同对象上），而对于该窗体中的第二个控件来说，Enter 事件发生。 因为 Enter 事件发生在焦点移到一特定控件上之前，所以可用 Enter 事件过程来显示指令。例如，可用一个宏或者事件过程来显示一个小窗体或消息框，标识控件一般所包含的数据类型。 注意 将控件 Exit 事件的 Cancel 参数赋值为 True，可防止控件失去焦点。 当将控件插入到窗体、框架或多页控件中的一个页面中时，此事件发生。语法 对于框架 Private Sub object_AddControl( ) 对于多页 Private Sub object_AddControl( index As Long, ctrl As Control) 成分说明AddControl 成分 说明 object 必需。一个有效的对象。 index 必需。包含新控件的页面的索引。 ctrl 说明 必需。要添加的控件。 在运行时间添加控件时，将发生 AddControl 事件。在设计时间添加控件，或在运行时间初次加载并显示一个窗体时，此事件不会发生。 本事件的默认操作是将控件添加到指定的窗体、框架或者多页中。 Add 方法将初始化 AddControl 事件。 在通过用户界面更改了控件中的数据后，此事件发生。语法 Private Sub object_AfterUpdate( ) 成分说明AfterUpdate 成分 说明 object 必需。一个有效的对象。 说明 AfterUpdate 事件的发生与该控件是否被绑定（即通过 RowSource 属性为该控件指定一个数据源）无关。这个事件不能被取消。若要取消这次更改（恢复控件原来的值），请使用 BeforeUpdate 事件，并将参数Cancel 设置为 True。 对于当前控件来说，AfterUpdate 事件发生在 BeforeUpdate 事件之后，Exit 事件之前。对于 Tab 键顺序中的下一个控件来说，AfterUpdate 事件发生在 Enter 事件之前。 当拖放操作正在进行时该事件发生。语法 对于框架 Private Sub object_BeforeDragOver( ByVal Cancel As MSForms.ReturnBoolean, ctrl As Control, ByVal Data As DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragStateAs fmDragState, ByVal Effect As MSForms.ReturnEffect , ByVal Shift As fmShiftState) 对于多页 Private Sub object_BeforeDragOver( index As Long, ByVal Cancel As MSForms.ReturnBoolean, ctrl As Control, ByVal Data As DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As fmDragState, ByVal Effect As MSForms.ReturnEffect , ByVal Shift As fmShiftState) 对于 TabStrip Private Sub object_BeforeDragOver( index As Long, ByVal Cancel As MSForms.Return