'essaie donc ca :))
timer1.interval=0
BasicInstinct
-------------------------------
Réponse au message :
-------------------------------
>
>
> Oaff...je sais pas moi...mais les timer c'est de la merde pour les programmes dès qu'ils sont un peu complexes..voila..
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Petite précision pour mon problème.
> >
> > Il s'agit de stopper un timer lors d'un événement. Dans notre cas c'est lorsqu'un compteur atteint un certain nombre ou lorsque le temps imparti est écoulé.
> >
> > Pour l'instant lorsque le compteur atteint ce nombre la feuille en cours est supprimé (ici c?est le 1er niveau) et une nouvelle feuille apparaît (ici niveau2.frm):
> >
> > Voici le Code :
> >
> > 'Cible
> > Private Sub imgCible_Click()
> > 'Compteur de tirs réussis
> > txtHit = txtHit + 1
> > If txtHit = 10 Then
> > Réponse = MsgBox("Niveau suivant", 0, "Bravo")
> > If Réponse = vbOK Then
> > tmrTime.Enable = False ? C?est cette fonction qui ne fonctionne pas? !!!
> > niveau2.Show
> > Unload Me
> > End If
> > End Sub
> >
> > Nous avons essayé divers truc dont :
> > - kill_tmrTime
> > - tmrTime.Enable = False
> > - Me.tmrTime.Enabled = True
> > - tmrTime = 0
> > - ?
> >
> > Le problème est que lorsque la nouvelle feuille apparaît, le compteur de l?ancien niveau redémarre est une boîte de dialogue survient en plein jeu d?un autre niveau. Voici le code du timer:
> >
> > 'Compteur de temps
> > Private Sub tmrTime_Timer()
> > Dim X As Long
> > z = z - 1
> > txtTime.Caption = z
> > If z = 0 Then
> > X = MsgBox("Fin de la partie 1, retour à la page d'accueil", vbOKOnly, "Game Over")
> > home.Show
> > Unload Me
> > End If
> > End Sub
> >
> > Merci d?avance.
> >
> > DimDam
> >
>