Compte a rebourd qui marchescd

0/5 (4 avis)

Snippet vu 3 292 fois - Téléchargée 65 fois

Contenu du snippet

1 label regle sur 60scd
1 timer

Source / Exemple :


Public i As Integer
Private Sub Form_Load()
i = 60

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Timer1_Timer()
Dim x As Long
i = i - 1
Label1.Caption = i
If i = 0 Then
x = MsgBox("aaahhh", vbCritical, "boom!!")
End
End If
End Sub

A voir également

Ajouter un commentaire Commentaires
salut
j'ai visite votre site parce que je veux bien aprendre le language basic alors quand j'ai cliquer sur l'une de vos rebrique eu de mal a tout recopie page par page alors ce que je² demande c'est si vous pouve m'envoie un lien que peux l'utuliser pour le telechargement sans perdre bcp de temps
stp repondez moi
et je vous remercie d'avance
j'ai pas compris le code...;-)
bravo, continue comme ça et tu seras peut-être classé
250ème au concours(si tu y participes)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.