Sub sb_ObjList() ' Need TlbInf32.dll or vstlbinf.dll
Dim tla As TLIApplication, tli As InterfaceInfo, tlb As TypeLibInfo, _
cst_enum As ConstantInfo, cst As MemberInfo ' As ConstantInfo ???; As MemberInfo ???
Dim tst As Object ' test object
Dim i As Byte
'' ' For non linked dll:
'' Set tla = CreateObject("Tli.TliApplication")
'' Set tli = tla.InterfaceInfoFromObject(fso)
'' Set tlb = tli.Parent
'Set tst = CreateObject("Scripting.FileSystemObject") ' External object
Set tst = New Image ' Internal object
Set tla = New TLIApplication
Set tli = tla.InterfaceInfoFromObject(tst)
Set tlb = tli.Parent
For Each cst_enum In tlb.Constants
If Left(cst_enum.Name, 1) <> "_" Then
Debug.Print vbLf & "' *** "; cst_enum.Name
For Each cst In cst_enum.Members
i = i + 1
Select Case i < 201
Case True: Debug.Print cst.Name & " = " & cst.Value
Case False: i = 0: Stop ' screen is full
End Select
Next
End If
Next
Stop
End Sub
|
