CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Mostrar Solo Una Ventana

(1/1)

Soultaker:
Hola que tal como estan tengo un inconveniente en mi sistema, el problema es que cuando quiero mostrar una ventana lo que hago es esto

--- Código: Text ---Dim Frm As New FrmAyudaFrm.Show  El problema es que cada vez que hago clic se abre una nueva ventana. Como puedo hacer para que solo abra una ventana sin importar la cantidad de veces que haga clic en el boton.

 :comp:

sergiotarrillo:
has probado con el frm.ShowDialog...?

RadicalEd:
NO MANEJO NADITA NADITA DEL .NET PERO EN EL VB NORMAL YO LO HACIA ASI:


--- Código: Text --- If App.Previstance Then    Exit SubEnd If OJALA TE SIRVA AUNQUE NO CREO.
CHAO

Soultaker:
Hey chicos ya resolvi este inconveniente que tenia, ahi les mado el codigo de como lo hice, espero que tambien les sirva a ustedes.

--- Código: Text --- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Todo esto va en el formulario al que vas a llamar '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Private Shared Ventana_a_llamar As FrmAyuda = Nothing Public Shared Function MyInstance() As FrmAyuda        If Ventana_a_llamar Is Nothing OrElse Ventana_a_llamar.IsDisposed = True Then            Ventana_a_llamar = New frmFrmAyuda        End If        Ventana_a_llamar.BringToFront()        Return Ventana_a_llamar     End Function''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Aqui termina ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Y todo esto va en formulario de donde vas a hacer la llamada ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''        Dim FrmInstance As FrmAyuda = FrmInstance.Instance        FrmInstance.Show''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Aqui termina ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  

Navegación

[0] Índice de Mensajes