Assembly Class

Imports System.Reflection
Imports System.Security.Permissions

<Assembly: AssemblyVersionAttribute("1.0.2000.0")> 

Public Class Example
   Private Shared outputBlock As System.Windows.Controls.TextBlock
   Private factor As Integer

   Public Sub New()
      Me.New(42)
   End Sub
   Public Sub New(ByVal f As Integer)
      factor = f
   End Sub

   Public Function SampleMethod(ByVal x As Integer) As Integer
      outputBlock.Text &= String.Format(vbCrLf & "Example.SampleMethod({0}) executes.", x) & vbCrLf
      Return x * factor
   End Function

   Public Shared Sub Demo(ByVal outputBlock As System.Windows.Controls.TextBlock)

      Example.outputBlock = outputBlock
      Dim assem As [Assembly] = [Assembly].GetExecutingAssembly()

      outputBlock.Text &= "Assembly Full Name:" & vbCrLf
      outputBlock.Text &= assem.FullName & vbCrLf

      ' Create an object from the assembly, using the default constructor.
      Dim o As Object = assem.CreateInstance("SilverlightApplication.Example")

      ' Make a late-bound call to an instance method of the object.  
      Dim m As MethodInfo = o.GetType().GetMethod("SampleMethod")
      Dim ret As Object = m.Invoke(o, New Object() {42})
      outputBlock.Text &= String.Format("SampleMethod returned {0}.", ret) & vbCrLf

      outputBlock.Text &= vbCrLf & "Assembly entry point:" & vbCrLf
      Dim entry As MethodInfo = assem.EntryPoint
      If entry Is Nothing Then
         outputBlock.Text &= "No entry point defined for the assembly." & vbCrLf
      Else
         outputBlock.Text &= entry.ToString() & vbCrLf
      End If
   End Sub
End Class

' This code example produces output similar to the following:
'
'Assembly Full Name:
'source, Version=1.0.2000.0, Culture=neutral, PublicKeyToken=null
'
'Example.SampleMethod(42) executes.
'SampleMethod returned 1784.
'
'Assembly entry point:
'No entry point defined for the assembly.
' 

using System;
using System.Reflection;
using System.Security.Permissions;

[assembly: AssemblyVersionAttribute("1.0.2000.0")]

public class Example
{
   private static System.Windows.Controls.TextBlock outputBlock;
   private int factor;

   public Example() : this(42) {}
   public Example(int f)
   {
      factor = f;
   }

   public int SampleMethod(int x)
   {
      outputBlock.Text += String.Format("\nExample.SampleMethod({0}) executes.", x) + "\n";
      return x * factor;
   }

   public static void Demo(System.Windows.Controls.TextBlock outputBlock)
   {

      Example.outputBlock = outputBlock;
      Assembly assem = Assembly.GetExecutingAssembly();

      outputBlock.Text += "Assembly Full Name:" + "\n";
      outputBlock.Text += assem.FullName + "\n";

      // Create an object from the assembly, using the default constructor.
      Object o = assem.CreateInstance("Example");

      // Make a late-bound call to an instance method of the object.    
      MethodInfo m = assem.GetType("Example").GetMethod("SampleMethod");
      Object ret = m.Invoke(o, new Object[] { 42 });
      outputBlock.Text += String.Format("SampleMethod returned {0}.\n", ret);

      outputBlock.Text += "\nAssembly entry point:\n";
      MethodInfo entry = assem.EntryPoint;
      if (entry == null)
      {
         outputBlock.Text += "No entry point defined for the assembly.\n";
      }
      else
      {
         outputBlock.Text += entry.ToString() + "\n";
      }
   }
}

/* This code example produces output similar to the following:

Assembly Full Name:
source, Version=1.0.2000.0, Culture=neutral, PublicKeyToken=null

Example.SampleMethod(42) executes.
SampleMethod returned 1784.

Assembly entry point:
No entry point defined for the assembly.
 */