Discussion :

[s.n.a.f.u]

Bonsoir,

J'ai un petit problème avec une TextBox à laquelle je veux ajouter des fonctionnalités. Pour cela je développe mon propre composant.
Pour le début, je souhaite juste lui ajouter une propriété AnoActive qui colore le controle en anomalie.
Mon problème, c'est que je voudrais lui fixer une couleur "normale" au design sous VS. En ano, elle devient bleue, mais elle ne revient pas sur la couleur fixée lorsqu'elle n'est plus en ano. Le coeur du problème, c'est que je n'arrive pas à stocker cette couleur par défaut quand le contrôle se charge.

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
 
Public Class jmTxtBox
    Inherits TextBox
 
    Private m_AnoActive As Boolean = False
 
    Public Property AnoActive() As Boolean
        Get
            Return m_AnoActive
        End Get
        Set(ByVal value As Boolean)
            m_AnoActive = value
 
            If m_AnoActive Then
                BackColor = Drawing.Color.Cyan
            Else
                BackColor = Drawing.Color.White
            End If
        End Set
    End Property
 
End Class

Comme vous le voyez, je force à blanc lorsqu'elle revient "normale", mais c'est pas tout à fait ce que je souhaite...

[Zyth]

Tu devrais te créer une variable globale de type color et l'assigner à la valeur par défaut dans le constructeur de ton contrôle.

Code :

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

1
2
3
4
Private CouleurParDefaut As Drawing.Color
Public Sub New()
       CouleurParDefaut = Me.BackColor
End Sub

[s.n.a.f.u]

Tu devrais te créer une variable globale de type color et l'assigner à la valeur par défaut dans le constructeur de ton contrôle.

Code :

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

1
2
3
4
Private CouleurParDefaut As Drawing.Color
Public Sub New()
       CouleurParDefaut = Me.BackColor
End Sub

Et oui, j'y ai pensé, et même testé (sûrement pas bien).

Le problème est quand le faire ? J'ai essayé sur un événement Load mais je ne sais pas si c'est le meilleur. Quoi qu'il en soit, j'attrapais bien l'événement pour fixer ma variable privée de couleur. Sauf que malheureusement, cette backcolor ne contenait pas celle que j'avais spécifié. Je me retrouvais invariablement avec une backcolor grise ou transparent, je ne me rapelle plus. Est-ce qu'elle est fixée après le Load ?

[Zyth]

Par défaut, la valeur de BackColor du Textbox va prendre la couleur "Window". Donc, que tu changes sa propriété BackColor en design ou en run time, sa valeur par défaut sera toujours "Window". Il faudrait que tu assignes plutôt ta variable de type couleur dans la propriété BackColor en l'overridant dans ton contrôle.

Code :

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

1
2
3
4
5
6
7
8
9
    Public Overrides Property BackColor() As System.Drawing.Color
        Get
            Return MyBase.BackColor
        End Get
        Set(ByVal value As System.Drawing.Color)
            MyBase.BackColor = value
            CouleurParDefaut = value
        End Set
    End Property

[s.n.a.f.u]

Je vais essayer ça ce soir.
Merci.