CustomTextBox avec borderColor

Version imprimable

Bonjour,

Toujours pour m'exercer dans mon apprentissage sur les classes, je me suis donné comme exercice la création d'un textbox personnalisé avec une bordure lorsque le contrôle prend le focus.

J'ia donc besoin de l'event OnGotFocus pour déclencher l'événement.
Mais pour dessiner le rectangle correspondant à la bordure, je n'ai pas trouvé d'autre moyen que d'utiliser l'event OnPaint.
Le pb est d'appeler le OnPaint depuis l'event OnGotFocus.

Voici le code :

Code:

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Imports System.ComponentModel
 
Public Class CustomTextBox
    Inherits System.Windows.Forms.TextBox
    Private _GotFocus As Boolean
    Private _BorderColor As Color = Color.Red
    Private _BorderWidth As SByte = 1
 
 
    <Browsable(True), Category("Apparence")> _
    Public Property BorderColor() As Color
        Get
            Return _BorderColor
        End Get
        Set(ByVal value As Color)
            _BorderColor = value
        End Set
    End Property
 
    <Browsable(True), Category("Apparence")> _
    Public Property BorderWidth() As SByte
        Get
            Return _BorderWidth
        End Get
        Set(ByVal value As SByte)
            _BorderWidth = value
        End Set
    End Property
 
 
 
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
        MyBase.BorderStyle = Windows.Forms.BorderStyle.FixedSingle
        If _GotFocus Then
            Dim mypen As Pen
            mypen = New Pen(_BorderColor, _BorderWidth)
            e.Graphics.DrawRectangle(mypen, _BorderWidth, _BorderWidth, Me.Width - 2 * _BorderWidth, Me.Height - 2 * _BorderWidth)
        End If
    End Sub
 
    Protected Overrides Sub OnGotFocus(ByVal e As System.EventArgs)
        MyBase.OnGotFocus(e)
        _GotFocus = True
        '... ici : comment appeler OnPaint ???
    End Sub
 
    Protected Overrides Sub OnLostFocus(ByVal e As System.EventArgs)
        MyBase.OnLostFocus(e)
        _GotFocus = False
    End Sub
End Class

D'abord : La "philosophie" est-elle la bonne ?

Si oui, comment appeler la procédure OnPaint depuis OnGotFocus.

J'espère que cet exemple est aussi simple que je l'imagine, sinon merci de me le dire, je passerais à un exercice plus facile !!

09/11/2013, 17h21
hacker59

bonjour, as-tu essayer ceci :

Code:

MyBase.OnPaint(e)
09/11/2013, 17h22
noftal

ça ne peut pas marcher : le e de GotFocus est de type EventArgs tandis que celui de OnPaint est de type PaintEventArgs
09/11/2013, 17h37
hacker59

ok, essaye ceci :

Code:

Me.OnPaint
09/11/2013, 18h10
Sankasssss

Bonsoir,

appel Me.Invalidate() pour repeindre le composant.

http://msdn.microsoft.com/fr-fr/libr...(v=vs.90).aspx

Citation:

Envoyé par Sankasssss

Bonsoir,

appel Me.Invalidate() pour repeindre le composant.

à quel endroit ?

Citation:

ok, essaye ceci :

Code:

Me.OnPaint

Marche pas, il faut un argument de type PaintEventArgs

...

De toute façon, j'ai fait un test : la procédure OnPaint n'est jamais lue. Donc avant de savoir comment passer de OnGotFocus à OnPaint, il faudrait déjà comprendre comment aller dans OnPaint. Le code suivant, qui aurait pour effet de tracer une bordure rouge, indépendamment de tout événement, ne marche donc pas :

Code:

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
39
40
41
Imports System.ComponentModel
 
Public Class CustomTextBox
    Inherits System.Windows.Forms.TextBox
    Private _GotFocus As Boolean
    Private _BorderColor As Color = Color.Red
    Private _BorderWidth As SByte = 3
 
 
    <Browsable(True), Category("Apparence")> _
    Public Property BorderColor() As Color
        Get
            Return _BorderColor
        End Get
        Set(ByVal value As Color)
            _BorderColor = value
            Me.Invalidate()
        End Set
    End Property
 
    <Browsable(True), Category("Apparence")> _
    Public Property BorderWidth() As SByte
        Get
            Return _BorderWidth
        End Get
        Set(ByVal value As SByte)
            _BorderWidth = value
            Me.Invalidate()
        End Set
    End Property
 
 
 
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
 
        MyBase.BorderStyle = Windows.Forms.BorderStyle.FixedSingle
        Dim mypen As Pen
        mypen = New Pen(_BorderColor, _BorderWidth)
        e.Graphics.DrawRectangle(mypen, e.ClipRectangle)
    End Sub
End Class

Bonsoir,

Après pas mal de recherches sur internet, j'ai trouvé un article que j'ai fini par parvenir à adapter à mon cas (simplifié) :
Code:

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 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 Imports System Imports System.Drawing Imports System.Runtime.InteropServices Imports System.Windows.Forms Imports System.ComponentModel Public Class TextBoxWithBorder Inherits System.Windows.Forms.TextBox Private _couleur As Color = Color.Red Private Const WM_PAINT As Integer = 15 Declare Auto Function GetWindowDC Lib "user32.dll" Alias "GetWindowDC" (ByVal hWnd As IntPtr) As IntPtr Public Property BorderColor() As Color Get Return _couleur End Get Set(ByVal Value As Color) Me._couleur = Value Me.Invalidate() End Set End Property Protected Overloads Overrides Sub WndProc(ByRef m As Message) Select Case m.Msg Case WM_PAINT MyBase.WndProc(m) OnPaint() Case Else MyBase.WndProc(m) End Select End Sub Protected Overloads Sub OnPaint() Dim rcItem As Rectangle = New Rectangle(0, 0, Me.Width - 1, Me.Height - 1) Dim hDC As IntPtr = GetWindowDC(Me.Handle) Dim gfx As Graphics = Graphics.FromHdc(hDC) Dim mypen As Pen = New Pen(_couleur, 1) gfx.DrawRectangle(mypen, rcItem) gfx.Dispose() End Sub ' et pour s'amuser un peu, une procédure événementielle pour que la couleur de la bordure ' change lorsque le contrôle reçoit le focus Private Sub TextBoxWithBorder_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.GotFocus _oldcolor = _bordercolor _oldwidth = _penWidth _penWidth = _penWidthwhenfocus _bordercolor = _bordorcolorwhenfocus End Sub Private Sub TextBoxWithBorder_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.LostFocus _bordercolor = _oldcolor _penWidth = _oldwidth OnPaint() End Sub End Class
MAIS ...

Bien que le lien explique comment le code a été construit je reste sur ma faim. Autant cela m'a permis, par "imitation", de parvenir à mes fins, autant je serais incapable d'étendre le principe posé (l'appel à l'API windows user32.dll) à d'autres cas.

Je me pose des tas de questions,

- comment peut-on savoir qu'il faut faire appel à une API Windows ou pas pour faire une classe personnalisée ? Comment le développeur a-t-il su ? Par exemple comment savoir que pour dessiner une bordure à un textbox, il faut invoquer une API windows, alors que pour un bouton, une simple procédure OnPaint suffit (cf tuto de P.LASSERRE page 865 dont je m'étais inspiré pour mon code initial) ?
- comment savoir comment utiliser cette API pour le besoin précis qui est le nôtre lorsque nous développons une classe ? Par exemple il est question à un moment donné d'une constante WM_PAINT = 15. D'où cela vient-il ?
- le recours à l'API windows était-elle vraiment incontournable ?

Bref, j'ai su créer un code simple permettant de créer une bordure sur un textbox, mais cela ne veut pas dire que je saurai le faire sur un autre contrôle demain tant que je n'aurais pas réponses à ces interrogations.

En clair, malgré les explications du tuto ci-dessus, c'est presque comme si on m'avait donné la DLL toute faite.

En illustration de mes questions, on pourrait penser que le code du post précédent pourrait s'appliquer tel quel à n'importe quel contrôle de formulaire en modifiant seulement la ligne 8. Par exemple

Code:

Inherits System.Windows.Forms.ComboBox

pour appliquer la même fonction à un combobox.

Or, il n'en est rien. La procédure événementielle Gotfocus ne marche pas (bien que le code la pénètre bien, après vérification).

Cela veut dire qu'il faut encore trouver une autre logique.

Ce qui est surprenant, c'est que si je supprime la procédure gotfocus de la classe et que je "l'externalise" dans la class du formulaire sous le code suivant :
Code:

1 2 3 4 5 6 7 Private Sub TextBoxWithBorder1_GotFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxWithBorder1.GotFocus Dim _oldcolor As Color = Me.TextBoxWithBorder1.BorderColor Dim _oldwidth As SByte = Me.TextBoxWithBorder1.BorderWidth Me.TextBoxWithBorder1.BorderWidth = Me.TextBoxWithBorder1.BorderWidthOnFocus Me.TextBoxWithBorder1.BorderColor = Me.TextBoxWithBorder1.BorderColorOnFocus End Sub
alors ça marche très bien. Mais ce n'est pas pareil du point de vue programmatique et cela fait perdre tout son intérêt à la création d'une classe pour customiser un contrôle WinForms

Bon je m'en suis sorti un rajouter un appel à OnPaint comme ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub TextBoxWithBorder_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.GotFocus _oldcolor = _bordercolor _oldwidth = _penWidth _penWidth = _penWidthwhenfocus _bordercolor = _bordorcolorwhenfocus OnPaint() End Sub Private Sub TextBoxWithBorder_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.LostFocus _bordercolor = _oldcolor _penWidth = _oldwidth OnPaint() Me.Invalidate() End Sub
Maintenant mon code marche à la fois pour un TextBox et un ComboBox.

Mais il faut trouver un "inherits" qui englobe ces 2 contrôles.
Or Combobox hérite de System.Windows.Controls d'après MSDN mais l'intruction Inherits System.Windows.Controls" n'est pas acceptée.