PETITE ALARME TRÈS PARTIQUE.

Signaler
Messages postés
56
Date d'inscription
vendredi 17 octobre 2003
Statut
Membre
Dernière intervention
3 juillet 2005
-
Messages postés
71
Date d'inscription
samedi 7 février 2004
Statut
Membre
Dernière intervention
21 novembre 2006
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/30605-petite-alarme-tres-partique

Messages postés
71
Date d'inscription
samedi 7 février 2004
Statut
Membre
Dernière intervention
21 novembre 2006

ouais, mais bon, j'ai fait se programme en 20 minutes parce que j'en avais justement besoin. C'est fonctionnel et c'était tout ce qui comptait. Bien sur, on pourrais le paufiner, mais c'est pas vraiment des mes intérêts, ce code est trop insignifiant.
Mais bon, merci du commentaire :)
Messages postés
56
Date d'inscription
vendredi 17 octobre 2003
Statut
Membre
Dernière intervention
3 juillet 2005

Personnellement, je mettrai ceci pour le Command1 :



Private Sub Command1_Click()
If Command1.Caption = "Désactiver" Then
Command1.Caption = "Activer"
DateBox.Enabled = True
HeureBox.Enabled = True
Text1.Enabled = True
strMessage = Text1.Text
Timer1.Enabled = False
Else
DateBox.Enabled = False
HeureBox.Enabled = False
Text1.Enabled = False
strMessage = Text1.Text
Timer1.Enabled = True
Command1.Caption = "Désactiver"
End If
End Sub




Ca permet de le désactiver... :o)

Pas mal en tout cas ; rien de spécial, mais pas mal !