Muad-Dib
-
9 août 2001 à 00:13
dionysos6868
Messages postés310Date d'inscriptionjeudi 4 septembre 2003StatutMembreDernière intervention 9 juin 2005
-
26 févr. 2004 à 21:03
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
putin c moche !!
si tu veux un vrai compte a rebour et qui est entirement parametrable et qui marche c pas complique tu va la :
http://www.vbfrance.com/index.asp?Val=1925 en + c codes est entirement de moa !
26 févr. 2004 à 21:03
19 juin 2003 à 15:17
14 mai 2002 à 13:11
5 avril 2002 à 03:56
22 févr. 2002 à 21:01
21 août 2001 à 13:59
y fo : 1 timer(interval = 1000)et 1 label
Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption - 1
End Sub
9 août 2001 à 17:04
si tu veux un vrai compte a rebour et qui est entirement parametrable et qui marche c pas complique tu va la :
http://www.vbfrance.com/index.asp?Val=1925
en + c codes est entirement de moa !
9 août 2001 à 13:52
9 août 2001 à 02:03
9 août 2001 à 00:38
9 août 2001 à 00:31
Label1 = Label1 - 1
If Label1 = 0 Then
Dim msg
msg = MsgBox("le compte a rebour est finit", vbCritical, "fini")
Timer1.Enabled = False
End If
9 août 2001 à 00:13
t as besoin :
d'UN timer : interval = 1000
d'UN label : label1
vla le code ....
Option Explicit
Private Counter as Integer
Sub Form_Load()
Counter = 10
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Counter
Counter = Counter - 1
If Counter = 0 Then
Timer1.Enabled = False
MsgBox "Boum"
End If
End Sub
point barre ... ;-)
Muad