Skip to content

Instantly share code, notes, and snippets.

@audinue

audinue/FullTypeName.bas

Last active August 29, 2015 14:17
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save audinue/b2301d13016204458653 to your computer and use it in GitHub Desktop.
Save audinue/b2301d13016204458653 to your computer and use it in GitHub Desktop.
Download ZIP
Get full type name from an object.
Raw
FullTypeName.bas
' Require TypeLib Information
' Returns "Project1.Class1" instead of only "Class1"
Public Function FullTypeName(Object As Object) As String
FullTypeName = TLIApplication.InterfaceInfoFromObject(Object).Parent.Name & "." & TypeName(Object)
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment