Visual Basic - Problemas propiedad visible en formulario

Life is soft - evento anual de software empresarial
 
Vista:

Problemas propiedad visible en formulario

Publicado por Romi (4 intervenciones) el 17/11/2006 11:46:54
Hola gente,

Yo quisiera saber si se puede comprobar desde un form si otro form ya está cargado en memoria, si es así comprobar si está visible y dar mensaje de error. He probado poniendo:

if frm1.visible = true then ...

pero me da el siguiente error en frm1.visible "La variable de tipo Object o la variable de bloque With no está establecida", cuando frm1 no está visible, es decir cuando me tendría que dar frm1.visible = false.

Si alguien puede ayudarme se lo agradecería.

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problemas propiedad visible en formulario

Publicado por The Emulator (96 intervenciones) el 17/11/2006 15:50:43
Hola

Haberigua sobre la coleccion Forms esta contiene una referencia a cada uno de los forms que estan cardados de esa forma podrias mirar si el que buscas esta abierto seria algo asi:

Crea dos formularios (Form1 y Form2) cooca dos botones en el Form1(Command1 y Command2) y coloca el siguiente codigo en el Form1

'----------------------------Form1-----------------------------
Option Explicit

Private Sub Command1_Click()
Dim Formulario As Form
Dim blnAbierto As Boolean
blnAbierto = False

For Each Formulario In Forms
If Formulario.Name = "Form2" Then
blnAbierto = True
End If
Next

If blnAbierto = True Then
MsgBox "El formulario esta cargado"
Else
MsgBox "El formulario esta cerrado"
End If

End Sub

Private Sub Command2_Click()
Form2.Show
End Sub
'----------------------------Fin Form1-----------------------------

Con eso al precionar el Boton1 mira si el form2 esta cargado y muestra un mensaje de si si o si no.

Eso es una forma de mirar si esta cargado pero deben haber otras.

Saludos
http://www.theemulator.tk
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar