PETITE ALARME TRÈS PARTIQUE.

wallon14 Messages postés 56 Date d'inscription vendredi 17 octobre 2003 Statut Membre Dernière intervention 3 juillet 2005 - 20 avril 2005 à 17:09
Radiohead4ever Messages postés 71 Date d'inscription samedi 7 février 2004 Statut Membre Dernière intervention 21 novembre 2006 - 21 avril 2005 à 01:09
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

Radiohead4ever Messages postés 71 Date d'inscription samedi 7 février 2004 Statut Membre Dernière intervention 21 novembre 2006
21 avril 2005 à 01:09
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 :)
wallon14 Messages postés 56 Date d'inscription vendredi 17 octobre 2003 Statut Membre Dernière intervention 3 juillet 2005
20 avril 2005 à 17:09
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 !
Rejoignez-nous