Question

请教下VBA中RaiseEvent的作用

我看很多高手的帖子里，喜欢定义Event，然后用RaiseEvent来调用，这个和直接调用一个Sub过程有什么区别吗？
借用一个高手的帖子里的代码：
Public WithEvents cmdBars As CommandBars
Public Event Zoom(ByVal number As Integer)

Private Sub Class_Initialize()
Set cmdBars = Application.CommandBars
End Sub

Private Sub cmdBars_OnUpdate()
If ActiveWindow.Zoom <> 100 Then
'使用RaiseEvent语句触发Zoom事件并把当前窗口的显示比例作为参数传入
RaiseEvent Zoom(ActiveWindow.Zoom)
End If
End Sub

像这里，要是直接写一个Zoom的Sub过程直接调用，有什么不同呢？
请高手赐教，谢谢。

Answer 1

最简单的理解就是：将“对象”赋值给“变量”，对“对象”和”赋值“理解是关键，如果是定义就可以用dim了，比如在AutoCAD VBA中 可以"dim newline as acadline"来定义，而用“set newline=thisdrawing.modelspace.addline(point1,point2)"建一个新直线，excel VBA中
”set newworksheet=worksheets.add"来新建一个工作簿

Answer 2

这个是类模块里面的东东，是类模块里面自定义事件，触发事件的点，带事件的类，只能在 THISWORKBOOK 模块里面调用，所以普通模块用不着