【转载 / 文章】VBA对象级事件处理 / 【原创 / 文章】Access VBA中的事件处理

LucasLynn

、这篇文章虽然是针对AutoCAD环境而作，但是由于VBA的通用性，所以本文中描述的技术，在Access中完全可以使用，转贴以供VBA中高级开发者参考：

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

对象级事件并不是一直存在于AutoCAD的VBA中的，也就是说，当一个VBA程序被装载时，对象级事件并不会自动被激活。对象级事件必须被VBA和所有其它的ActiveX 自动操作控制器激活。

一旦对象级事件被激活，你就有以下的事件可用：

Modified

当图中的某个对象被修改时引发。







本章主题

激活对象级事件



激活对象级事件

在你能使用对象级事件之前，你必须建立一个新的类模块，并声明一个对象为带事件的AcadObject类型。例如，假定一个新的类模块已经建立并命名为EventClassModule，这个新的类模块将包含带VBA关键字WithEvents的应用程序的声明。

建立一个新的类模块并声明一个带事件的Circle对象

1 在VBA IDE中，插入一个类模块。从插入菜单中选择类模块。

2 在工程窗口中选择新的类模块。

3 在工程窗口中将类模块的名称改为EventClassModule。

4 用F7或通过选择菜单项查看代码打开类模块的代码窗口。

5 在类模块的代码窗口中，增加以下行：

Public WithEvents Object As AcadCircle

当新的对象被声明是带事件的，它就出现在分类模块的对象下拉列表中，并且你可以在类模块中为新对象编写事件过程。(当你在对象框中选择了新对象，对这个对象有效的事件就列在过程下拉列表中。)

但是，在程序执行之前，你必须连接类模块中被声明的对象到Circle对象，你可以用任何模块中的以下代码来完成这一过程。

连接被声明的对象到Automation对象

1 在主模块的代码窗口中，添加以下行到声明段中：

Dim X As New EventClassModule

2 在相同窗口中，建立一个叫"MyCircle"的圆并把它初始化为包含事件：Sub InitializeEvents()

    Dim MyCircle As AcadCircle

    Dim centerPoint(0 To 2) As Double

    Dim radius As Double

    centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#

    radius = 5#

    Set MyCircle = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)

    Set X.Object = MyCircle

End Sub

3 在你的主模块的代码中，添加对InitializeApp子程序的调用：

Call InitializeEvents

一旦InitializeEvents程序执行后，在类模块中的圆对象就会指向被建立的圆对象。并且当事件发生时，这个分类模块中的任何事件过程都会运行。

注意：当在VBA编写代码时，你必须为每个激活为Modified事件的对象提供一个事件处理器，如果你不能提供一个事件处理器，VBA可能会发生意外终止。

只要一个封闭的多义线被更新就显示它的面积

以下示例如何建立一个带事件的细多义线。只要多义线被改变，多义线的事件处理器就可以显示多义线的新面积。要想触发这个事件，你只需在AutoCAD中改变多义线的尺寸。记住，在事件处理器活动之前，你必须先运行CreatePLineWithEvents子程序。Public WithEvents PLine As AcadLWPolyline



Sub CreatePLineWithEvents()

    ' 本例创建一细多义线

    Dim points(0 To 9) As Double

    points(0) = 1: points(1) = 1

    points(2) = 1: points(3) = 2

    points(4) = 2: points(5) = 2

    points(6) = 3: points(7) = 3

    points(8) = 3: points(9) = 2

    Set PLine = ThisDrawing.ModelSpace. _

                   AddLightWeightPolyline(points)

    PLine.Closed = True

    ThisDrawing.Application.ZoomAll

End Sub



Private Sub PLine_Modified _

               (ByVal pObject As AutoCAD.IAcadObject)

    ' 该事件当多义线大小变化时引发。

    ' 如果多义线被删除时modified 事件仍然会被引发，

    ' 所以使用错误处理器来避免从删除了的对象中读取数据。

    On Error GoTo ERRORHANDLER

    MsgBox "对象" & pObject.ObjectName & " 的面积为: " _

            & pObject.Area

    Exit Sub

   

ERRORHANDLER:

    MsgBox Err.Description

End Sub

[此贴子已经被作者于2005-9-21 23:00:07编辑过]

secowu

好样的搞搞那个条件格式？

LucasLynn

【原创】总结上面文章的核心内容：

（注：下文中引用之所有代码仅作原理说明用，未经调试和测试。实际使用中可能需要作一定的修改）

对于一个包含事件的对象（比方说Access中的Form），我们在通过Set获得其引用的同时，我们也可以捕获他的事件。声明的方法为：Dim/Public/Private WithEvents

例如：

Public WithEvents X As Form

Set A=Forms(0)

Public Sub A_OnLoad()

    '这里的代码将在窗体0被Load的时候执行

End Sub

