Horloge-réveil

Soyez le premier à donner votre avis sur cette source.

Vue 3 325 fois - Téléchargée 292 fois

Description

Une petite horloge sans prétention avec une fonction réveil et la possibilité de changer la couleur de fond...

Source / Exemple :


'Tout est dans le Zip 

'Désolé Ouneufe mais étant donné qu'il y a 4 form, c'est pas évident de mettre le code ici...

Conclusion :


Seul bug connu : Impossible de changer la couleur de fond en mode date, me conacter si vous avez la solution : sebleboss2002@wanadoo.fr

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
189
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
3 avril 2005

Merci langanay !
Messages postés
3
Date d'inscription
lundi 26 août 2002
Statut
Membre
Dernière intervention
3 février 2003

Optimisation du code remplacer dans la fonction List3_CLick le numero de Form appelle (remplacer par 1)

Private Sub List3_Click()
If List3.Text "Jaune" Then Form1.Label1.BackColor vbYellow
If List3.Text "Vert" Then Form1.Label1.BackColor vbGreen
If List3.Text "Bureau" Then Form1.Label1.BackColor &H80000001
If List3.Text "Rouge" Then Form1.Label1.BackColor vbRed
If List3.Text "Gris" Then Form1.Label1.BackColor &H80000000
End Sub

a+
Messages postés
3
Date d'inscription
lundi 26 août 2002
Statut
Membre
Dernière intervention
3 février 2003

Optimisation du code remplacer dans la fonction List3_CLick le numero de Form appelle (remplacer par 1)

Private Sub List3_Click()
If List3.Text "Jaune" Then Form1.Label1.BackColor vbYellow
If List3.Text "Vert" Then Form1.Label1.BackColor vbGreen
If List3.Text "Bureau" Then Form1.Label1.BackColor &H80000001
If List3.Text "Rouge" Then Form1.Label1.BackColor vbRed
If List3.Text "Gris" Then Form1.Label1.BackColor &H80000000
End Sub

a+
Messages postés
189
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
3 avril 2005

Merci pour tes tes commentaires encourageants Ouneufe, mais je suis jeune ;) et débutant dans la matière, seulement une semaine que je me suis mis au VB5...
Pour le bug, si je comprends bien, il suffit selon toi que je mette une seconde liste déroulante pour la date ???

Merci quand même !
Messages postés
60
Date d'inscription
mardi 4 septembre 2001
Statut
Membre
Dernière intervention
19 janvier 2009

Le voilà ton bug (et c'est pas le seul en dehors du fait que l'appli n'est pas optimisée question gestion des feuilles et des contrôles)

Private Sub List1_Click()
If List1.Text "Jaune" Then Form1.Label1.BackColor vbYellow
If List1.Text "Vert" Then Form1.Label1.BackColor vbGreen
If List1.Text "Bureau" Then Form1.Label1.BackColor &H80000001
If List1.Text "Rouge" Then Form1.Label1.BackColor vbRed
If List1.Text "Gris" Then Form1.Label1.BackColor &H80000000
If List1.Text "Clignotant" Then Form1.Timer2.Enabled True
End Sub

Tu utilises la même procédure pour heure et date alors qu'elles se trouvent respectivement sur form1 et form4. Tssss.

Bon courage, @+
Afficher les 7 commentaires

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.