Mostrar etiqueta en formulario
Alguien que me ayude!!!!
Necesito saber como mostrar una etiqueta que parpadee sin afectar el resto de las funciones del form.
Ayudenme porfavor!!!
Necesito saber como mostrar una etiqueta que parpadee sin afectar el resto de las funciones del form.
Ayudenme porfavor!!!
Deberás colocar un timer en el form, con la propiedad interval en 1000 (1 segundo)
Dentro del evento timer, el siguiente código
Label1.Visible = Not Label1.Visible
DoEvents
De este modo, cada vez que se ejecute el evento timer, invierte la propiedad visible de la label.
Saludos
Dentro del evento timer, el siguiente código
Label1.Visible = Not Label1.Visible
DoEvents
De este modo, cada vez que se ejecute el evento timer, invierte la propiedad visible de la label.
Saludos
estoy programando en visual basic pero directamente en Excell, es decir en el editor de Visual en excell.... y el control timer no me aparece sera que puedo hacer que se vea para poder programar la etiqueta que parpadea
Puedes emular un timer con este código:
Dim PauseTime As Long
Public Sub sActivaTimer()
\'activar el timer
Dim Start, Finish, TotalTime
\'PauseTime = 5 \' duracion. se detendra cunado PauseTime =TIMER
Start = Timer \' Set start time.
Do While Timer >= Start + PauseTime
DoEvents
If Timer Mod 2 = 0 Then
DoEvents
Label1.Visible = Not Label1.Visible
DoEvents
End If
Loop
End Sub
Private Sub UserForm_Activate()
sActivaTimer
End Sub
Dim PauseTime As Long
Public Sub sActivaTimer()
\'activar el timer
Dim Start, Finish, TotalTime
\'PauseTime = 5 \' duracion. se detendra cunado PauseTime =TIMER
Start = Timer \' Set start time.
Do While Timer >= Start + PauseTime
DoEvents
If Timer Mod 2 = 0 Then
DoEvents
Label1.Visible = Not Label1.Visible
DoEvents
End If
Loop
End Sub
Private Sub UserForm_Activate()
sActivaTimer
End Sub