'
' Erstellt mit SharpDevelop.
' Benutzer: maywood
' Datum: 06.07.2007
' Zeit: 14:26
' 
' Sie können diese Vorlage unter Extras > Optionen > Codeerstellung > 
' Standardheader ändern.
'
Public Partial Class Form1
 
	Private Shared instances As Integer 
    Private Shared currentInstance As Form
 
    Public Sub New()
        Me.InitializeComponent()
        instances += 1
        currentInstance = Me
    End Sub
 
	Protected Overrides Sub Dispose(ByVal disposing As Boolean)
		If disposing Then
			If components IsNot Nothing Then
				components.Dispose()
			End If
		End If
        instances -= 1
        currentInstance = Nothing
		MyBase.Dispose(disposing)
	End Sub
 
    Public Shared Function GetCurrentInstance() As Form
        Return currentInstance
    End Function
 
    Public Shared Function GetInstancesCount() As Integer
        Return instances
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Me.Visible = Not Me.Visible
    End Sub
End Class

	Sub Button2Click(ByVal sender As Object, ByVal e As EventArgs)
		  Dim t As Type = Type.GetType("ReflectionsTest1.Form1")
        Dim f As Form = Nothing
        Dim instances As Integer = CInt(t.InvokeMember("GetInstancesCount", _
          BindingFlags.InvokeMethod, _
                Nothing, Nothing, New Object() {}))
        Debug.WriteLine("Instances: " + instances.ToString())
        If (instances < 1) Then
            Debug.WriteLine("Create a new instance.")
            f = CType(System.Reflection.Assembly.GetExecutingAssembly( _
              ).CreateInstance("ReflectionsTest1.Form1"), Form)
        Else
            Debug.WriteLine("Use the existing instance.")
            f = CType(t.InvokeMember("GetCurrentInstance", _
              BindingFlags.InvokeMethod, Nothing, Nothing, New Object() {}), _
              Form)
        End If
        f.Show()
    End Sub