如何编程获取ActiveX提供的方法
如何编程获取ActiveX组件提供的方法或属性?
[解决办法]
Private Sub Command1_Click()
Dim objTypeLibInfo As TypeLibInfo
Dim objInterface As InterfaceInfo
Dim objMember As SearchItem
' 从指定 OCX 中取得类型库信息
Set objTypeLibInfo = TypeLibInfoFromFile( "C:\Work Dir\MyControl\NovaControl.ocx ")
' 遍历接口
For Each objInterface In objTypeLibInfo.Interfaces
Debug.Print "Interface "; objInterface.Name, "GUID = "; objInterface.Guid
' 遍历成员
For Each objMember In objInterface.Members.GetFilteredMembers
Debug.Print , "Member "; objMember.Name, "Type = "; objMember.InvokeKinds
Next
Next
End Sub