有人可能会质疑，为什么要这样做，直接写在Form_OnLoad里面不是更方便？这里有个很大的区别，Form_OnLoad中的代码针对的对象是固定的，也就是说你写在窗体1里面就只有窗体1能执行，窗体2则要另外写，而上面的方式则不同，如：（以下代码需要根据VBA的规定分散到窗体和模块中）

Dim Tag As Boolean

Publice WithEvents rs As DAO.RecordSet



Private Sub Command0_Click()

    If Tag then

        Set rs = RecordSet1

    Else

        Set rs = RecordSet2

    End If

End Sub

Publice Sub rs_OnMoveComplete()

    '执行代码

End Sub

我们可以通过按钮来切换我们所要监视的对象，如果和常规方法比较，打个简单的比方，警察要监视100个嫌疑犯，常规的方法是警察想要监视哪个嫌疑犯的时候，要跑一趟他家，把监视器打开，并把刚才监视完毕的那个嫌疑犯家里的监视器关掉，免得占用了通讯频道。而新的做法是警察在自己的监视器上装了一个切换器，能够自由切换接收哪家的监视信号。

如果说上面的例子还没有让你对WithEvents的作用引起足够的重视，那么下面的例子将充分表现WithEvents的有用之处：

Public WithEvents rs As Control

Public Sub SwitchDest(ByVal n As Long)

    Set rs = Forms(0).Controls(n)

End Sub

Private Sub rs_OnChange()

    MsgBox "你所监视的对象被改变了，你可以在这里的代码中对改变后的值作出相应。"

End Sub

看到这里，你应该已经可以明白，新的处理方式将能给我们带来什么，事件并不是在运行时无法变更对象，对事件进行第二层包装后，我们可以随意决定我们想要捕获事件的对象，比方说，根据数据表中的某个字段，来决定今后几个字段的计算方式，以及计算结果要对哪几个值的变更作出相应。

用一个通俗的比喻来理解上述的应用，由于嫌疑犯数量众多，一个警察不堪重负，因此上级决定扩大编制为20个警察，并且根据实际情况的需要还有可能增加，于是这个警察再次重新设计了监视系统，他把监视系统改变成监视信号不直接发到任何一台单独的监视器上，而是集中到一个发射台上，警察的监视器统一接收发射台信号，并且改装了监视器，能够切换不同的频道。



多种的事件处理方法可以使我们设计出更灵活的数据库，当然更多其他的应用需要开发者在使用中共同挖掘。

[此贴子已经被作者于2005-8-22 17:38:51编辑过]

CHENZHIRONG

生动活泼，浅显易懂，对象编程的基本原理。

esmile

非常好,但可惜我不用会.[em06]

sgrshh29

以下是引用CHENZHIRONG在2005-8-22 19:40:00的发言：

生动活泼，浅显易懂，对象编程的基本原理。

[em06][em06][em06]

esmile

哈哈,楼主果然思路开拓,想法故然妙哉,只可惜不能在ACCESS中使用,

所谓此类非彼类也!

个中原因本人一直未能参悟,还望高手指点迷津!

难道ACCESS中不支持WithEvents,为何又不出错?[em06][em06][em06][em06]

附件中有VB与MDB的事件对比,高手看看就明白了.



http://cx66.com/cxgzs/program/vb/465.htm (关于Visual Basic 6.0类开发)

[此贴子已经被作者于2005-8-23 0:28:01编辑过]

LucasLynn

以下是引用esmile在2005-8-23 0:23:00的发言：



哈哈,楼主果然思路开拓,想法故然妙哉,只可惜不能在ACCESS中使用,

所谓此类非彼类也!

个中原因本人一直未能参悟,还望高手指点迷津!

难道ACCESS中不支持WithEvents,为何又不出错?[em06][em06][em06][em06]

附件中有VB与MDB的事件对比,高手看看就明白了.



http://cx66.com/cxgzs/program/vb/465.htm (关于Visual Basic 6.0类开发)

完全可以在Access中使用，只是代码放置的地方VBA有限制，有些代码必须放在模块，有些必须放在类模块。

esmile

不好意思，

不耻下问，不知楼主能否将此程序的位置移移，达到想要的结果．

按楼主的意思，在ＶＢ中完全可以行得通，可在ＡＣＣＥＳＳ中，我就犯晕了，

楼主可否抽时间一阅？

LucasLynn

以下是引用esmile在2005-8-23 15:11:00的发言：

不好意思，

不耻下问，不知楼主能否将此程序的位置移移，达到想要的结果．

按楼主的意思，在ＶＢ中完全可以行得通，可在ＡＣＣＥＳＳ中，我就犯晕了，

楼主可否抽时间一阅？

需要对你接管的事件作一个声明：

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

End Sub

空代码即可。

另外一个方法是在代码中加入：Text1.OnKeyUp="[Event Procedure]"。可以放在Form_Load里面

发生这种情况的原因是Access执行窗体的时候会检查事件处理程序，如果没有找到，会自动清除OnKeyUp的值，而这样KeyUp事件就不会送入VBA运行时了。

[此贴子已经被作者于2005-8-23 16:06:45编辑过]