Discussion :

[blade159]

Bonsoir à toutes et tous

dans le cadre de mon travail, je dois réaliser une application en VB 2005 pour un client qui possède une charte graphique trés spécifique.

Les boutons de l'application possèdent une image de fond de couleur bleu-nuit et une Forecolor à blanc quand ils sont actifs et rouge quand ils sont désactivés. J'ai dû donc passer le FlatStyle des boutons à Flat.

Le problème est que je ne peut changer la ForeColor des boutons désactivés.

Merci de m'aider

[blade159]

j'ai pu un petit peu avancer mais j'ai un léger décalage sur le texte de mon bouton.

j'ai ajouté un propriété ForeColorDisabled

voici mon code:

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
        Dim vForeColorDisabled As Color = Color.Red
        Public Property ForeColorDisabled() As Color
            Get
                Return vForeColorDisabled
            End Get
            Set(ByVal value As Color)
                vForeColorDisabled = value
            End Set
        End Property
 
        Protected Overrides Sub OnPaint(ByVal pevent As System.Windows.Forms.PaintEventArgs)
            Dim CouleurTexte As SolidBrush
            MyBase.OnPaint(pevent)
            If Me.Enabled Then
                CouleurTexte = New SolidBrush(Me.ForeColor)
            Else
                CouleurTexte = New SolidBrush(Me.ForeColorDisabled)
            End If
 
            ' Create string to draw.
            Dim drawString As String = Me.Text
 
            ' Create font and brush.
            Dim drawFont As Font = Me.Font
 
            ' Create rectangle for drawing.
            Dim TailleString As SizeF = pevent.Graphics.MeasureString(Me.Text, Me.Font)
            Dim x As Single = (Me.Width - TailleString.Width) / 2 + 1
            Dim y As Single = (Me.Height - TailleString.Height) / 2 - 1
            Dim width As Single = TailleString.Width
            Dim height As Single = TailleString.Height
            Dim drawRect As New RectangleF(x, y, width, height)
 
            ' Draw string to screen.
            pevent.Graphics.DrawString(drawString, drawFont, CouleurTexte, drawRect)
 
        End Sub