Visual Basic - Formulario de presentación

Life is soft - evento anual de software empresarial
 
Vista:

Formulario de presentación

Publicado por Rodrigo Valdebenito (6 intervenciones) el 12/10/2004 18:50:14
Necesito saber como hacerlo para que luego de cargar un formulario de presentación por 5 segundos me cargue un formulario MDI al mismo tiempo que un formulario de login, para luego entrar a toda la aplicación
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:Formulario de presentación

Publicado por Eliana (11 intervenciones) el 12/10/2004 23:08:55
Debes crear una función sub main en un módulo, y desde esta función llamar al formulario de presentación. La temporización la puedes hacer con un progressbar o llamando la función sleep( ) de la librería de open gl (si la necesitas me avisas y la mando al correo). Después descargas el formulario de presentación y llamas al mdi. Ojalá te sirva
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

RE:Formulario de presentación

Publicado por Ruri (583 intervenciones) el 13/10/2004 02:25:16
Rodrigo:
Colocás como objeto de inicio al formulario de presentación y le colocás un temporizador. Colocá un ProgressBar en el formulario de presentación y un Timer. Luego colocá este cógigo:

Private Sub Form_Load()
With ProgressBar1
.Min = 0
.Max = 25
End With
With Timer1
.Interval = 500
.Enabled = True
End With
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Load frmPassword
Load frmMain
frmPassword.Visible = True
DoEvents
End Sub

Private Sub Timer1_Timer()
Static i As Long
With ProgressBar1
If .Value = .Max Then
Timer1.Enabled = False
Unload Me
Exit Sub
End If
.Value = .Value + 1
End With
End Sub

Cuando aceptás la clave en frmPassword, mostrás el frmMain con
frmMain.Show (en frmPassword)

Saludos Ruri
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