none
Abrir formulario hijo desde formulario padre MDI solo una vez RRS feed

  • Pregunta

  • Hola buenos días, tengo la sigueiente situacion, desde mi formulario MDI habro mis formularios de esta manera:

         Dim objfrmConsecutivos As New frmConsecutivos
            objfrmConsecutivos.MdiParent = Me
            objfrmConsecutivos.WindowState = FormWindowState.Maximized
            objfrmConsecutivos.Show()

    pero me doy cuenta que mi usuario del programa puede abrir varias veces el mismo formulario ¿como puedo hacer que si ya abrió el formulario no lo vuelva a abrir a menos claro que lo haya cerrado?.

    Gracias

    viernes, 1 de abril de 2016 15:58

Respuestas

  • Hola,

    Si el form ya está abierto lo mando al frente a mostrar, sino creo una nueva instancia.

    Dim objfrmConsecutivos As frmConsecutivos Private Sub Menu1_Click(sender As Object, e As EventArgs) Handles XdToolStripMenuItem1.Click If objfrmConsecutivos Is Nothing OrElse objfrmConsecutivos.IsDisposed Then objfrmConsecutivos = New frmConsecutivos objfrmConsecutivos.MdiParent = Me objfrmConsecutivos.WindowState = FormWindowState.Normal Else 'Si está abierto, lo mandamos al frente objfrmConsecutivos.BringToFront() End If

    objfrmConsecutivos.Show() End Sub

    Saludos.


    JC NaupaCrispín


    viernes, 1 de abril de 2016 16:47

Todas las respuestas

  • Hola.

    Podrías leer la respuesta que se proporcionó aquí

    viernes, 1 de abril de 2016 16:04
  • Hola,

    Si el form ya está abierto lo mando al frente a mostrar, sino creo una nueva instancia.

    Dim objfrmConsecutivos As frmConsecutivos Private Sub Menu1_Click(sender As Object, e As EventArgs) Handles XdToolStripMenuItem1.Click If objfrmConsecutivos Is Nothing OrElse objfrmConsecutivos.IsDisposed Then objfrmConsecutivos = New frmConsecutivos objfrmConsecutivos.MdiParent = Me objfrmConsecutivos.WindowState = FormWindowState.Normal Else 'Si está abierto, lo mandamos al frente objfrmConsecutivos.BringToFront() End If

    objfrmConsecutivos.Show() End Sub

    Saludos.


    JC NaupaCrispín


    viernes, 1 de abril de 2016 16:47