Visual Basic - Como saber si un formulario se encuentra abierto

Life is soft - evento anual de software empresarial

Como saber si un formulario se encuentra abierto

Publicado por Antonio Corena (97 intervenciones) el 14/12/2005 18:44:45

Hola a todos.
Tengo una pequeña duda, como puedo saber si un formulario se encuentra abierto???? para hacer una validación. Gracias

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Variable Global

Publicado por Rogelio Carmona (113 intervenciones) el 14/12/2005 19:50:58

puede tener varias soluciones, yo pondria una variable global de tipo Boolean, y en el load de la forma que quieres validar ponerla True y el el Unload ponerla False

suerte

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

RE:Como saber si un formulario se encuentra abiert

Publicado por Cecilia Colalongo (3116 intervenciones) el 14/12/2005 22:18:26

Revisa la colección Forms:

http://msdn.microsoft.com/library/en-us/vb98/html/vbobjForm.asp

For Each objForm In Forms

If objForm.Name = <TuForm> then

' Esta abierto (cargado)

Else

' No esta cargado

End If

Next

Valora esta respuesta

Comentar

Pos: 335

Val: 4

Como saber si un formulario se encuentra abierto

Publicado por gabriel (4 intervenciones) el 21/11/2019 19:20:46

Yo sé que a esta altura a nadie le importa, pero mi solución fue colocar en un módulo una variable global booleana y cada vez que aperturo un Form lo cambio a "TRUE" y cuando lo cierro lo coloco en "FALSE", cuando presiono el botón para abrir el formulario realizo una condición

:if Form_activo= true then

 frm_principal.setfocus

else

 frm_principal.show

end if

Eso fue todo -

Valora esta respuesta

Comentar

Pos: 6

Val: 355

Como saber si un formulario se encuentra abierto

Publicado por raul (160 intervenciones) el 21/11/2019 22:19:52

private function FRBUSCAR(FRT as string) as boolean 'El parametro es para poner el nombre del form a buscar

FRBUSCAR = false

dim FRX as form

For each FRX in forms

if strcomp(FRX.name, FRT) =0 then

FRBUSCAR = true

exit for

end if

next

end function

ahora cada vez que quieras saber si un formulario esta abierto solo tienes que preguntar

if frbuscar("NOMBRE_FORM") = true then

...

Valora esta respuesta

Comentar

Numero Aleatorio

ToolsBar