ayuda con forms

07/05/2006 - 04:40 por Jose | Informe spam

Estimados. El caso es el siguiente:

Tengo un form llamado fmenup y otro llamado facceso. El form fmenup tiene
todo el menu principal y sus sub-menus. En el evento load del form fmenup
cargo y muestro al form facceso para que me muestre el usuario y el
password. Una vez que se valida el usuario quiero que me cierre el form
acceso y me muestre las opciones de mi menu de mi form fmenup.
NOTA.
En el form fmenup tengo una variable que la coloco en false para que no me
muestre las opciones del menu. Cuando el usuario se valida en el form
facceso esa variable la paso a true.

Por favor ayuda
Gracias

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Carlos Gómez

07/05/2006 - 08:19 | Informe spam

En facceso supongo que tienes algo así:

Dim _acceso as boolean

Debes poner ademas:

Public ReadOnly Property Acceso() As Boolean
Get
Return _acceso
End Get
End Property

Y ahora en el evento Load de fmenup

dim formulario as new facceso
formulario.ShowDialog() 'Muestra facceso
'Ahora puedes acceder a la variable
'acceso de facceso:
Private Sub fmenup_Load (byval... )
If Not formulario.Acceso Then
End 'Se cierra la aplicación
Else
formulario.Dispose
formulario = Nothing 'Liberamos memoria
'Continuamos con la carga de fmenup
...

End if
End Sub 'fmenup_Load

Responder a este mensaje

#2 Patxi Sanz

07/05/2006 - 11:12 | Informe spam

Hola Jose:

¿Has comprobado lo que te expuse en tu otro hilo del día 4? ¿Te sirvió?

Un saludo,

Patxi Sanz
patxisanz[ARROBA]yahoo[PUNTO]es
Tudela (NA)

Responder a este mensaje

#3 Jose

08/05/2006 - 14:25 | Informe spam

Gracias Carlos
"Carlos Gómez" escribió en el mensaje
news:

En facceso supongo que tienes algo así:

Dim _acceso as boolean

Debes poner ademas:

Public ReadOnly Property Acceso() As Boolean
Get
Return _acceso
End Get
End Property

Y ahora en el evento Load de fmenup

dim formulario as new facceso
formulario.ShowDialog() 'Muestra facceso
'Ahora puedes acceder a la variable
'acceso de facceso:
Private Sub fmenup_Load (byval... )
If Not formulario.Acceso Then
End 'Se cierra la aplicación
Else
formulario.Dispose
formulario = Nothing 'Liberamos memoria
'Continuamos con la carga de fmenup
...

End if
End Sub 'fmenup_Load

Responder a este mensaje

#4 Jose

08/05/2006 - 14:27 | Informe spam

Gracias Patxi por ese dato. Lo malo de ese ejemplo es que como se cierra en
fondo y el acceso al mostrar el fmenup hace como un destello. Porque esta
cargando el formulario Fmenup.
No se si se pueda evitar que se vea ese descarga y carga de form medio feo.
Saludos
"Patxi Sanz" <patxisanz[ARROBA]yahoo[PUNTO]es> escribió en el mensaje
news:%

Hola Jose:

¿Has comprobado lo que te expuse en tu otro hilo del día 4? ¿Te sirvió?

Un saludo,

Patxi Sanz
patxisanz[ARROBA]yahoo[PUNTO]es
Tudela (NA)

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida