Pasar formulario a otra funcion.

pao
01 de Agosto del 2005
Hola a todos. Ultimamente estoy algo pregunton! Estoy haciendo una funcion que hace lo siguente.

- Pide un pasword de un usuario x
- Si pasword ok, abre un form

Ahora quiero hacer que esta funcion permita abrir diferentes forms. O sea, se le puede pasar un parametro form a la funcion? si se puede como puedo hacerlo?



Public Function login(Optional user As String, Optional formToShow) As Boolean

login = False
loginSucced = False

If user = "" Then
FormLogin.txtUserName = ""
FormLogin.txtUserName.Locked = False
FormLogin.Show vbModal
Else
FormLogin.txtUserName = user
FormLogin.txtUserName.Locked = True
FormLogin.Show vbModal
If loginSucced = True Then formToShow.Show vbModal ???? <-- esto falla :P


End If

If loginSucced = True Then
loginSucced = False
login = True
Else
loginSucced = False
login = False
actualUser = ""
End If

End Function



Gracias de antemano.

pao
01 de Agosto del 2005
Buff estoy tonto. El error ve venia por otro lado...
la cabecera del form es:

Public Function login(Optional user As String, Optional formToShow as form) As Boolean

siento las molestias.

jhon200405
01 de Agosto del 2005
el problema te surge porque tienes que hacer esto
load form1
load form2
load form3
if form1.text1.text=cierto then form2.show
if form1.text1.text=falso then unload form2
y asi etc

la funcion load carga primero el parametro en memoria
es muy importante, los ejemplos lo tienes con load form1
en el archivo de ayuda de visual basic. ok