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

一个控件从同一窗体的另一个控件实际接收到 焦点 之前， 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 DragState As fmDragState , ByVal Effect As MSForms.ReturnEffect , ByV