dcsimg
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

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


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

WEBINAR:

On-Demand

Building the Right Environment to Support AI, Machine Learning and Deep Learning


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
Thanks for your registration, follow us on our social networks to keep up-to-date