主题：请问通过VBA调用外部对象时，如何支持事件？

VBS是一种功能强大的语言,这个从各种宏病毒的泛滥可以看得出,VBS功能强大不是语言
本身,而是它具有调用自动化COM组件的能力,而且,在VBS中还可以使用事件
VBS提供了一个GetRef函数,VBS手册上说是返回一个函数指针,我调试的结果,是返回一个
IDispatch接口指针,该指针只有一个DISP成员,就是DISPID为 0的方法
在COM组件中添加IDispatch*类型的属性,就可以接收该指针,并在需要的时候调用,也就是
激发事件
 
例子
一个WinFormCOM对象的驱动脚本:
Dim frmMain
Set frmMain = CreateObject("WinForm.Form")
frmMain.OnLoad = GetRef("Form_Load")
frmMain.OnClose = GetRef("Form_Close")
frmMain.OnMouseMove=GetRef("Form_MouseMove")
frmMain.ShowModal
 
Sub Form_Load()
 frmMain.Caption="Hello,world!"
 MsgBox frmMain.Caption
End Sub
 
Sub Form_Close(ByRef Cancel)
 Cancel=true
End Sub
 
Sub Form_MouseMove(Button,x,y)
 frmMain.DrawText 0,0,"x= " & x & vbCrLf & "y=" & y
End Sub
 
神奇吧?现在VBS可以象VB一样使用了