Helpppppppp !!!!!!!!HorlogeRésolu

Question

Bonjour,
je debut en VB
Je suis occuper a teste Timer
Voila j'ai fait une horloge et je voudrais quel se rafraichisse toute les 6 sec
Voila mon code 

Private Sub Form_Load()
Timer1.Interval = 6000
txtTimer = Time
txtDate = Date
End Sub

cs_CanisLupus · Accepted Answer

Salut,

Mets :
txtTimer = Time
txtDate = Date

aussi dans Timer1_Timer()

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

nach1973 · Answer

Merci, impecable
Mais ,je sais pas pq je suis oblig&#233; de la mettre dans Timer1_Timer().

cs_CanisLupus · Answer

C'est &#233;vident, l'&#233;v&#232;nement timer du contr&#244;le timer est d&#233;clench&#233; toutes les x millisecondes (valeur de interval). C'est donc l&#224; qu'il faut mettre le code effectuant les op&#233;rations que tu souhaites.
Bien s&#249;r, tu peux (et dois dans le cas que tu pr&#233;sentes) laisser le m&#234;me code dans le load du form.
Conseil, si ce code d&#233;passe tes 2 instructions, met-le dans une proc&#233;dure (sub) que tu appelleras dans ton load et ton timer, ex :

sub maj_mes_textbox()
txtTimer = Time
txtDate = Date
end sub

Private Sub Form_Load()
Timer1.Interval = 6000
maj_mes_textbox
End Sub

sub Timer1_Timer()
maj_mes_textbox
end sub

Ainsi, si tu dois modifier ce code, tu ne le feras qu'&#224; un seul endroit.
Autre chose, si tu mets maj_mes_textbox dans un module, n'oublies pas de pr&#233;fixer tes textbox avec le nom de la form o&#249; ils se trouvent :

sub maj_mes_textbox()
maform.txtTimer = Time
maform.txtDate = Date
end sub

Voil&#224;, j'esp&#232;re que l'explik te convient.

Bonne prog

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Helpppppppp !!!!!!!!Horloge

3 réponses

Discussions similaires