Horloge - Visual Basic Research Center

~ Edito ~

12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

~ Annuaire VB ~

~ Partenaires ~

Warning: mysql_fetch_array(): supplied argument is not a valid MySQL result resource in /mnt/105/sda/5/9/docvb/functions.php on line 202
Si VB 6.0 n'est pas installé sur votre ordinateur, vous aurez peut-être besoin d'installer les Runtimes VB :

DLL VB 6.0
Les deux DLL suivantes sont, en général, également nécessaires :

VB6FR.DLL ~

MSCOMCTL.OCX
(pour NT/2000, à copier dans WINNT\SYSTEM32 - pour 95/98/XP, à copier dans WINDOWS\SYSTEM)

Le programme est constitué d'une feuille.

Elle est composée de :

1 label qui sert à l'affichage de la date et l'heure
1 timer qui met à jour l'heure à intervalles réguliers
1 menu (qui apparaît lorsque l'on clique à droite sur le label)
1 contrôle CommonDialog

Je ne m'attarderais pas sur les explications... Rien de compliqué ici, très peu de lignes de code, et quelques commentaires bien placés suffisent.
Donc, 3 points sympatiques dans ce programme :
- L'utilisation de GetSetting et SaveSetting, qui permettent d'enregistrer des informations dans la base de registre sans passer par les API. Très pratique dans le cas de petits programmes comme celui-là (parce que sinon, je ne les utilise jamais...)
- L'utilisation de la fonction API setWindowPos avec la fameuse constante HWND_TOPMOST, qui met la fenêtre au premier plan devant les autres.
- Enfin, quelques lignes de code qui permettent de déplacer une fenêtre sans barre de titre, rien de sophistiqué, mais c'est mieux de l'avoir plutôt d'y repenser à chaque fois qu'on a besoin de le programmer à nouveau!

Dans le menu, plusieurs options... la possibilité de changer la police d'affichage (en utilisant la boîte de dialogue standard), d'afficher la date ou non, ainsi que les secondes.
Je vous laisse maintenant avec le code.

frmDateTime.frm ( Afficher le code)