Comment dessiner sur une TextBox

Bonsoir,
Je souhaite dessiner une image sur une TextBox. Pour ce faire, j'ai créer une classe dérivant de ma TextBox. Puis je redéclare le OnPaint :
Code:

1 2 3 4 Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs) MyBase.OnPaint(e) e.Graphics.DrawImage ( My.Resources.ClearFilter, Me.Size.Width - My.Resources.ClearFilter.Width , 0 ) End Sub
Le soucis c'est que mon image est dessiné derrière la TextBox, j'aperçois le sommet de mon image. J'ai essayé l'évenement Paint, mais c'est la même chose.

Une idée ? :)
Merci de votre aide !

je crois que le textbox est spécial et qu'il est géré par l'os
donc faudrait chercher des api pour modifier son rendu

Ah bizarre ça... Je voudrais éviter toucher à l'API.

Mon but est de créer une TextBox avec une image toute à droite qui permette de vider la TextBox. Système bien connu sous KDE (pour les filtres en temps réel).

Je voulais afficher l'image et gérer l'événement Click dans cette zone.

Mais peut-être que tu aurais une autre solution pour le faire ?

Merci de ta réponse

Bonjour,

Une solution comme une autre...
Tu créé un textbox, un label. Tu met une image dans ton label, tu insères ton label dans ton textbox et tu gères l'evenement OnClick du label.
Code:

1 2 3 4 5 6 7 8 9 Dim txt As New TextBox Dim lb As New Label lb.Image = MonImage lb.Size = New Size(15, 15) lb.Cursor = Cursors.Hand lb.Dock = DockStyle.Right txt.Controls.Add(lb) Addhandler lb.Click, addressof Lb_Onclick
c'est juste une piste...

J'ai résolu mon problème avec un label, comme conseillé plus haut :)

Par contre mon label est déclaré directement dans ma classe TextBoxFilter :

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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
Public Class TextBoxFilter 
    inherits ToolStripTextBox 
 
    '-------------------------------------------------------------------------'
    '                                  ATTRIBUTS                              '
    '-------------------------------------------------------------------------'
    Private _columns As List( Of String )
    Private _critere As String
    Private _clearZone As Rectangle
    Private _label As Label
 
 
    '-------------------------------------------------------------------------'
    '                                  EVENEMENTS                             '
    '-------------------------------------------------------------------------'
    Public Event CritereChanged( ByVal critere As String )
 
 
    '-------------------------------------------------------------------------'
    '                                 CONSTRUCTEUR                            '
    '-------------------------------------------------------------------------'
    Public Sub New()
        'initialiations
        _columns = New List( Of String )
        _critere = String.Empty
        _clearZone = New Rectangle( Me.Size.Width - 17, Me.Size.Height - 10, my.Resources.ClearFilter.Width , my.Resources.ClearFilter.Height  ) 
        _label = New Label
 
        'création du label        
        _label.Text = ""
        _label.Width = My.Resources.ClearFilter.Width
        _label.Height = My.Resources.ClearFilter.Height
        _label.Image = My.Resources.ClearFilter
        _label.Location = New Point( Me.Width - ( My.Resources.ClearFilter.Width + 5 ), 3 )
        _label.Visible = False
        TextBox.Controls.Add( _label )
    End Sub
 
 
    '-------------------------------------------------------------------------'
    '                                  PROPRIETES                             '
    '-------------------------------------------------------------------------'
    Public ReadOnly Property Critere As String
        Get
            Critere = _critere
        End Get 
    End Property 
 
    Public Property Columns As List( Of String )
        Get
            Return _columns
        End Get
        Set ( ByVal list As List( Of String ) )
            _columns = list
        End Set
    End Property
 
 
    '-------------------------------------------------------------------------'
    '                                  EVENEMENTS                             '
    '-------------------------------------------------------------------------'
    Private Sub TextBoxFilter_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.TextChanged
        _critere = String.Empty 
 
        'création du critère       
        For Each col As String In _columns
            If ( _critere.Length > 0 ) then _critere &= " OR "
            _critere &= " " & col & " LIKE '*" & Me.Text  & "*'"
        next
 
        'si la case n'est pas vide, un filtre est appliqué, on colore la textbox
        If ( Me.Text.Length > 0 ) Then 
            Me.BackColor = system.Drawing.SystemColors.ControlLight 
            _label.Visible= True
        Else 
            Me.BackColor = system.Drawing.SystemColors.Window 
            _label.Visible = False
        End If
 
        'on lève l'événement
        RaiseEvent CritereChanged ( _critere )
    End Sub
 
    Private Sub TextBoxFilter_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        'TODO : Si on click sur l'image ClearFilter -> vider la TextBox
 
    End Sub
 
    Private Sub TextBoxFilter_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        If (     e.X >= _label.Location.X And e.X <= _label.Location.X + _label.Width _
             And e.Y >= _label.Location.Y And e.Y <= _label.Location.Y + _label.Height ) Then
            Me.Clear
        End If
    End Sub
 
    Private Sub TextBoxFilter_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If (     e.X >= _label.Location.X And e.X <= _label.Location.X + _label.Width _
             And e.Y >= _label.Location.Y And e.Y <= _label.Location.Y + _label.Height ) Then
            'TODO : Changer la forme du curseur
        End If
    End Sub
End Class

Il faut également que je ressorte l'image utilisée qui est aujourd'hui en ressource. Le principe est d'avoir une propriété du composant qui permet de définir l'image utilisée.

Il me reste un petit détail, c'est le curseur. Lorsque je passe sur l'image, il faudrait que le curseur se change en "flèche". Mais je n'ai pas trouvé le moyen de le changer depuis ma classe.

Merci pour l'aide !