wallon14
Messages postés56Date d'inscriptionvendredi 17 octobre 2003StatutMembreDernière intervention 3 juillet 2005
-
20 avril 2005 à 17:09
Radiohead4ever
Messages postés71Date d'inscriptionsamedi 7 février 2004StatutMembreDernière intervention21 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.
Radiohead4ever
Messages postés71Date d'inscriptionsamedi 7 février 2004StatutMembreDernière intervention21 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és56Date d'inscriptionvendredi 17 octobre 2003StatutMembreDerniè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 !
21 avril 2005 à 01:09
Mais bon, merci du commentaire :)
20 avril 2005 à 17:09
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 !