VB.Net/Development/Assembly

Add all Public Assembly Form Type

 
Imports System
Imports System.Drawing
Imports System.Reflection
Imports System.Windows.Forms
public class MainClass
   Shared Sub Main()
      Dim form1 As Form = New Form1
      Application.Run(form1)
   End Sub
End Class

Public Class Form1
    Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
    Public Sub New()
        MyBase.New()
        "This call is required by the Windows Form Designer.
        InitializeComponent()
    End Sub
    "Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
    Friend WithEvents treeView1 As System.Windows.Forms.TreeView
    "Required by the Windows Form Designer
    Private components As System.ruponentModel.IContainer
    "NOTE: The following procedure is required by the Windows Form Designer
    "It can be modified using the Windows Form Designer.  
    "Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.treeView1 = New System.Windows.Forms.TreeView()
        Me.SuspendLayout()
        "
        "treeView1
        "
        Me.treeView1.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me.treeView1.ImageIndex = -1
        Me.treeView1.Location = New System.Drawing.Point(8, 16)
        Me.treeView1.Name = "treeView1"
        Me.treeView1.SelectedImageIndex = -1
        Me.treeView1.Size = New System.Drawing.Size(448, 200)
        Me.treeView1.Sorted = True
        Me.treeView1.TabIndex = 0
        "
        "Form1
        "
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(467, 248)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.treeView1})
        Me.Name = "Form1"
        Me.Text = "View Direct Members of Objects"
        Me.ResumeLayout(False)
    End Sub
