begin process at 2012 02 13 12:14:03
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Divers

 > CALENDRIER TRANSPARENT SUR LE BUREAU WINDOWS

CALENDRIER TRANSPARENT SUR LE BUREAU WINDOWS


 Information sur la source

Note :
9,57 / 10 - par 7 personnes
9,57 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Niveau :Débutant Date de création :11/01/2005 Date de mise à jour :20/02/2005 19:03:58 Vu / téléchargé :24 179 / 2 050
Auteur : lucky2222

Ecrire un message privé
Commentaire sur cette source (20)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Le Calendrier est dessiné dans une picturebox, puis découpé pour rendre transparent le contour et voir le reste du bureau
Pour réaliser cette source, je suis partie d'un source déjà sur le site qui découpe une photo que vous trouverai a cette adresse
http://www.vbfrance.com/code.aspx?ID=5221
de cette source, je n'ai pas modifier grand chose, juste supprimé la photo et ajouté deux module afin de dessiner le calendrier

le calendrier se dessine a la date du jour machine !


si vous restez sur un jour, un message apparaît !


 Conclusion

prévision de modification, je vais voir pour ajouter des horaires de travail et mettre des infos du jours (RDV, évènements, anniversaire etc !)



 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

11 janvier 2005 10:12:16 :
je n'avais pas mis la source
11 janvier 2005 14:23:13 :
je viens d'ajouter un maillage fin en fond de grille , ce qui permet d'avoir un léger transparent, mais en contre partie, augmente considérablement le temps de chargement! a defaut de trouvé une autre solution j'ai ajouté aussi un module pour la fete du jour que j'avais créé dans un calendrier precedant et en double cjic sur 1 jours, on obtient des infos et la possibilité de fermer le prog
11 janvier 2005 14:26:49 :
capture redimentionnée
12 janvier 2005 20:56:46 :
debut des correctifs des declaration, plus possibilité de choisir l'aspect au demarage (opaque, transparent, ovale)
13 janvier 2005 18:10:23 :
correction des declarations des variable fait plus un choix de la forme au demarage est ajouté! (rectangulaire transparent, trectangulaire opaque, ovale, sans cadrillage! a voir
28 janvier 2005 12:36:43 :
grand nettoyage de la source plus ajout d'icone qui n'on pas encore leur fonction atribuées, plus tooltiptex multilignes lors du survol du calendar! attention, cette fonction peut créer un plantage! pour la supprimer, il suffit de vair source de form1.load
29 janvier 2005 00:18:58 :
infos du mois a venir en partant de la date selectionnée! plus ajout de la possibilité de choisir la date de depart plus insersion d'icone dan le calendrier decoupé
29 janvier 2005 01:21:26 :
quelques petite modif plus ajout du numero de semaine lorsqu'on affiche les infos du mois a venir en cliquand sur l'icone
19 février 2005 12:06:01 :
dans cette version, l'impression est possible sous deux format: soit ce que j'appelle mural, mois par mois sue une page! tres utile pour acroché dans la cuisine! soit de poche, toute l'année tient sur une page afin d'avoir le calendrier dans la poche! version murale peut prendre en compte le anniversaire, les rendez vous! etc! attention je n'ai pas encore fais la partie d'enregistrement des information! donc pour le moment, pour enregistrer des information, vous devez aller ecrire directement les infos dans le fichier dat! attention aux nombres de "," et ";" dans les lignes! ce qui engendre une erreur programme! le module enregistrement est prevu pour la prochaine mise a jour ' pitié, ne criez pas tout de suite!
20 février 2005 19:03:59 :
complement du Zip avec le fichier manquant je ne sais pas trop ce qui se passe, mais la mise a jour ne passe pas correctement! alors ce message apparait c'est que la mise a jour est OK

 Sources du même auteur

Source avec Zip RECHERCHE DES FICHIERS DANS REP. ET SOUS REP, INSCRIRE DANS ...
DÉFILEMENT DE TEXTE DE BAS EN HAUT DANS PICTURE BOX
Source avec Zip FETES DU JOUR ET JOUR FÉRIÉS DANS UNE DLL
Source avec Zip Source avec une capture SHÉMAS ÉLECTRIQUES ANIMÉS
Source avec Zip Source avec une capture TÉLÉRUPTEUR (ÉLÉCTRIQUE)
Toutes les sources de lucky2222

 Sources de la même categorie

Source avec Zip TEXTBOX EN NUMÉRIQUE par 320C
Source avec Zip DÉCIMAL TO HEXDECIMAL par loulou27200
SOUS-TITRES : INCRÉMENTATION DE TOUTES LES CHAÎNES DE CARACT... par ALMIRA
Source avec Zip Source avec une capture EVALUER UN NOMBRE D'OBJETS AVEC UNE BALANCE ET DEUX ÉCHANTIL... par lexsty
Source avec Zip Source avec une capture PETIT LOGICIEL DE DEVIS SANS BD par lololilizozo
Toutes les sources de la catégorie Divers

Commentaires et avis

Commentaire de DARKSIDIOUS le 11/01/2005 10:48:04 administrateur CS

Utilise SetWindowLayeredAttributs pour définir une opacité de la feuille (par contre, ca ne marchera qu'à partir de Windows XP !)

DarK Sidious

Commentaire de lucky2222 le 11/01/2005 13:12:09

en utilisant SetWindowLayeredAttributs, le taux d'opacité s'effectura sur toute la forme? non?
ce que je voudrai faire, c'est de faire un degradé partant du bleu opaque vers un bleu transparent dans les cases
et la, SetWindowLayeredAttributs pourrai etre utilisé?
ne connaissant pas cette fonction,
puis je définir des games de bleu plus ou moins opaque?

Commentaire de DARKSIDIOUS le 11/01/2005 17:21:36 administrateur CS

Ah non, en effet, elle te permettra pas de faire cà !

DarK Sidious

Commentaire de fg85 le 11/01/2005 18:40:04

Il ne faut pas être chipotteur sur le design ;-)

--------------------
http://fg.logiciel.free.fr

Commentaire de JoePatent le 11/01/2005 21:33:29

Je ne peux executer ton projet.

J'obtiens l'erreur suivante :

Subscript out of range.

       PosDx = Split("600;1100;1600;2100;2600;3100;3600", ";")(b - 1)      'on prend la distance du bord droit

Commentaire de lucky2222 le 11/01/2005 22:30:32

pour ton erreur "Subscript out of range"
met 1 point d'arret juste avant la ligne, et verifie que "b" a bien une valeur comprise entre 1 et 7
si oui, je ne comprend pas pourquoi, recherche pourquoi il n'a pas pris la valeur, si tu ne trouve pas, retelecharge le zip!
j'ai fais un essai en changant la resolution de l'afichage, ca ne change rien si ce n'est qu'on ne vois plus rien , mais le prog tourne!
a cette endroit, PosDx correspond a la position de la colone ou il doit ecrire! si il ne prend pas la valeur, verifie qui prend en compte le select case juste avant! il se peux que ce soit une question de minuscule
dans c'est cas la, remplace la ligne avant le sectc case
lejour = Format(LaDate, "ddd")
par
lejour = Lcase(Format(LaDate, "ddd"))
sinon je ne sais pas! tiens moi au courrant stp!

Commentaire de lucky2222 le 11/01/2005 23:15:12

pour reganer du temps au chargement, supprimer les lignes
  
'tracage d'un petit grillage de fond
    For a = Haut To bas Step 30
        For c = Dx To Gx Step 30
            Form1.Picture1.Circle (c, a), (2.7), RGB(180, 180, 250)
        Next c
    Next a

qui se trouve dans le module "essaiTableau" en debut de function

Commentaire de JoePatent le 12/01/2005 05:19:28

Plusieurs critique.

b comme d'autre variable n'est pas déclaré.  Il n'est donc pas préinitialisé a zéro mais a null (variant).

Met OPTION EXPLICIT au debut de chaque form/module.

b est selon la valeur des 3 premiers caractère du nom de jour...  Pourquoi ?  Moi je suis en english united states...  utilise les correspondance direct de 1 à offert par le systeme.

Au niveau de la clareté du code (indentation, decoupage en fonction de taille plus réduite, etc) du travaille a faire.

:-)

