SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: Soultaker en Sábado 20 de Noviembre de 2004, 18:15

Título: Mostrar Solo Una Ventana
Publicado por: Soultaker en Sábado 20 de Noviembre de 2004, 18:15
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
  1. Dim Frm As New FrmAyuda
  2. Frm.Show
  3.  
  4.  
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:
Título: Re: Mostrar Solo Una Ventana
Publicado por: sergiotarrillo en Sábado 20 de Noviembre de 2004, 20:42
has probado con el frm.ShowDialog...?
Título: Re: Mostrar Solo Una Ventana
Publicado por: RadicalEd en Sábado 20 de Noviembre de 2004, 21:52
NO MANEJO NADITA NADITA DEL .NET PERO EN EL VB NORMAL YO LO HACIA ASI:

Código: Text
  1.  
  2. If App.Previstance Then
  3.     Exit Sub
  4. End If
  5.  
OJALA TE SIRVA AUNQUE NO CREO.
CHAO
Título: Re: Mostrar Solo Una Ventana
Publicado por: Soultaker en Domingo 5 de Diciembre de 2004, 08:01
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
  1.  
  2. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  3. '''''''''''''''''' Todo esto va en el formulario al que vas a llamar '''''''''''''''''
  4. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  5. Private Shared Ventana_a_llamar As FrmAyuda = Nothing
  6.  
  7. Public Shared Function MyInstance() As FrmAyuda
  8.         If Ventana_a_llamar Is Nothing OrElse Ventana_a_llamar.IsDisposed = True Then
  9.             Ventana_a_llamar = New frmFrmAyuda
  10.         End If
  11.         Ventana_a_llamar.BringToFront()
  12.         Return Ventana_a_llamar
  13.      End Function
  14. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  15. ''''''''''''''''''''''''''''''''''''''''''''''''''''' Aqui termina ''''''''''''''''''''''''''''''''''''''''''''''''''''
  16. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  17. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  18. ''''' Y todo esto va en formulario de donde vas a hacer la llamada ''''''
  19. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  20.         Dim FrmInstance As FrmAyuda = FrmInstance.Instance
  21.         FrmInstance.Show
  22. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  23. ''''''''''''''''''''''''''''''''''''''''''''''''''''' Aqui termina ''''''''''''''''''''''''''''''''''''''''''''''''''''
  24. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  25.  
  26.