Discussion :

[veens777]

bonjour,

j'ai créé "manuellement" un tooltip (tooltip1) dans un fenêtre (form1)
J'ai modifier la couleur de fond du tooltip 1 dans la propriété "backcolor"
je l'ai rattaché à un bouton (bouton1) en rentrant du texte dans la propriété tooltip sur tooltip1.

Le tooltip s'affiche bien lorsque je passe le curseur sur le bouton1 mais la couleur de fond reste celle par défaut...j'ai le même pb avec la propriété forecolor.

Comment se fait-il ? Les propriétés ont bien été modifiée pourtant, je ne comprends pas...

autre question sur l'apparence qui me pose pb : est-il possible d'afficher le texte du tooltype sur plusieurs lignes ?

Merci pour votre aide.
Cordialement.

[Sankasssss]

Bonsoir,

J'ai modifier la couleur de fond du tooltip 1 dans la propriété "backcolor"
je l'ai rattaché à un bouton (bouton1) en rentrant du texte dans la propriété tooltip sur tooltip1.

Le tooltip s'affiche bien lorsque je passe le curseur sur le bouton1 mais la couleur de fond reste celle par défaut...j'ai le même pb avec la propriété forecolor.

Comment se fait-il ? Les propriétés ont bien été modifiée pourtant, je ne comprends pas...

Si on regarde cette propriété sur MSDN :

Unless the ToolTip is owner-drawn, this property is ignored.

Donc ce comportement est normal.

autre question sur l'apparence qui me pose pb : est-il possible d'afficher le texte du tooltype sur plusieurs lignes ?

oui en concaténant le retour à la ligne (google ):

Code :

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

 ToolTip1.SetToolTip(MonControl, "test" & vbCrLf & "retest")

[veens777]

donc finalement on est obliger de passer par du code...dommage
avec le code décrit par MSDN ça donne ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    Private Sub ToolTip_Draw(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawToolTipEventArgs) Handles ToolTip1.Draw
        ' Draw the standard background.
        e.Graphics.FillRectangle(Brushes.LemonChiffon, e.Bounds)
        ' Draw the custom border to appear 3-dimensional.
        e.Graphics.DrawLines( _
            SystemPens.ControlLightLight, New Point() { _
            New Point(0, e.Bounds.Height - 1), _
            New Point(0, 0), _
            New Point(e.Bounds.Width - 1, 0)})
        e.Graphics.DrawLines( _
            SystemPens.ControlDarkDark, New Point() { _
            New Point(0, e.Bounds.Height - 1), _
            New Point(e.Bounds.Width - 1, e.Bounds.Height - 1), _
            New Point(e.Bounds.Width - 1, 0)})
 
        'Specify custom text formatting flags. 
        Dim sf As TextFormatFlags = TextFormatFlags.VerticalCenter Or _
                             TextFormatFlags.HorizontalCenter Or _
                             TextFormatFlags.NoFullWidthCharacterBreak
        ' Draw standard text with customized formatting options.
        e.DrawText(sf)
    End Sub

Je te remercie pour ton aide.

[Sankasssss]

De rien, ça fait plaisir de voir que tu as regardé le lien