Formularios MDI

Saludos

Prueba con:

If pacientes Is Nothing OrElse pacientes.IsDisposed Then
pacientes = New frm_pacientes
pacientes.MdiParent = Me
pacientes.Show()
Else
pacientes.Activate()
End If

Saludos
Pedro Luna, [MVP VB.NET]
Gye, Ecu


"Aldo" escribió en el mensaje
news:

Hola:
desde mi formulario MDI, tengo este codigo:

Private Sub mnu_pacientes_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles mnu_pacientes.Click
If Not pacientes Is Nothing Then
pacientes.Activate()
Else
pacientes = New frm_pacientes
pacientes.MdiParent = Me
pacientes.Show()
End If
End Sub

lo que me pasa es que cuando cierro mi formulario frm_pacientes, NO LO

PUEDO

ABRIR NUEVAMENTE, porque este no es Nothing (pero esta cerrado).
Como lo puedo resolver.
Gracias

Hola:
Prueba esto

En el formulario MDI
Private Sub mnu_pacientes_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles mnu_pacientes.Click
Me.mnu_pacientes.Enabled = False
Dim lofrmpacientes As New frm_pacientes
lofrmpacientes.MdiParent = Me
lofrmpacientes.Show()
End Sub

En el formulario frm_pacientes
Private Sub frm_pacientes_Closed(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Closed
'utilizando la funcion CType(), moldeamos la propiedad MdiParent
'del formulario al tipo correspondiente a la clase del formulario MDI
'con ello tenemos acceso a sus miembros y en particular a la opcion de
menu
CType(Me.MdiParent, frmMDI).mnu_pacientes.Enabled = True
End Sub

Espero que te sirva
Un saludo desde Bilbo:
Carlos

"Aldo" escribió en el mensaje
news:

Hola:
desde mi formulario MDI, tengo este codigo:

Private Sub mnu_pacientes_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles mnu_pacientes.Click
If Not pacientes Is Nothing Then
pacientes.Activate()
Else
pacientes = New frm_pacientes
pacientes.MdiParent = Me
pacientes.Show()
End If
End Sub

lo que me pasa es que cuando cierro mi formulario frm_pacientes, NO LO
PUEDO
ABRIR NUEVAMENTE, porque este no es Nothing (pero esta cerrado).
Como lo puedo resolver.
Gracias

Segun la ayuda el Activate funciona cuando el formulario esta Visible, y si
al momento de cerrar el form hijo le das Close éste metodo te lo está
ocultando, por tanto dejara de funcionar el Activate. Quizas podrias
intentar cambiar al form hijo por el metodo Hide en vez de Close y en vez de
Activate utilizar Show.

Espero te sirva.


"Aldo" wrote in message
news:

Hola:
desde mi formulario MDI, tengo este codigo:

Private Sub mnu_pacientes_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles mnu_pacientes.Click
If Not pacientes Is Nothing Then
pacientes.Activate()
Else
pacientes = New frm_pacientes
pacientes.MdiParent = Me
pacientes.Show()
End If
End Sub

lo que me pasa es que cuando cierro mi formulario frm_pacientes, NO LO

PUEDO

ABRIR NUEVAMENTE, porque este no es Nothing (pero esta cerrado).
Como lo puedo resolver.
Gracias

GRACIAS A TODOS, me ayudo a solucionar.

"Aldo" escribió en el mensaje
news:

Hola:
desde mi formulario MDI, tengo este codigo:

Private Sub mnu_pacientes_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles mnu_pacientes.Click
If Not pacientes Is Nothing Then
pacientes.Activate()
Else
pacientes = New frm_pacientes
pacientes.MdiParent = Me
pacientes.Show()
End If
End Sub

lo que me pasa es que cuando cierro mi formulario frm_pacientes, NO LO

PUEDO

ABRIR NUEVAMENTE, porque este no es Nothing (pero esta cerrado).
Como lo puedo resolver.
Gracias