安装好客户端安装包后,引用该组件,在使用时如下:Dim objYourObject As 组件名.接口类Set objYourObject = New 组件名.接口类objYourObject.方法/事件 ......Set objYourObject =Nothing 如果有事件,在声明区如下定义: Private WithEvents mobjYourObject As 组件名.接口类
TO kmzs(.:RNPA:.山水岿濛) 你说的“前期绑定”是不是就像 XunBaian(蓝水晶)说的那样?
纠正你一个错误:CreateObject并不是后期绑定,在下面的代码中a无论使用New或CreateObject创建都是使用后期梆定,b则是前期梆定Dim a As Variant '或者Object Dim b As Library.ClassSet a = New Library.Class Set a = CreateObject("Library.Class")Set b = New Library.Class Set b = CreateObject("Library.Class")
如果有事件,在声明区如下定义:
Private WithEvents mobjYourObject As 组件名.接口类
你说的“前期绑定”是不是就像 XunBaian(蓝水晶)说的那样?
Dim b As Library.ClassSet a = New Library.Class
Set a = CreateObject("Library.Class")Set b = New Library.Class
Set b = CreateObject("Library.Class")