Consulta Sobre Menú

Verifica este codigo. La forma debe ser un child en una
forma mdi...



Dim F As Form, Found As Boolean

For Each F In Me.MdiChildren
If TypeOf (F) Is NombreDeFormaBuscada
Then
'There is already a form for
searching patients open
'give it the focus
MsgBox("Form Already Open",
MsgBoxStyle.Information, "System")
F.Focus()

f.WindowState =
FormWindowState.Maximized
Found = True
Exit For
End If
Next
If Not Found Then
Dim Ad As New NombreDeFormaBuscada
Ad.MdiParent = Me
Ad.ShowDialog()

End If

Hola;

Como hago para que un Form no pueda ser abierto más de

una vez desde el

menú..?

Saludos y gracias.

David Fúnez
Tegucigalpa, Honduras



.

Verifica este codigo la forma que buscas debe ser un
child de una forma mdi...
El for busca las formas abiertas...si encuentra la que
buscas presenta un mensaje notificando y le da el foco a
la instancia de la forma buscada.

Dim F As Form, Found As Boolean

For Each F In Me.MdiChildren
If TypeOf (F) Is NombreDeFormaBuscada
Then
'There is already a form for
searching patients open
'give it the focus
MsgBox("Form Already Open",
MsgBoxStyle.Information, "System")
F.Focus()

f.WindowState =
FormWindowState.Maximized
Found = True
Exit For
End If
Next
If Not Found Then
Dim Ad As New NombreDeFormaBuscada
Ad.MdiParent = Me
Ad.ShowDialog()

End If

Hola;

Como hago para que un Form no pueda ser abierto más de

una vez desde el

menú..?

Saludos y gracias.

David Fúnez
Tegucigalpa, Honduras



.

Hola:
Prueba esto

En el form MDI
Private Sub mnuTuMenu_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles mnuTuMenu.Click
Me.mnuTuMenu.Enabled = False
Dim lofrmTuForm As New Form1
lofrmTuForm.MdiParent = Me
lofrmTuForm.Show()
End Sub

En el form abierto
Private Sub Form1_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).mnuTuMenu.Enabled = True
End Sub

Espero que te sirva
Un saludo desde Bilbo:
Carlos

"David Fúnez" escribió en el mensaje
news:

Hola;

Como hago para que un Form no pueda ser abierto más de una vez desde el
menú..?

Saludos y gracias.

David Fúnez
Tegucigalpa, Honduras

Gracias por sus respuestas...

David Fúnez
Tegucigalpa, Honduras


"David Fúnez" wrote in message
news:

Hola;

Como hago para que un Form no pueda ser abierto más de una vez desde el
menú..?

Saludos y gracias.

David Fúnez
Tegucigalpa, Honduras