7,763
社区成员
发帖
与我相关
我的任务
分享
Dim TLIApp As Object
Dim TLBInfo As Object
Dim TypeInf As Object
Set TLIApp = CreateObject("TLI.TLIApplication")
Set TLBInfo = TLIApp.TypeLibInfoFromFile("C:\WINDOWS\system32\ieframe.dll")
Dim i As Integer
Dim j As Integer
For Each TypeInf In TLBInfo.CoClasses
Debug.Print TypeInf.Name
For i = 1 To TypeInf.Interfaces.Count
Debug.Print vbTab & TypeInf.Interfaces(i).Name
For j = 1 To TypeInf.Interfaces(i).Members.Count
Debug.Print vbTab & vbTab & TypeInf.Interfaces(i).Members(j).Name
Next
Next
Next