#End Region

    Private Function StripType(ByVal s As String) As String
        Dim spacepos As Integer
        spacepos = InStr(s, " ")
        If spacepos > 0 Then Return Mid$(s, spacepos + 1)
        Return (s)
    End Function
    Private Sub Form1_Load(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles Me.Load
        Dim asm As [Assembly]
        Dim asmtypes() As Type
        Dim ThisType As Type
        asm = Reflection.Assembly.GetAssembly(GetType(System.Windows.Forms.Form))
        asmtypes = asm.GetTypes()
        For Each ThisType In asmtypes
            If ThisType.IsClass And ThisType.IsPublic Then
                Dim tn As New TreeNode(ThisType.Name)
                treeView1.Nodes.Add(tn)
            End If
        Next
    End Sub

End Class

Find Members with Binding Flags

 
Imports System
Imports System.Reflection
 
Public Class MainClass
    Shared Sub Main(  )
         Dim t As Type = Type.GetType("System.Reflection.Assembly")
         Dim mbrInfoArray As MemberInfo(  ) = t.FindMembers( _
             MemberTypes.Method, _
             BindingFlags.Public Or _
             BindingFlags.Static Or _
             BindingFlags.NonPublic Or _
             BindingFlags.Instance Or _
             BindingFlags.DeclaredOnly, _
             Type.FilterName, "Get*")
         Dim inf As MemberInfo
         For Each inf In mbrInfoArray
             Console.WriteLine("{0} is a {1}", _
                 inf, inf.MemberType)
         Next
    End Sub
  
End Class

Get Assembly Member type: Property or Member

 
Imports System
Imports System.Reflection
 
Public Class MainClass
    Shared Sub Main(  )
         Dim t As Type = Type.GetType("System.Reflection.Assembly")
         Console.WriteLine("Single type is {0}", t)
         Dim mbrInfoArray As MemberInfo(  ) = t.GetMembers(  )
         Dim inf As MemberInfo
         For Each inf In mbrInfoArray
             Console.WriteLine("{0} is a {1}", _
                 inf, inf.MemberType)
         Next
    End Sub
  
End Class

Get Class Name in Current Assembly

 
Imports System.Reflection
Class A
End Class
Class B
End Class
Class C
End Class
Class D
End Class

Public Class MainClass
    Public Shared Sub Main()
        Dim ThisAssembly As [Assembly] = [Assembly].GetExecutingAssembly()
        Dim TypeObj As Type
        For Each TypeObj In ThisAssembly.GetTypes()
            Console.WriteLine(TypeObj.Name)
        Next
    End Sub
End Class

Get Executing Assembly

 
Imports System.Reflection

Public Class MainClass
    Public Shared Sub Main()
        Dim ThisAssembly As [Assembly] = [Assembly].GetExecutingAssembly()
        Dim Attr As Attribute
        For Each Attr In ThisAssembly.GetCustomAttributes(False)
            Console.WriteLine(Attr)
        Next
    End Sub
End Class

Get info for current AppDomain

  
Imports System.Reflection
Module Program
  Sub Main()
    Dim defaultAD As AppDomain = AppDomain.CurrentDomain()
    PrintAllAssembliesInAppDomain(defaultAD)
  End Sub
  Public Sub PrintAllAssembliesInAppDomain(ByVal ad As AppDomain)
    Dim loadedAssemblies As Assembly() = ad.GetAssemblies()
    Console.WriteLine(ad.FriendlyName)
    For Each a As Assembly In loadedAssemblies
      Console.WriteLine("-> Name: {0}", a.GetName.Name)
      Console.WriteLine("-> Version: {0}", a.GetName.Version)
    Next
  End Sub

End Module

Get Information from Assembly

 
Imports System
Imports System.Windows.Forms
Imports System.Reflection
Imports System.Runtime.InteropServices
<Assembly: AssemblyTitle("My Title")> 
<Assembly: AssemblyDescription("A description.")> 
<Assembly: AssemblyCompany("Pretty Good Software")> 
<Assembly: AssemblyProduct("A Really Great Product!")> 
<Assembly: AssemblyCopyright("Copyright ? 2005")> 
<Assembly: AssemblyTrademark("TM")> 
<Assembly: CLSCompliant(True)> 
<Assembly: ComVisible(False)>
"The following GUID is for the ID of the typelib if this project is exposed to COM
<Assembly: Guid("4db4b206-3cc5-4ea0-9e91-59537aba04a8")> 
" Version information for an assembly consists of the following four values:
"
"      Major Version
"      Minor Version 
"      Build Number
"      Revision
"
" You can specify all the values or you can default the Build and Revision Numbers 
" by using the "*" as shown below:
" <Assembly: AssemblyVersion("1.0.*")> 
<Assembly: AssemblyVersion("1.2.3.4")> 
<Assembly: AssemblyFileVersion("5.6.7.8")> 

Public Class MainClass
   Shared Sub Main()
       Console.WriteLine( Application.ProductName )
       Console.WriteLine( Application.rupanyName )
       Console.WriteLine( Application.ProductVersion )
   End Sub 
End Class

Hook into DomainUnload event

  
Imports System.Reflection
Module Program
    Sub Main()
        Dim anotherAD As AppDomain = AppDomain.CreateDomain("SecondAppDomain")
        " Load CarLibrary.dll into this new appdomain.
        anotherAD.Load("CarLibrary")
        " Hook into DomainUnload event.
        AddHandler anotherAD.DomainUnload, AddressOf anotherAD_DomainUnload
        " Now unload anotherAD.
        AppDomain.Unload(anotherAD)

    End Sub
    Public Sub PrintAllAssembliesInAppDomain(ByVal ad As AppDomain)
        Dim loadedAssemblies As Assembly() = ad.GetAssemblies()
        Console.WriteLine(ad.FriendlyName)
        For Each a As Assembly In loadedAssemblies
            Console.WriteLine("-> Name: {0}", a.GetName.Name)
            Console.WriteLine("-> Version: {0}", a.GetName.Version)
        Next
    End Sub
    Sub anotherAD_DomainUnload(ByVal sender As Object, ByVal e As EventArgs)
        Console.WriteLine("***** Unloaded anotherAD! *****")
    End Sub
    Sub defaultAD_ProcessExit(ByVal sender As Object, ByVal e As EventArgs)
        Console.WriteLine("***** Unloaded defaultAD! *****")
    End Sub

End Module

Load all Types in one Assembly

 
Imports System
Imports System.Reflection
 
Public Class MainClass
    Shared Sub Main(  )
         Dim a As [Assembly] = [Assembly].Load("Mscorlib.dll")
         Dim theTypes As Type(  ) = a.GetTypes(  )
         Dim t As Type
         For Each t In theTypes
             Console.WriteLine("Type is {0}", t)
         Next t
         Console.WriteLine("{0} types found", theTypes.Length)
    End Sub
  
End Class

Programmatically make a new app domain

  
Imports System.Reflection
Module Program
  Sub Main()
    Dim anotherAD As AppDomain = AppDomain.CreateDomain("SecondAppDomain")
    " Load CarLibrary.dll into this new appdomain.
    anotherAD.Load("CarLibrary")
    PrintAllAssembliesInAppDomain(anotherAD)
  End Sub
  Public Sub PrintAllAssembliesInAppDomain(ByVal ad As AppDomain)
    Dim loadedAssemblies As Assembly() = ad.GetAssemblies()
    Console.WriteLine(ad.FriendlyName)
    For Each a As Assembly In loadedAssemblies
      Console.WriteLine("-> Name: {0}", a.GetName.Name)
      Console.WriteLine("-> Version: {0}", a.GetName.Version)
    Next
  End Sub

End Module

View all Assembly Form Type and its members in a Tree

 
Imports System
Imports System.Drawing
Imports System.Reflection
Imports System.Windows.Forms
public class MainClass
   Shared Sub Main()
      Dim form1 As Form = New Form1
      Application.Run(form1)
   End Sub
End Class

Public Class Form1
    Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
    Public Sub New()
        MyBase.New()
        "This call is required by the Windows Form Designer.
        InitializeComponent()
    End Sub
    "Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
    Friend WithEvents treeView1 As System.Windows.Forms.TreeView
    "Required by the Windows Form Designer
    Private components As System.ruponentModel.IContainer
    "NOTE: The following procedure is required by the Windows Form Designer
    "It can be modified using the Windows Form Designer.  
    "Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.treeView1 = New System.Windows.Forms.TreeView()
        Me.SuspendLayout()
        "
        "treeView1
        "
        Me.treeView1.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me.treeView1.ImageIndex = -1
        Me.treeView1.Location = New System.Drawing.Point(8, 16)
        Me.treeView1.Name = "treeView1"
        Me.treeView1.SelectedImageIndex = -1
        Me.treeView1.Size = New System.Drawing.Size(448, 200)
        Me.treeView1.Sorted = True
        Me.treeView1.TabIndex = 0
        "
        "Form1
        "
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(467, 248)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.treeView1})
        Me.Name = "Form1"
        Me.Text = "View Direct Members of Objects"
        Me.ResumeLayout(False)
    End Sub
