Aparecer Label y Textboxt a los 10 segundos
Estimados expertos:
Tengo un form1 de bienvenida con picture.... Necesito lo siguiente:
- Que a los 10 segundos cambie a otro picture y aparezca el label y un text... Para que ingrese el password asignado....
Quedo a la espera.
Gracias!
Alberto Meza
1 respuesta
Como dices que ya tienes el Formulario hecho (de lo contrario tendrás que colocarle todos los controles necesarios), haz lo siguiente:
Para el evento initialize del uf te creas este código:
Private Sub UserForm_Initialize()
'>>>>> ocultamos los controles:
Label1.Visible = False
TextBox1.Visible = False
Image2.Visible = False
CommandButton1.Visible = False
'>>>>> iniciamos la cuenta regresiva
Application.OnTime Now + TimeValue("00:00:10"), "esperar"
End Sub
DESPUÉS INSERTAS UN MODULO, LO ABRES Y COLOCAS ESTE CÓDIGO:
Sub esperar()
'>>>>> ocultamos la Primer Imagen:
UserForm1.Visible = False
'>>>>> mostramos la Segunda imagen, el label y los controles
UserForm1.Image2.Visible = True
UserForm1.Label1.Visible = True
UserForm1.TextBox1.Visible = True
UserForm1.CommandButton1.Visible = True
'>>>>>ponemos el text en foco para ingresar los datos:
UserForm1.TextBox1.SetFocus
End Sub
Ahora solo queda adecuar los nombres de los labels y controles de/a tu proyecto
