couleur dans TipText

4 réponses

DENIS

10/01/2005 à 17:36

Bonjour =E0 tous,

Voici un code qui permet affiche un TipText au survol de=20
la souris au dessus d'un ComboBox. Par d=E9faut la couleur=20
est jaune. Quelle instruction rajouter pour le chander de=20
couleur, en bleu par exemple ? Merci ;o)

Private Sub ComboBox1_MouseMove(ByVal Button As Integer,=20
ByVal Shift As Integer, ByVal X As Single, ByVal Y As=20
Single)
Dim L As Integer
On Error Resume Next
With ComboBox1
L =3D .ListIndex
.ControlTipText =3D .Text & " - " & .List(L, 1) & " - "=20
& .List(L, 2)
End With
End Sub

4 réponses

Michel Pierron

10/01/2005 à 17:48

Bonsoir DENIS;
AMHA, Panneau de configuration Windows / Affichage / Apparence / Avancé /
Info-bulle / Choisir la couleur qui te convient.
MP

"DENIS" a écrit dans le message de
news:124701c4f732$8fcfeb10$
Bonjour à tous,

Voici un code qui permet affiche un TipText au survol de
la souris au dessus d'un ComboBox. Par défaut la couleur
est jaune. Quelle instruction rajouter pour le chander de
couleur, en bleu par exemple ? Merci ;o)

Private Sub ComboBox1_MouseMove(ByVal Button As Integer,
ByVal Shift As Integer, ByVal X As Single, ByVal Y As
Single)
Dim L As Integer
On Error Resume Next
With ComboBox1
L = .ListIndex
.ControlTipText = .Text & " - " & .List(L, 1) & " - "
& .List(L, 2)
End With
End Sub

DENIS

10/01/2005 à 17:58

Dommage pour moi. J'ai pas accès au panneau de config,
l'accès est interdit et bloqué par ma société.
Je pensais pouvoir le faire en VBA et uniquement pour ce
TipText.

Denis

-----Message d'origine-----
Bonsoir DENIS;
AMHA, Panneau de configuration Windows / Affichage /
Apparence / Avancé /

Info-bulle / Choisir la couleur qui te convient.
MP

"DENIS" a écrit
dans le message de

news:124701c4f732$8fcfeb10$
Bonjour à tous,

Voici un code qui permet affiche un TipText au survol de
la souris au dessus d'un ComboBox. Par défaut la couleur
est jaune. Quelle instruction rajouter pour le chander de
couleur, en bleu par exemple ? Merci ;o)

Private Sub ComboBox1_MouseMove(ByVal Button As Integer,
ByVal Shift As Integer, ByVal X As Single, ByVal Y As
Single)
Dim L As Integer
On Error Resume Next
With ComboBox1
L = .ListIndex
.ControlTipText = .Text & " - " & .List(L, 1) & " - "
& .List(L, 2)
End With
End Sub

.

papou

10/01/2005 à 17:59

Bonjour
Je ne crois pas que cela soit paramétrable au niveau de VBA mais plutôt au
niveau de Windows dans les options d'affichage il me semble.
Cordialement
Pascal

"DENIS" a écrit dans le message de
news: 124701c4f732$8fcfeb10$
Bonjour à tous,

Voici un code qui permet affiche un TipText au survol de
la souris au dessus d'un ComboBox. Par défaut la couleur
est jaune. Quelle instruction rajouter pour le chander de
couleur, en bleu par exemple ? Merci ;o)

Private Sub ComboBox1_MouseMove(ByVal Button As Integer,
ByVal Shift As Integer, ByVal X As Single, ByVal Y As
Single)
Dim L As Integer
On Error Resume Next
With ComboBox1
L = .ListIndex
.ControlTipText = .Text & " - " & .List(L, 1) & " - "
& .List(L, 2)
End With
End Sub

Alain CROS

10/01/2005 à 19:51

Bonjour.

Private Declare Function SetSysColors& Lib "user32" _
(ByVal nChanges&, ByRef lpSysColor&, ByRef lpColorValues&)

Sub ChangeColorToolTip()
'Pour changer la couleur du texte -->remplacer COLOR_INFOBK par COLOR_INFOTEXT
Const COLOR_INFOBK& = 24&, COLOR_INFOTEXT& = 23&
SetSysColors 1&, COLOR_INFOBK, vbBlue
End Sub

Alain CROS

"DENIS" a écrit dans le message de news: 124701c4f732$8fcfeb10$
Bonjour à tous,

Voici un code qui permet affiche un TipText au survol de
la souris au dessus d'un ComboBox. Par défaut la couleur
est jaune. Quelle instruction rajouter pour le chander de
couleur, en bleu par exemple ? Merci ;o)

Private Sub ComboBox1_MouseMove(ByVal Button As Integer,
ByVal Shift As Integer, ByVal X As Single, ByVal Y As
Single)
Dim L As Integer
On Error Resume Next
With ComboBox1
L = .ListIndex
.ControlTipText = .Text & " - " & .List(L, 1) & " - "
& .List(L, 2)
End With
End Sub

couleur dans TipText

4 réponses

Veuillez sélectionner un problème