#End Region

    Private Function StripType(ByVal s As String) As String
        Dim spacepos As Integer
        spacepos = InStr(s, " ")
        If spacepos > 0 Then Return Mid$(s, spacepos + 1)
        Return (s)
    End Function
    Private Sub Form1_Load(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles Me.Load
        Dim asm As [Assembly]
        Dim asmtypes() As Type
        Dim ThisType As Type
        asm = Reflection.Assembly.GetAssembly(GetType(System.Windows.Forms.Form))
        asmtypes = asm.GetTypes()
        For Each ThisType In asmtypes
            If ThisType.IsClass Then
                Dim tn As New TreeNode(ThisType.Name)
                Dim members(), mi As MemberInfo
                treeView1.Nodes.Add(tn)
                members = ThisType.GetMembers(BindingFlags.DeclaredOnly Or BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.Static)
                For Each mi In members
                    Dim methinfo As MethodInfo
                    Select Case mi.MemberType
                        Case MemberTypes.Method
                            methinfo = CType(mi, MethodInfo)
                            If Not methinfo.IsSpecialName Then
                                tn.Nodes.Add(StripType(mi.ToString))
                            End If
                        Case MemberTypes.Event
                            tn.Nodes.Add(StripType(mi.ToString) & " event")
                        Case Else
                            tn.Nodes.Add(StripType(mi.ToString))
                    End Select
                Next
            End If
        Next
    End Sub

End Class

View all Assembly Form Type in a Tree

 
Imports System
Imports System.Drawing
Imports System.Reflection
Imports System.Windows.Forms
public class MainClass
   Shared Sub Main()
      Dim form1 As Form = New Form1
      Application.Run(form1)
   End Sub
End Class

Public Class Form1
    Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
    Public Sub New()
        MyBase.New()
        "This call is required by the Windows Form Designer.
        InitializeComponent()
    End Sub
    "Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
    Friend WithEvents treeView1 As System.Windows.Forms.TreeView
    "Required by the Windows Form Designer
    Private components As System.ruponentModel.IContainer
    "NOTE: The following procedure is required by the Windows Form Designer
    "It can be modified using the Windows Form Designer.  
    "Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.treeView1 = New System.Windows.Forms.TreeView()
        Me.SuspendLayout()
        "
        "treeView1
        "
        Me.treeView1.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me.treeView1.ImageIndex = -1
        Me.treeView1.Location = New System.Drawing.Point(8, 16)
        Me.treeView1.Name = "treeView1"
        Me.treeView1.SelectedImageIndex = -1
        Me.treeView1.Size = New System.Drawing.Size(448, 200)
        Me.treeView1.Sorted = True
        Me.treeView1.TabIndex = 0
        "
        "Form1
        "
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(467, 248)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.treeView1})
        Me.Name = "Form1"
        Me.Text = "View Direct Members of Objects"
        Me.ResumeLayout(False)
    End Sub
#End Region

    Private Function StripType(ByVal s As String) As String
        Dim spacepos As Integer
        spacepos = InStr(s, " ")
        If spacepos > 0 Then Return Mid$(s, spacepos + 1)
        Return (s)
    End Function
    Private Sub Form1_Load(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles Me.Load
        Dim asm As [Assembly]
        Dim asmtypes() As Type
        Dim ThisType As Type
        asm = Reflection.Assembly.GetAssembly(GetType(System.Windows.Forms.Form))
        asmtypes = asm.GetTypes()
        For Each ThisType In asmtypes
            If ThisType.IsClass Then
                Dim tn As New TreeNode(ThisType.Name)
                treeView1.Nodes.Add(tn)
            End If
        Next
    End Sub

End Class