pb avec un timerRésolu

Question

Bonjour &#224; tous, je sais qu'il existe plusieurs topics sur ce probl&#232;me mais aucun n'a pu r&#233;soudre le mien. Il n'est pourtant pas bien compliqu&#233;, je voudrais juste savoir comment fairte se d&#233;clencher une action (ici la fermeture de session et de la fenetre) 10 secondes apr&#232;s l'ouverture de la fenetre. Je n'ai pas compris grand-chose aux timer et si vous pourviez me donner tous les &#233;l&#233;ments n&#233;cessaires. Je poste mon code qui ne fait rien du tout en termes de d&#233;compte.
Merci d'avance

Private Sub Form_Load()
decompt = 60
If decompt = 0 Then
ExitWindowsEx 0&, 0&
End
End If
Label3.caption = " & decompt & "
End Sub

Private Sub Command1_Click()
ExitWindowsEx 0&, 0&
End
End Sub

Private Sub decompte_Timer()
Dim decompt As Integer
decompt = decompt - 1
End Sub

cs_casy · Accepted Answer

voir r&#233;ponse dans ton autre post :


avec cette petite modif &#231;a ira peut-etre mieux :








Dim decompt As Integer




Private Sub Form_Load()


    decompt = 60


    decompte.Interval = 1000


    decompte.Enabled = True


End Sub




Private Sub Command1_Click()


    ExitWindowsEx 0&, 0&


    End


End Sub




Private Sub decompte_Timer()


    decompt = decompt - 1


    If decompt = 0 Then


        ExitWindowsEx 0&, 0&


        End


    End If


Label3.Caption = "decompt : " & decompt




End Sub









<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

Teclis01 · Answer

As tu penser a mettre un interval a ton timer ?
10s <=> 10000 comme interval
si tu met : Timer1.Interval =10000
il se lancera chak 10 s apres lecture de cette ligne dans le programme
tu peux "interferer" en utilisant l enabled
Desactiver le timer : Timer1.enabled= false
Activer le timer : Timer1.enabled= true
ensuite pour fermer une form il suffit d ecrire Unload me ou form1.Hide
voil&#224; j espere que cela t aidera

Teclis

Teclis01 · Answer

Derniere chose !
Afin de dire ce que le timer doit faire a chaque interval tu as juste a double cliker dessus.
evidement tu peux desactiver le timer dans ce meme timer.
vu que jy pense aussi je te conseille Unload me plutot que form1.hide.
la 2 eme instruction permet de la cacher et non de la fermer 
dans ce cas pour la fermer tu devras faire un crtl+alt+suppr ce qui n est pas super ...
si la reponse t as plu et correspond a tes besoin click sur le bouton a gauche :Op

mimile2000 · Answer

Deja merci pour ces r&#233;ponses
En fait, m&#234;me apr&#232;s avoir indiqu&#233; l' Interval du timer, il ne se passe rien. Ni en le rendant enabled = true. De plus, j'ai voulu voir si on pouvait afficher le d&#233;compte en ajoutant un label et il ne maffiche que decompt _
Voici le code :
Private Sub Form_Load()
decompte.Interval = 1000
decompte.Enabled = True
decompt = 60
If decompt = 0 Then
End
End If
Label3.caption = " & decompt & "
End Sub
Private Sub Command1_Click()
ExitWindowsEx 0&, 0&
End
End Sub
Private Sub decompte_Timer()
Dim decompt As Integer
decompt = decompt - 1
End Sub

Pb avec un timer

4 réponses

Discussions similaires