ControlTipText et Listbox....

Signaler
Messages postés
36
Date d'inscription
mercredi 10 juillet 2002
Statut
Membre
Dernière intervention
3 septembre 2002
-
pasco05
Messages postés
13
Date d'inscription
samedi 26 juillet 2003
Statut
Membre
Dernière intervention
13 décembre 2007
-
Bonjour,

dans mon prog, j'affecte une valeur au controltiptext de ma listbox, sans problème (en débuggant la valeur est bien affectée)...

MAIS, je ne vois pas la pitite bubulle jaujaune à l'exécution, sur ma listbox... :sad)

Késako ?

Merci par avance pour toute aide... ;)

C'était vraiment très intéressant... :big) MythoMAN dans une autre vie ! :clown)

5 réponses

Messages postés
100
Date d'inscription
mercredi 29 mai 2002
Statut
Membre
Dernière intervention
27 juillet 2004

Salut...

ControlTipText, qu'est-ce que c'est?

Plutôt "ToolTipText", non?

~~~ NuNu ~~~
Messages postés
36
Date d'inscription
mercredi 10 juillet 2002
Statut
Membre
Dernière intervention
3 septembre 2002

Euh, en VBA, ControlTipText est associé à quasiment tous les objets....
dont Listbox...

C'était vraiment très intéressant... :big) MythoMAN dans une autre vie ! :clown)
Messages postés
100
Date d'inscription
mercredi 29 mai 2002
Statut
Membre
Dernière intervention
27 juillet 2004

Autant pour moi, je n'ai pas vu "VBA".

J'ai fait essai Ds vba excel, avec un UserForm sur lequel un ListBox:

Private Sub UserForm_Activate()
ListBox1.ControlTipText = "toto"
End Sub

A l'éxécution je vois bien "toto" ds la bubulle.

Là, je ne t'aide pas bcp....

~~~ NuNu ~~~
Messages postés
36
Date d'inscription
mercredi 10 juillet 2002
Statut
Membre
Dernière intervention
3 septembre 2002

Ben en effet ;)

En VBA sous Access, rien n'y fait pour l'instant, çà affecte bien la valeur au controltiptext de la listbox, mais elle s'affiche pas à l'exécution la saleté :sad)

:-p Ja rien comprite à ce qui se passe !!! :-p

C'était vraiment très intéressant... :big) MythoMAN dans une autre vie ! :clown)
Messages postés
13
Date d'inscription
samedi 26 juillet 2003
Statut
Membre
Dernière intervention
13 décembre 2007

Option Compare Database
Dim MemoMessage As String
Private Sub List0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
AffCtrlTipTxt (Me.List0.Column(1))





End Sub





Function AffCtrlTipTxt(ByVal Message As String)
If Message <> MemoMessage Then
List0.ControlTipText = Message
MemoMessage = Message
End If
End Function

essai ca

Pasco