Instancia de form abierta

Hola Cid,

prueba con el siguiente código (es una de las formas de hacerlo que pides).

Yo he creado tres formularios y he escrito el siguiente código para cada uno
de ellos (en orden, Form1, Form2 y Form3);

Public Class Form1
Public _instanciaForm2 As Form2
Public _instanciaForm3 As Form3

Private Sub Menu1ToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Menu1ToolStripMenuItem.Click
If _instanciaForm2 Is Nothing Then
_instanciaForm2 = New Form2
_instanciaForm2.FormPrincipal = Me
_instanciaForm2.Show()
End If
End Sub

Private Sub Menu2ToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Menu2ToolStripMenuItem.Click
If _instanciaForm3 Is Nothing Then
_instanciaForm3 = New Form3
_instanciaForm3.FormPrincipal = Me
_instanciaForm3.Show()
End If
End Sub
End Class



Public Class Form2
Public FormPrincipal As Form1

Private Sub Form2_FormClosed(ByVal sender As Object, ByVal e As
System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
FormPrincipal._instanciaForm2 = Nothing
End Sub

End Class




Public Class Form3
Public FormPrincipal As Form1

Private Sub Form3_FormClosed(ByVal sender As Object, ByVal e As
System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
FormPrincipal._instanciaForm3 = Nothing
End Sub

End Class



Espero que te sirva el ejemplo.

Un saludo.

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Weblog de Jorge Serrano
http://weblogs.golemproject.com/jorge/


"Cid" wrote:

Necesitaba saber si hay abierta alguna instancia de un formulario. Como lo
puedo saber?

Muchas gracias. Salu2.

"Jorge Serrano [MVP VB]"
escribió
en el mensaje news:

Hola Cid,

prueba con el siguiente código (es una de las formas de hacerlo que
pides).

Yo he creado tres formularios y he escrito el siguiente código para cada
uno
de ellos (en orden, Form1, Form2 y Form3);

Public Class Form1
Public _instanciaForm2 As Form2
Public _instanciaForm3 As Form3

Private Sub Menu1ToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Menu1ToolStripMenuItem.Click
If _instanciaForm2 Is Nothing Then
_instanciaForm2 = New Form2
_instanciaForm2.FormPrincipal = Me
_instanciaForm2.Show()
End If
End Sub

Private Sub Menu2ToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Menu2ToolStripMenuItem.Click
If _instanciaForm3 Is Nothing Then
_instanciaForm3 = New Form3
_instanciaForm3.FormPrincipal = Me
_instanciaForm3.Show()
End If
End Sub
End Class



Public Class Form2
Public FormPrincipal As Form1

Private Sub Form2_FormClosed(ByVal sender As Object, ByVal e As
System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
FormPrincipal._instanciaForm2 = Nothing
End Sub

End Class




Public Class Form3
Public FormPrincipal As Form1

Private Sub Form3_FormClosed(ByVal sender As Object, ByVal e As
System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
FormPrincipal._instanciaForm3 = Nothing
End Sub

End Class



Espero que te sirva el ejemplo.

Un saludo.

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Weblog de Jorge Serrano
http://weblogs.golemproject.com/jorge/


"Cid" wrote:

Necesitaba saber si hay abierta alguna instancia de un formulario. Como
lo
puedo saber?