evilnibble
23 de Noviembre del 2003

hola! soy muy novato en esto, y me acabo de topar con cierta duda.

necesito que en mi programa, vayan apareciendo labels, pero que empiezen en modo invisible, despues sean visibles por X segundos, y despueas vuelvan a ser invisibles.

se que esto se ahce con un timer, pero no se como aplicarlo... es mi segundo dia con esto :S

agradezco la ayuda que puedan brindarme

de antemano gracias

Baltasar
23 de Noviembre del 2003

El control timer se ejecuta (si tiene ENABLED a true) cada X milisegundos, y este valor X lo toma de la propiedad INTERVAL.
Para lo que quieres hacer, lo ideal es declarar una variable A, poner un control timer con INTERVAL 1000, y dentro del timer pones:

A=A+1

con eso harás que A aumente de valor cada segundo, y a continuación pones:

if A=7 then . . . .

así a los 7 segundos de haber comenzado la aplicación hará lo que pongas en el THEN.

Espero que lo hayas entendido.
Saludos

matamala
23 de Noviembre del 2003

Amigo Evil te e preparado un ejemplo de lo que puedes hacer,con el permiso de Baltasar.

para ver los efectso crea un proyecto nuevo con dos label y un timer, no le cambies el nombre a nuiguno de ellos.
das con el derecho al relog, propiedades y donde pone interval pones 1000, en las propiedades delos dos timer borras donde pone Caption, que te esta poniendo Caption1 y Caption2. lo dejas en blanco.
Dim I As Integer

Private Sub Timer1_Timer()
Label2.Caption = I
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' con este if consigues que se produzca un ciclo infinito de el resto de los if
'puesto que si I es = que 60 buelve a empezar desde 0.
If I = 60 Then
I = 0
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Label1.AutoSize = True
I = I + 1
If I = 7 Then
Label1.Visible = True
Label1.Caption = Time
End If
If I > 8 Then
Label1.Caption = Date
End If
If I > 10 Then
Label1.Caption = "Para que sirve esto"
End If
If I > 12 Then
Label1.Visible = False

End If

End Sub