Un sucide trajique pour un timer trop simple :(Résolu

Question

Bonjour, j'aurai vraiment besoin d'aide cela ne coute pas grand chose, je m'explique :

j'aimerai faire un timer, le retardement d'une action

Quelquechose qui ressemblerai a sa :

Private Sub Form_Load()
Timer 5000 = call Command1_Click()
end sub

Au bout de 5000 l'action "Command1_Click()" ce lance.

c'est tr&#233;s simple je suppose, mais je d&#233;bute tout juste et j'ai essayer plusieurs choses, sa me prend la t&#234;te.
merci bien. :)
-----------------------------------
LA COMMANDE ESSAYER
Private Sub Form_Load()
    Call Timer1_Timer
    Text1.Text = globalvars.Formname
    Text2.Text = salut
    Text3.Text = mon texte
    Call Command3_Click    'lance mon random OK
    Me.NoColor.Value = 0
    If globalvars.NoColors = True Then
        Me.NoColor.Value = 1
    End If
    fgcolor.ListIndex = 0
    bgcolor.ListIndex = 1
End Sub


Private Sub Timer1_Timer()
Call Command1_Click
End Sub
---------------------------
et a l'execution du prog j'ai l'erreure suivante :

"Erreur d'execution 381"
Index de tableau de propri&#233;t&#233;s incorrect"

econs · Accepted Answer

Tout simple.

Le timer est initialis&#233; et lanc&#233; dans Form_Load.

Puis, quand l'intervalle expire (Timer1_Timer), l'action voulue est effectu&#233;e, et le Timer est inhib&#233; :







Private Sub Form_Load

    Timer1.Interval = 5000

    Timer1.Enabled = True

End Sub



Private Sub Timer1_Timer()

    Command1_Click

    Timer1.Enabled=False

End Sub

Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_CanisLupus · Answer

Salut, c'est vrai, &#231;a ne coute pas grand chose, il te suffit de consulter la msdn ou d'utiliser la zone de recherche du site avec "timer" par ex.
Tu auras plein d'exemples d'utilisation d'un timer.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_Jack · Answer

Salut
http://www.vbfrance.com/code.aspx?ID=21180

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

Sh0x3r · Answer

Tout dabord MONSIEUR CanisLupus j'ai CHERCHER avec le mot "Timer" ne crois pas que je suis teu-b&#233; ok, et je n'ai pas trouv&#233; ce que je cherch&#233; alors abstient toi de prendre un d&#233;butant en visual basic pour un con carr&#233;ment paum&#233;, tu peux m'apprendre le visual basic peux &#233;tre, mais pas m'apprendre a vivre. merci quand meme.

Et je voudrai remerci&#233; jack, mais le topic ne corr&#233;spond pas du tout a ce que j'ai demand&#233;, mais c'est gentil quand meme.

@+

Sh0x3r · Answer

Ok Je te remercie manu, ton code ressemble beaucoup a ce que je veux faire, mais malheuresement j'ai une erreure dans le debug, elle est d&#233;t&#233;ct&#233;e a cette ligne, 


    Timer1.Interval = 5000

Je vais essayer de bidouiller pour que sa marche mais bon :/
merci encore :)

Sh0x3r · Answer

HA C'est bon je doi avou&#233; malgr&#233; tout.. que je suis un peut con daccord je l'admet je suis honette je reconnai... hum sa marche niquel merci beaucoup Manu. c'est tr&#233;s sympa de ta part de m'avoir aid&#233; !