请问通过VBA调用外部对象时，如何支持事件？ - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 请问通过VBA调用外部对象时，如何支持事件？

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。

共有8127人关注过本帖树形打印复制链接主题：请问通过VBA调用外部对象时，如何支持事件？

sesamepaste

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：10 积分：75 威望：0 精华：0 注册：2013/2/7 12:09:49

请问通过VBA调用外部对象时，如何支持事件？ 发帖心情

Post By：2013/2/18 10:55:54 [只看该作者]

有一个外部对象需要通过CreateObject的方式调用，在VBA中可以用withevents来声明新对象，但金字塔中似乎不行。不知如何调用支持事件的对象？

VBA中的代码形式如下:

Dim WithEvents sampleObject

....

Sub Initialize

if isObject(sampleObject)=false then

set sampleObject = CreateObject("Some.Object")

end if

End Sub

王锋

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：罗宾汉帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13

Post By：2013/2/18 11:02:23 [只看该作者]

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一样使用了