Re: Stoper un timer en VB

Signaler
Messages postés
4
Date d'inscription
mardi 7 janvier 2003
Statut
Membre
Dernière intervention
18 janvier 2003
-
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
-
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

2 réponses

Messages postés
2
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
22 décembre 2004

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
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
'essaie donc ca :))
timer1.interval=0

:clown) BasicInstinct :clown)
0