SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Angel38 en Lunes 20 de Febrero de 2006, 18:14

Título: Hacer Que Espero En Pequño Lapso De Tiempo
Publicado por: Angel38 en Lunes 20 de Febrero de 2006, 18:14
Hola amigos.

La pregunta que tengo es la siguiente: :huh:

tengo este label en el momento cargarse el formulario.

label1.caption="Bienvenido"

Como hago para que despues de 3 segundos ese mismo label muestre una frase diferente como: :comp:  

"Elija la Opción que necesite"

Muchas gracias, espero que sea de su total comprensión.
Título: Re: Hacer Que Espero En Pequño Lapso De Tiempo
Publicado por: Sagutxo en Lunes 20 de Febrero de 2006, 18:20
Salu2. si no recuerdo mal con un Timer, pones el intervalo en milisegundos, en el procedimiento timer del objeto timer escribes lo que ha de poner el label1.caption cada vez que pase por el :).

Espero que lo entiendas.
 :smartass:  :comp:
Título: Re: Hacer Que Espero En Pequño Lapso De Tiempo
Publicado por: Jose Arriagada en Martes 21 de Febrero de 2006, 13:50
Private Sub Form_Load()
Label1.Caption = "Bienvenido..."
'Activas el reloj. Recuerda que trabaja en milisegundos
Timer1.Interval = 3000
End Sub

Private Sub Timer1_Timer()
'El reloj al llegar a los 3000 miliseg. realiza la siguiente accion
Label1.Caption = "Seleccione su opcion..."

'Desconectamos el reloj, ya que solo queremos que lo haga una sola vez
'Si no lo desconectas, estara trabajando mientras este el formulario activo
Timer1.Interval = 0
End Sub
Título: Re: Hacer Que Espero En Pequño Lapso De Tiempo
Publicado por: gnfrs en Martes 21 de Febrero de 2006, 15:47
Citar
'Desconectamos el reloj, ya que solo queremos que lo haga una sola vez
'Si no lo desconectas, estara trabajando mientras este el formulario activo
Timer1.Interval = 0

Creo que es más recomendable desconectarlo con
Código: Text
  1. Timer1.enabled = false
  2.  

Saludos.
Título: Re: Hacer Que Espero En Pequño Lapso De Tiempo
Publicado por: Angel38 en Miércoles 22 de Febrero de 2006, 15:49
Gracias por la ayuda, encontre otra forma de hacerlo con las Librerias. :comp:

'declarada en General
private declare sub Sleep lib"Kernel32" (byval Milisegundos as long)

luego antes de cambiar el label hago esto en el formulario.

Label1.caption="Hola"
doevents
Sleep 300
label1.caption="Que tal"



Gracias por la info. del timer asi tengo dos formas diferentes de hacerlo. :smartass: