devxlogo

GetClasses – Enumerate all the classes defined in a type library

GetClasses – Enumerate all the classes defined in a type library

' Return a collection with all creatable classes of' the type library specified in TypeLibFile.'' Set IncludeNotCreatableClasses = True to include not creatable classes' (that is, those with Instancing property set to PublicNotCreatable) too.' Be sure that "TypeLib Information" type library (TlbInf32.tlb)' is referenced in your VB project.Function GetClasses(ByVal TypeLibFile As String, _    Optional ByVal IncludeNotCreatableClasses As Boolean) As Collection    Dim TLI As New TLIApplication    Dim TypeLibrary As TypeLibInfo    Dim Class As CoClassInfo        ' raises an error if unable to open the type library    ' (e.g. file not found or not a TLB)    Set TypeLibrary = TLI.TypeLibInfoFromFile(TypeLibFile)        ' prepare the result    Set GetClasses = New Collection    ' fill the return collection with class names    For Each Class In TypeLibrary.CoClasses        ' exclude not creatable classes if necessary        If IncludeNotCreatableClasses Or (Class.AttributeMask And _            TYPEFLAG_FCANCREATE) Then            ' the class is creatable or we don't care            ' about the creatable attribute            GetClasses.Add Class.Name, Class.Name        End If    NextEnd Function

See also  How to Avoid Money Transfer Scams  
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist