|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Criando objeto timer em tempo de execução
|
 |
|
|
|
Postada em 25/11/2003 por Martini
'no general do form
Private WithEvents Mytime As Timer
'no form load
'Trata ação no FormLoad
Private Sub FRM_0001F9()
Set Mytime = frmFRM00078.Controls.Add("VB.Timer", "HStimme1")
Mytime.Enabled = True ' habilita o timer.
Mytime.Interval = 100 ' Define o periodo do tempo
End Sub
'evento timer do timer
Private Sub Mytime_Timer()
Label1.Caption = Right(Label1.Caption, Len(Label1.Caption) - 1) & Left(Label1.Caption, 1)' evento a se realizar no intervalo do tempo.
End Sub
|
|
|
|
|
