Re: Stoper un timer en VB

dimdam Messages postés 4 Date d'inscription mardi 7 janvier 2003 Statut Membre Dernière intervention 18 janvier 2003 - 9 janv. 2003 à 09:41
BasicInstinct Messages postés 1471 Date d'inscription mardi 5 février 2002 Statut Membre Dernière intervention 20 octobre 2014 - 9 janv. 2003 à 11:22
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
A voir également:

2 réponses

cs_yanoche Messages postés 2 Date d'inscription vendredi 20 décembre 2002 Statut Membre Dernière intervention 22 décembre 2004
9 janv. 2003 à 09:58
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..
0
BasicInstinct Messages postés 1471 Date d'inscription mardi 5 février 2002 Statut Membre Dernière intervention 20 octobre 2014 12
9 janv. 2003 à 11:22
'essaie donc ca :))
timer1.interval=0

:clown) BasicInstinct :clown)
0
Rejoignez-nous