怎样在程序中获得ocx控件的所有属性,方法和事件

2025-05-14 05:05:34
推荐回答(1个)
回答1:

使用 #import "c:\winnt\system32\tlbinf32.dll" 导入TypeLib information库,该库提供了类来获取一个 active dll中的所有coclass,interface, function, paraments等信息。如果不足道该如何
使用,可以先在VB中做实验。
1 在Project的引用中增加对 TypeLib ,information 库的引用
2 下面是一段示例代码:显示所有的coclass
Dim TLInfo As TypeLibInfo
Set TLInfo = TLI.TypeLibInfoFromFile( "c:\temp\Your.dll")
With TLInfo.CoClasses
For i = 1 To .Count
msgbox .Item(i).name
Next
End With
'显示第一个CoClass的所有接口
With TLInfo.CoClasses.Item(1).interfaces
For i = 1 To .Count
msgbox .Item(i).name
Next
End With

'显示第一个CoClass的第一个接口的的所有函数
With TLInfo.CoClasses.Item(1).interfaces(1).members
For i = 1 To .Count
msgbox .Item(i).name
Next
End With