Discussion :

[Arkham46]

Bonjour à tous,

Je vous propose un module de classe pour mettre en place des Info-bulles plus attrayantes que celles proposées en standard.

Le résultat en image :


Limitations :
- fonctionne pour un contrôle "dessiné" (pas pour les zones de liste, contrôle Activex, ...)
- les barres de défilement ne sont pas pris en charge
- non prévu pour les sections détails d'un formulaire continu

Fonctions / Propriétés :
SetForm : Définition du formulaire parent et création du control ToolTip
Enabled : Active ou désactive le tooltip
AlwaysTip : Affichage du ToolTip même si fenêtre inactive
Balloon : Affichage du ToolTip en forme de ballon
AddControl: Ajout d'un contrôle au tooltip
RemoveControl : Retrait d'un contrôle du tooltip
RemoveAllControls : Retrait de tous les contrôles d'un tooltip
ShowControl : Force l'affichage d'un contrôle (un seul par classe à la fois)
Title :Titre du tooltip (pour tous les contrôles)
Icon : Icone du tooltip
ControlText:Texte du tooltip pour un contrôle (écriture seule)
Transparent: Transparence du tooltip (0 à 100)
BackColor : Couleur de fond
DelayInitial: Délais avant affichage en millisecondes
DelayPopup: Durée d'affichage en millisecondes
DelayReShow : Délais avant réaffichage lors du passage d'un contrôle à un autre
TextColor: Couleur du texte
MaxTipWidth : Largeur maxi du tooltip (en pixels)
Count: Nombre de contrôle dans le tooltip (lecture uniquement)
SetFont : Changement police de caractères
ResetFont : Police de caractères par défaut

Il faut copier la classe clToolTip dans votre base de données (dans un module de classe).
Etudiez le formulaire exemple pour l'utilisation.

Base exemple

[Invité]

[greg778]

Bonjour,

Super ce modèle d'infobulle, ça offre bcp de possibilité !!

Juste une chose, je constate que l'infobulle n'est pas "accrochée" à l'objet auquel elle appartient.
En effet, quand on redimensionne le formulaire, on constate que les infobulles restent toujours à la même place...



On voit que le ToolTip affiché en permanence n'est plus sur le bouton "Le ToolTip de ce bouton est affiché en permanence".
Et le ToolTip du Bouton 2 s'affiche lorsqu'on survol la zone où était le bouton 2 au chargement du formulaire...

Est-ce qu'il y a une solution pour résoudre ce problème, ou c'est perdu d'avance ??

Merci,
Greg

[lakhdar16]

Bonjour;

merci beaucoup pour ce Module, mais juste une question: qu'elle sont les modifications qu'il faut faire pour que cela marche sous windows 7 64 Bit à part "PtrSafe".

merci à vous.

[Arkham46]

Bonjour,

La base de donnée du premier message a été adaptée pour fonctionner en 64bits.

[Chtulus]

Bonjour,

Ben Philippe, tu reste sans voix

[lakhdar16]

merci à vous

[lakhdar16]

bonjour,

j'ai remarqué une chose c'est que quand on ouvre le formulaire (en cliquant) tout marche bien c'est à dire le module de Classe fonctionne parfaitement, mais quand on l'appelle à partir d'un bouton via la commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Docmd.OpenForm "Formulaire1"

le code ne s’exécute pas correctement ou ne se charge pas complètement , j'ai remarqué que la transparence des Info Bull et la couleur ne s'appliquent pas.

est ce que c'est normal?

merci à vous.

[lakhdar16]

bonsoir;

Est ce qu'il y a une solution pour que l'info bulle s'affiche correctement après appel d'un bouton?
sous Win 7 vba 7 si j'appelle le formulaire à partir d'un bouton par la commande DoCmd.OpenForm, la transparence et la couleur ne s'appliquent pas sur l'info bulle.
mais si je désigne le formulaire comme formulaire de démarrage, tout s'affiche correctement. Où est le problème?

merci pour l'aide que vous pouvez m'apporter.

[lakhdar16]

bonjour,

sous Windows XP, ce problème n'existe pas, soit que j'appelle le formulaire par un bouton soit en le désignant comme formulaire de démarrage pour l'application. peut être qu'il faut ajouter quelque chose avant d'appeler le formulaire par DoCmd.OpenForm.

merci