Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 4 juil. 2008 à 12:25
allez, je te mache le travail
Private mnCounter As Long
Private Sub Form_Load()
'# 30 secondes
'# on ne peut pas aller beaucoup plus au delà de trente secondes (32768)
'# on va donc devoir incrémenter un compteur, pour surveiller nos 30 minutes
Timer1.Interval = 30000
End Sub
'# Cette evenement se déclenche toutes les 30 secondes
Private Sub Timer1_Timer()
mnCounter = mnCounter + 1
'# on cherche a atteindre les 30 minutes...
'# donc 60 fois 30 secondes
If mnCounter = 60 Then
'# ici, ce que tu veux effectuer toutes les trente minutes...
MsgBox "Ca fait trente minutes !"
'# bien remettre le compteur à 0
mnCounter = 0
End If
End Sub