Commentaire de lucky2222 le 12/01/2005 10:58:23

bonnes critiques!

quel est l'interet de mettre OPTION EXPLICIT au debut de chaque form/module? ca aporte quoi?

pour b, j'ai cherché dans le peu de MSDN en ma possetion, je n'ai pas trouvé comment mettre la corespondance de jour de la semaine! (signalé dans les commentaire du code! si quelqu'un a le code je suis prenneur

et pour la questino francais english, essais de mettre = format(ladate, "jjj") au lieu de format(ladate,"ddd")
je ne sais pas si ca resoudra le probleme, moi avec "jjj" mon pc n'en voilait pas! sinon il dois surement y avoir possibilité de mettre le format en francais, mais je ne connais pas! si quelqu'un connait, la aussi je suis prenneur!

je travaille sur le code pour mettre tout ca a jour!

Commentaire de fkx le 12/01/2005 12:38:28

OPTION EXPLICIT sert à dire à VB "Je veux que toutes les variables soient déclarées. Si une variable n'est pas déclarée, fais-moi une p*** d'erreur à la compilation !"

(En pratique, VB affichera un MsgBox disant : "Erreur de compilation : Variable non définie", ce qui est moins vulaire)

Par contre, ça n'empêche pas d'écrire :

Dim toto   ' (variable de type Variant non explicite)

Ce qui, à mon humble avis, est dommage...

Commentaire de finelame le 14/01/2005 16:18:31

C'est possible d'avoir les numéro de semaine en plus avec ce petit calendrier ?

Commentaire de JoePatent le 14/01/2005 18:20:14

Félicitation pour les améliorations apportées.

Quelques petites remarques...

if....elseif....endif... peut avantageusement se remplacer par des Select...case....endselect.  Plus facile a code et a lire

Dim a, b, c, d, e, f, g, h, i, j, k, l, m, n, p As Integer
Toutes les variables seront déclarées VARIANT excepté 'p' qui sera un integer.  Ceci est propre a vb et moins.

lemois = Format(LaDate, "mmmm").  Encore une fois, les regional settings de windows peuvent différer d'une machine a l'autre.  Il est préférable d'utiliser les # mois [1..12] plutot que les noms complet.

Le formulaire est plus grand que le calendrier affiché a l'écran, peut-on sans probleme en réduire la hauteur.

Commentaire de lucky2222 le 15/01/2005 00:25:41

merci pour toutes ces informations que je vais noter dans un coin afin de ne pas refaire les memes erreurs!
alors maintenant, je vais travailler sur la remise au propre ce cette source qui est, on peut le dire un brouillon! avant d'y ajouter de nouvelles fonctions comme des info du jour selectionné qui s'afirerons en dessous du calendrier qund on cliquera sur une date!

pour ce qui est de la taille du formulaire, tu parle bien de la taille de la form au lancement du programme? si oui, je pense que oui, comme je viens de le dire, c'est un brouillon que je vais remettre au propre, donc je vais voir pour la reduire au maxi!
pour le moment, j'ai du mal a me faire aux declarations des valeur!
Form1.Picture1.ScaleMode = (millimeters, pouces, pitch etc!) c'est pour cela que j'ai fais une function zonnage avec des valeurs differentes de celles du tracage!

j'en profite aussi pour dire a finelame qui oui c'est possible de mettre le numero de semaine! et c'est prevu d'etre dans le prog! mais si tu en as besoin  voici a quoi ca doit ressembler:

NumeroDeSemaine =  Format(LaDate, "ww")
c'est une solution pour trouver

la je vais reprendre le boulo donc les modif se ferons peut etre attendre mais elles viendrons un jour!

Commentaire de ssauvage le 17/01/2005 14:27:17

très bonne idée !
j'attends la version prenant en compte des rendez-vous ...

Commentaire de arnohoho le 26/01/2005 20:12:55

j'ai pas l'ocx AnimatedGifContolX quelqu'un c'est ou je peux me la procurrer
merci

Commentaire de arnohoho le 26/01/2005 20:15:37

j'ai rien dis dèsolé

le prog est super c'est trop bien merci pour cette souce

a+

Commentaire de jg92 le 31/01/2005 19:14:47

Bonjour pas trouver comment utiliser ce script ?

Commentaire de Apachefr le 19/02/2005 18:52:40

Je trouve ce programme assez bien (d'après la capture et les commentaires), mais je ne peut pas le tester car il manque un fichier dans le zip : modulechargementdonnéesexternes.bas

Commentaire de lucky2222 le 20/02/2005 18:01:17

effectivement, un oubli de ma part!
voila, lmodulechargementdonnéesexternes.bas a ete ajouté au zip

merci de me tenir au courrant de toutes annomalies constatées afin d'afiner ce programme

et si vous pensez ajouter des options supplementaires n'esitez pas a me communiquer toutes idees

pour jp92,  essais le dernier zip! (mais as tu vb6 sur ton pc?) si tu n'arrives toujours pas, fais signe, on trouveras le probleme

Commentaire de m2rtech le 22/09/2008 15:43:19

Bonjour,
Juste pour info pour ceux qui relise les vieux post
la déclaration comme ce ci n'est pas correct.

Dim a, b, c, d, e, f, g, h, i, j, k, l, m, n, p As Integer

seul p sera un entier

il faut faire :
Dim a as integer, b as integer, c as ingeter etc.


 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy Tab (GT-P1000) Tablet PC
Entre 699€ et 699€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,902 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)