Ocx journées mondiales

Soyez le premier à donner votre avis sur cette source.

Vue 3 359 fois - Téléchargée 394 fois

Description

Affiche la ou les journées mondiale(s) célebrée(s)
à la date courante.
Je trouve que c' est une bonne idée.
Je la poste avec le risque d' entendre quelqu' un
me crier : C' est déjà faiiiiiiiiiiiiiiiiiiiiiit !

Et comme dit la chanson : N' oubliez jamais !

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1883
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
20 novembre 2007
2
Tout est Ok !
Rien à redire.
Merci.
Si j' ai besoin de quoi que ce soit, je sais ou te trouver !

A+
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
43
re,

>Tu n' a rien à ajouter. (...).Get_Journee est dans UC_Initialise
*exact oui, le code était en 'remarque...

>Print
*membre masqué mais existe bel et bien. pas besoin de VbCrLf puisque chaque ligne commence sur une nouvelle, mais tu peux....

>ressources
*menu Compléments > gestionnaire de complément> coche "Editeur de ressources VB6" [OK]
menu Outils > Editeur de ressources > ajouter une ressource personnalisée
tu vas chercher ton fichier texte, il te faudra ensuite lire la ressource en tableau hexa par LoadResString ou LoadResData.
sinon tu peux aussi stocker un tableau en variables...

>11 septembre
*ne mélange pas tout! j'ai juste écrit une donnée pour voir le résultat aujourd'hui...

++
Messages postés
1883
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
20 novembre 2007
2
Re-salut PCPT
J' ai revu tes remarques avec plus de précision.
Je Veux répondre à quelques unes tout en restant convaincu
qu' elles étaient toutes pertinentes.

*mettre une date par défaut, çà colle pas trop :
si je jour ne correspond à rien, soit ne rien mettre, soit justement le saint.

>>Il n' y' a pas de date par défaut.C' était juste pour l' exemple.
Les lignes doivent être carrement supprimé.
et ne conserver que : Get_Journee App.Path & "\JM.txt", Date
Si je jour ne correspond à rien, ça sera rien
D' ailleur je l' ai signalé.

*tu as oublié de lire le fichier. on est donc obligé d'ajouter ce code au form_load :

>>Tu n' a rien à ajouter.
OJM1.Get_Journee App.Path & "\JM.txt", Date
est dans UC_Initialise.

*tu peux écrire sur le UC (pas besoin de labels)

>>ça je ne savais pas.Je vais le tester.
Mais comment ?.Il n' y a pas de UC.Print.
Et surtout est-ce qu' il y' aurait moyen d' inclure VbCrlf ?

*tu fais un ocx, le fichier peut sans mal être en ressources

>>J' y ai pensé mais je ne savias pas comment le référencer.
Comment dois-je faire ?

"11/09 11 septembre : Anniversaire des jumelles américaines en vente sur E-Bay"
Le11 septembre est un triste anniversaire:oui, mais pas une fête officielle
(Journée Mondiale)
Il ne faut pas mettre tout dans le même sac !

Pour finir dans une note d' humour :
*ajouter les saints du jour.

>>Oui, pourquoi pas.Mais dans un autre UC
Vous avez vos Saints, nous avons les nôtres !!!

A++

chaibat
Messages postés
1883
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
20 novembre 2007
2
Salut PCPT,
Je n' espérais pas tant.
Toutes tes remarques sont à prendre en considération.
J' avoue que j' ai fait tout ça dans la précipitation du moment.
J' ai été tellement emporté par l' idée que j' ai oublié pas mal de chose.
Au début j' ai hésité entre lancer l' idée dans le Forum et faire un exemple.
C 'est raté pour la source !
Maintenenant que j' ai des éclaircissements,
je referais tout avec plus de patience.
J' ai tout mon temps pour ça.

Merci encore.

PS:
^^non chaibat05, il faut juste éditer projet2.vbp avec le bloc-note ..
J' ai jamais essayé ça, mais ma façon de faire marche aussi.
J' ai toujours procédé ainsi quand je veux réutiliser des feuilles dans
divers projets
Mais plusque tu le dis ...
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
43
salut,

non chaibat05, il faut juste éditer projet2.vbp avec le bloc-note et remplacer
Form=..\..\..\..\Documents and Settings\Me\Bureau\JOURNEES_MONDIALES\fExemple.frm
par
Form=fExemple.frm

bon, quelques remarques :
*ajouter les saints du jour.
*mettre une date par défaut, çà colle pas trop :
si je jour ne correspond à rien, soit ne rien mettre, soit justement le saint.
*le UC devrait être configurable (transparence, couleur, typo, image de fond, etc...)
*tu as oublié de lire le fichier. on est donc obligé d'ajouter ce code au form_load :
OJM1.Get_Journee App.Path & "\JM.txt", Date
mais c'est à l'UC lui-même de se lire.
*tu fais un ocx, le fichier peut sans mal être en ressources
*tu peux écrire sur le UC (pas besoin de labels)
*les labels ne sont pas détruits.
pour aujourd'hui par exemple j'ai ajouté cette ligne dans JM.txt :
"11/09 11 septembre : Anniversaire des jumelles américaines en vente sur E-Bay"
et je me retourve avec cette ligne, suivi des 2 du 15 octobre...
*le UC devrait tester le changement de date (jour/nuit) pour se mettre à jour automatiquement

voilà tout pour le moment, l'idée est plutôt bonne ;)
++
PCPT [AFCK]
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.