Controltiptext

[gds35]

Mes AMIS du forum bonjour ,

j'ai un usf dans lequel il y a une dizaine de textbox et 3 boutons de commande (representé par des images) j'ai voulu creer pour chaque bouton un controltiptext , pour se faire dans la fenetre propriété j'ai entré le texte ( ex Validation) , il y a t'il une solution m pour mettre en forme la police , car il est en rouge et non en gras.
ou alors comment ecrire le code je ne trouve pas mon bonheur sur le forum !!!

Merci de votre aide. GDS35

 

[Pierrot93]

Re : Controltiptext

Bonjour,

A priori, l'apparence de l'info bulle des contrôles est dépendante des paramètres windows... tu peux les modifier mais ce sera applicable à toutes tes aplications... voir dans les propriétés de l'affichage => apparence => avancé, tu choisis l'élément, ce sous windows XP...

bon après midi
@+

 

[YANN-56]

Re : Controltiptext

Bonjour Gds, Pierrot, et à ceux qui passeront par ici,

Etant presbyte; je suis souvent passé par un USF comme te montrera l'exemple joint.

Ce n'est qu'une approche, car il faudra modifier la Caption du Label1 de l'USF1
selon le Bouton survolé par le curseur. (A noter que l'on peut ajouter autres Labels)
Voire mettre dans un groupe ces Boutons s'il y en a une caisse...

Quant à la position de ce pseudo "ControlTipText", tu pourras l'adapter à tes besoins

A voir, et tu me dis...

Amicalement

Yann

 

[sousou]

Re : Controltiptext

Bonjour à tous
En m'inspirant de l'idée de Yann
Un code ci-dessous à mettre dans le userform,
Permettant de fabriquer au faire à mesure un label servant de tiptext
Dans ce cas tous les choix de formatage possible
Un seul module pour tous les controls
une idée pas plus...

Dim n
Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Call newtiptext(CommandButton1, "Nonjour")
End Sub
Sub newtiptext(contr, texte)
Set n = contr.Parent.Controls.Add("forms.label.1", "momtiptext", True)
n.Caption = texte
n.Left = contr.Left + contr.Width
n.Top = contr.Top + contr.Height
End Sub
Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
UserForm2.Controls.Remove (n.Name)
End Sub

 

[YANN-56]

Re : Controltiptext

Bonjour sousou, et Re à tous,

Je n'ai pas testé ton code, mais s'il marche: Il vaut son pesant de sous.
(Ce dont je ne doute)

Le p'tit Classeur complété joint va avoir une allure d'une usine à gaz!
Avec cependant l'intérêt de ne pas avoir à se farcir l'écriture à chaque bouton.

Amicalement, et au plaisir.

Yann

 

[gds35]

Re : Controltiptext

mes amis du forum bonjour ,

merci pour l'aide apportée , je teste sur un p'tit prg et vous tiens au courant.

Bon WE ensoleillé.

GDS35

 

[Staple1600]

Re : Controltiptext

Bonjour à tous

Pour ceux qui ont du temps devant pour adapter à Excel ce qui suit
ci-dessous:

Voici ce qui peut être fait avec Access et les API
http://www.lebans.com/DownloadFiles/A2kTooltipver34.zip

PS: bravo aux auteurs de ce bel ouvrage
Stephen Lebans
Brad Martinez

edition : re YANN-56

 

[YANN-56]

Re : Controltiptext

Bonjour gds35, et à tous,

Entre temps, j'ai apporté quelques modifs.

Regarde si cela va dans le sens de ce que tu cherches.
(Si Oui, il y a plein d'autres possibilités)

Amicalement.

Yann