splash !!!

pablisho
01 de Marzo del 2006
hola que tal... apenas estoy empezando con visual y tengo un problema estoy haciendo una presentacion.. que dura 5 seg. y despues se va a una ventana donde te pide tu nombre y contraseña cuando eso sucede se despliega la bienvenida de la sesion de la persona pero cuando pasa a la ventana gral. me aparecen dos o a veces 3 ventanas... no se si me puedan decir donde esta mi error. se los agradeceria mucho...

epa
01 de Marzo del 2006
las ventanas que te aparecen son todas identicas, o son diferentes ventanas?
podrisa poner el codigo que abre la ventena principal para facilitar la respuesta
saludos

pablisho
01 de Marzo del 2006
aqui esta el codigo de la form1.. que es donde pones el usuario y contraseña... por decir si pones pablo y contraseña ovando.... te manda ala form4 que es la presentacion de ese usuario pero despues de eso sale la otra ventana que se me repiten 2 o 3 veces... es la misma ventana... (la presentacion la hago con timer)
gracias por molestarte en contestar espero que sea lo que me pediste ..... :)

Dim x As New Form2
Dim presenpablo As New Form4
Dim presencaro As New Form5

Dim usuario As String
Dim contraseña As String

usuario = TextBox1.Text
contraseña = TextBox2.Text

'''''''''''usuario 1
If usuario = "pablo" Then
If contraseña = "ovando" Then
presenpablo.Show()
'x.Show()
Else
If contraseña = "mora" Then
presenpablo.Show()
'x.Show()
Else
MsgBox("error de contraseña")
End If
End If
'''''''''''usuario 2
Else
If usuario = "carolina" Then
If contraseña = "ovando" Then
presencaro.Show()
'x.Show()
Else
If contraseña = "mora" Then
presencaro.Show()
'x.Show()
Else
MsgBox("error de contraseña")

End If
End If
'''''''''''usuario 3
Else
If usuario = "pablo" Then
If contraseña = "ovando" Then
x.Show()
Else
If contraseña = "hernandez" Then
x.Show()
Else
MsgBox("error de contraseña")
End If
End If
'''''''''''usuario 4
Else
If usuario = "ernesto" Then
If contraseña = "favela" Then
x.Show()
Else
If contraseña = "lozano" Then
x.Show()
Else
MsgBox("error de contraseña")
End If
End If
'''''''''''usuario 5
Else
If usuario = "alejandro" Then
If contraseña = "benitez" Then
x.Show()
Else
If contraseña = "cano" Then
x.Show()
Else
MsgBox("error de contraseña")
End If
End If
Else

MsgBox("error de usuario")

End If
End If
End If
End If
End If

epa
01 de Marzo del 2006
^^ no hay porque

Dim x As New Form2
Dim presenpablo As New Form4
Dim presencaro As New Form5

al declarar esos objetos, estas declarando matrizes de formularios, por lo cual cada vez que llames a uno, se abrira una nueva ventana sin importar que ya este abierto. Para evitar eso deves borrar esas lineas y simplemente llamar a los formularios con el evento show.
ej:
form2.show
form4.show

Espero te sirva, saludos

epa
01 de Marzo del 2006
perdon, no como matrizes, pero como objetos, de todos modos la solucion es la misma

pablisho
01 de Marzo del 2006
que hay oye.. pero al borrar
Dim x As New Form2
Dim presenpablo As New Form4
Dim presencaro As New Form5

y poner solo new form 2 y demas... me salen error.. me sale subrayados

pablisho
01 de Marzo del 2006
perdon al poner form2.show () me sale error