Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB5,VB6
Expertise: Intermediate
Aug 26, 2000

GetHiddenClasses - Retrieve all the hidden classes in a type library

' Return a collection with all hidden types of a type library
'
' VB's Object Browser hides some types in a type library:
' you can show these types by right clicking on the Object Browser and
' activating the "Show hidden members" option. This option, however,
' shows only types labelled as "hidden", but still hides those whose name
' begins with the underscore character (_).

' Be sure that "TypeLib Information" type library (TlbInf32.tlb)
' is referenced in your VB project.

Function GetHiddenClasses(ByVal TypeLibFile As String) As Collection
    Dim TLI As New TLIApplication
    Dim TypeLibrary As TypeLibInfo
    Dim TypeInfo As TypeInfo
    Dim FileName As String
    
    ' 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 GetHiddenClasses = New Collection
    
    ' fill the return collection with hidden type names
    For Each TypeInfo In TypeLibrary.TypeInfos
        ' if the type is hidden, add to the result collection
        If TypeInfo.AttributeMask And TYPEFLAG_FHIDDEN Then
            GetHiddenClasses.Add TypeInfo.Name
        End If
    Next

End Function


Alberto Falossi
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap