Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
5 nov. 2004 à 13:15
MaxNazgul
Messages postés4Date d'inscriptionlundi 14 mai 2007StatutMembreDernière intervention18 juin 2007
-
18 juin 2007 à 11:09
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
MaxNazgul
Messages postés4Date d'inscriptionlundi 14 mai 2007StatutMembreDernière intervention18 juin 2007 18 juin 2007 à 11:09
c'est marrant ^^ merci
diablamanshadow
Messages postés419Date d'inscriptionlundi 30 août 2004StatutMembreDernière intervention28 janvier 2008 13 déc. 2005 à 12:16
je crois avoir trouver comment faire l'idee d'overflow est pas mauvaise maisun ptit truc a ajouter ^^ en gros tu met ta form en splash et tu la fou sur celle de windows tu recopie exactement celle de windows en petit tu vois donc une frm qui fait juste la taille de l'horloge windows ou tu met l'heure donc tu copie exactement celle de windows ^^ mais alors pk ton code j'y vient ^^ en gros une fois que ta t copier et mis sur la vraie horloge tu met que le tool tiptext du label qui affiche l'heure (comme windows) vienne ton chtit texte et ca passeras comme une "fausse" horloge windows avec u new toltiptext qui met ton petit message alors pour mettre a jour ton label qui affoche l'heure bah tu met un timer a intervalle 1000 (chaque seconde) qui dit un truc du genre lbl.caption = time qui remet a jour ton heure donc en gros tu fais une frm avec 1 timer et un label le label contien la vraie heure et le timer remet se label a jourpuis tu reconfigurer avec ce meme timer le tooltiptext de ce label et ses nikel ^^ comme sa tu peux le gfoutre no prob dans le systray ;-)
diablaman@hotmail.com
cs_wolfcyber
Messages postés78Date d'inscriptiondimanche 22 février 2004StatutMembreDernière intervention24 juillet 2005 8 nov. 2004 à 19:30
C marrant ;-)
Bonne idée !
cs_wolfcyber
Messages postés78Date d'inscriptiondimanche 22 février 2004StatutMembreDernière intervention24 juillet 2005 8 nov. 2004 à 19:30
C marrant ;-)
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 8 nov. 2004 à 09:09
tu dois pouvoir choper le handle de la barre de taches, et jouer avec un SetParent pour y coller ton controle.....
cboulas
Messages postés2641Date d'inscriptionmercredi 2 juin 2004StatutMembreDernière intervention 8 janvier 201416 7 nov. 2004 à 15:51
Bon bjà au final, la source ne bougera plus, car j'ai chercher comment mettre du texte dans le systray et ce n'est pas possible à moins de posé x icones et là ça fait crade. j'ai chercher également à mettre à jour la base de registre dont une clé gère l'affichage de l'horloge mais il faut redémarrer le pc pour qu'il prenne en compte le nouveau texte, donc pas pratique de relancer toute les minutes. J'ai également chercher à modifier le texte de l'horloge en récupérant son Handle mais l'horloge réactualise trop rapidement pour prendre en charge et afficher le texte. J'ai même chercher à afficher du texte dans le barre de tache mais y'a pas moyen, donc la source ne risque plsu de trop bouger, je cherche encore une dernière méthode mais ce n'est pas sûr...
cboulas
Messages postés2641Date d'inscriptionmercredi 2 juin 2004StatutMembreDernière intervention 8 janvier 201416 6 nov. 2004 à 19:48
lol, ce qui m'amuse c'est que je ne m'attendais pas à autant de succès de la pars de cette petite horloge.
Merci à tous
trcdl
Messages postés78Date d'inscriptionjeudi 25 septembre 2003StatutMembreDernière intervention25 juin 2007 6 nov. 2004 à 18:22
sympathique
bonnne idee
Saros
Messages postés921Date d'inscriptionvendredi 20 décembre 2002StatutMembreDernière intervention23 septembre 2010 6 nov. 2004 à 14:39
C'est clair :) original...
9/10 (le code est pas très clair :S)
MadM@tt
Messages postés2167Date d'inscriptionmardi 11 novembre 2003StatutMembreDernière intervention16 juillet 20091 6 nov. 2004 à 12:37
Méga idée, ça fait beaucoup plus proche de l'utilisateur je trouve
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 5 nov. 2004 à 19:58
pas faux, jack, j'y pense jamais a celles-ci...
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 5 nov. 2004 à 19:34
lol
Pour ma part, j'aurai appris une nouvelle instruction : "Choose", je ne savais même pas que ça existait !
Pour les heures, minutes et secondes, il y a aussi les instructions Hour(Now), Minute(Now) et Second(Now)
cboulas
Messages postés2641Date d'inscriptionmercredi 2 juin 2004StatutMembreDernière intervention 8 janvier 201416 5 nov. 2004 à 19:24
Ayé j'ai fait toutes les dernières modifs et ajout, merci Renfield pour le bout de code qui m'a permis d'apprendre +. Bref amusez vous bien avec les paramètres disponibles dans l'icône du systray.
cboulas
Messages postés2641Date d'inscriptionmercredi 2 juin 2004StatutMembreDernière intervention 8 janvier 201416 5 nov. 2004 à 16:48
ovRflow> à cause de la taille du texte qui peux varié d'un minimum : 4 Caractère ("Midi") à par exemple : "Quinze heure moins le quart", mais c'est une bonne idée.
ovRflow
Messages postés42Date d'inscriptionvendredi 2 août 2002StatutMembreDernière intervention 5 novembre 2004 5 nov. 2004 à 16:42
Pourquoi tu met pas tout simplement la form tjrs en premier plan é tu la place en ba a droite, c pas compliqué! Et comme ca tu masques l'horloge de windows avec la tienne!
Bon enfin c'était juste une ptite idée...
cboulas
Messages postés2641Date d'inscriptionmercredi 2 juin 2004StatutMembreDernière intervention 8 janvier 201416 5 nov. 2004 à 15:35
J'y ai penser dans l'update que je mettrais on pourra règler les heure de déjeuner, diner, coucher, etc...
Mais c'est vrai tu as raison, linux le dit.
Pratique pour les fin de cours
cs_Blanc
Messages postés181Date d'inscriptiondimanche 6 juillet 2003StatutMembreDernière intervention16 octobre 2006 5 nov. 2004 à 13:46
C'est vachement cool d'avoir eu l'dée! Mais si je me trompe pas, linux dis aussi par exemple que c'est bientôt le week-end... Mais c'est pas mal!!!
Blanc
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 5 nov. 2004 à 13:15
ok pour le principe.
le code n'est pas top, pourtant...
les variables ne sont pas déclarées...
tu calcules inutilement des tas de fois la valeur
Val(Format(Now, "Nn"))
voici ce que cela aurait pu être :
Private Sub Timer1_Timer()
Dim H As Integer, M As Integer
H = DatePart("h", Now)
M = DatePart("n", Now)
Dim Heure As String, Min As String
Select Case M
Case 53 To 59
H = H + 1
Case 8 To 22
Min = " et quart"
Case 23 To 37
Min = " et demi"
Case 38 To 52
H = H + 1
Min = " moins le quart"
End Select
18 juin 2007 à 11:09
13 déc. 2005 à 12:16
diablaman@hotmail.com
8 nov. 2004 à 19:30
Bonne idée !
8 nov. 2004 à 19:30
8 nov. 2004 à 09:09
7 nov. 2004 à 15:51
6 nov. 2004 à 19:48
Merci à tous
6 nov. 2004 à 18:22
bonnne idee
6 nov. 2004 à 14:39
9/10 (le code est pas très clair :S)
6 nov. 2004 à 12:37
5 nov. 2004 à 19:58
5 nov. 2004 à 19:34
Pour ma part, j'aurai appris une nouvelle instruction : "Choose", je ne savais même pas que ça existait !
Pour les heures, minutes et secondes, il y a aussi les instructions Hour(Now), Minute(Now) et Second(Now)
5 nov. 2004 à 19:24
5 nov. 2004 à 16:48
5 nov. 2004 à 16:42
Bon enfin c'était juste une ptite idée...
5 nov. 2004 à 15:35
Mais c'est vrai tu as raison, linux le dit.
Pratique pour les fin de cours
5 nov. 2004 à 13:46
Blanc
5 nov. 2004 à 13:15
le code n'est pas top, pourtant...
les variables ne sont pas déclarées...
tu calcules inutilement des tas de fois la valeur
Val(Format(Now, "Nn"))
voici ce que cela aurait pu être :
Private Sub Timer1_Timer()
Dim H As Integer, M As Integer
H = DatePart("h", Now)
M = DatePart("n", Now)
Dim Heure As String, Min As String
Select Case M
Case 53 To 59
H = H + 1
Case 8 To 22
Min = " et quart"
Case 23 To 37
Min = " et demi"
Case 38 To 52
H = H + 1
Min = " moins le quart"
End Select
Heure = Choose(H + 1, "Minuit", _
"Une", _
"Deux", _
"Trois", _
"Quatre", _
"Cinq", _
"Six", _
"Sept", _
"Huit", _
"Neuf", _
"Dix", _
"Onze", _
"Midi", _
"Treize", _
"Quatorze", _
"Quinze", _
"Seize", _
"Dix-sept", _
"Dix-Huit", _
"Dix-Neuf", _
"Vingt", _
"Vingt et une", _
"Vingt deux", _
"Vingt trois")
If H 0 Or H 12 Then
Me.Caption = Heure & Min
Else
Me.Caption = Heure & " Heure" & Min
End If
End Sub
de plus, tu aurais pu tirer avantage d'un Select Case