Discussion :

[Pol63]

bonjour

comment mettre des images en en tete de colonne (colonne de type de texte)
ou encore mieux : comment mettre des images et du texte par dessus

[AP]

je me suis fait une classe et ca fonctionne pas mal.

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
Public Class ImageColumnHeader
    Inherits DataGridViewColumnHeaderCell
    Public _image As Image
    Public Sub New(ByVal img As Image)
        MyBase.New()
        Me._image = img
    End Sub
    Protected Overloads Overrides Sub Paint(ByVal graphics As Graphics, ByVal clipBounds As Rectangle, ByVal cellBounds As Rectangle, ByVal rowIndex As Integer, ByVal dataGridViewElementState As DataGridViewElementStates, ByVal value As Object, _
     ByVal formattedValue As Object, ByVal errorText As String, ByVal cellStyle As DataGridViewCellStyle, ByVal advancedBorderStyle As DataGridViewAdvancedBorderStyle, ByVal paintParts As DataGridViewPaintParts)
        MyBase.Paint(graphics, clipBounds, cellBounds, rowIndex, dataGridViewElementState, value, _
         formattedValue, errorText, cellStyle, advancedBorderStyle, paintParts)
        graphics.DrawImage(_image, cellBounds.X + 2, cellBounds.Y + 2)
    End Sub
    Protected Overloads Overrides Function GetValue(ByVal rowIndex As Integer) As Object
        Return Nothing
    End Function
 
    Public Property Icon() As Image
        Get
            Return _image
        End Get
        Set(ByVal value As Image)
            _image = value
        End Set
    End Property
End Class

A mettre dans la FAQ?

[The_badger_man]

Je t'invite à mettre le code dans le forum Vos contributions

[Pol63]

je me suis fait une classe et ca fonctionne pas mal.

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
Public Class ImageColumnHeader
    Inherits DataGridViewColumnHeaderCell
    Public _image As Image
    Public Sub New(ByVal img As Image)
        MyBase.New()
        Me._image = img
    End Sub
    Protected Overloads Overrides Sub Paint(ByVal graphics As Graphics, ByVal clipBounds As Rectangle, ByVal cellBounds As Rectangle, ByVal rowIndex As Integer, ByVal dataGridViewElementState As DataGridViewElementStates, ByVal value As Object, _
     ByVal formattedValue As Object, ByVal errorText As String, ByVal cellStyle As DataGridViewCellStyle, ByVal advancedBorderStyle As DataGridViewAdvancedBorderStyle, ByVal paintParts As DataGridViewPaintParts)
        MyBase.Paint(graphics, clipBounds, cellBounds, rowIndex, dataGridViewElementState, value, _
         formattedValue, errorText, cellStyle, advancedBorderStyle, paintParts)
        graphics.DrawImage(_image, cellBounds.X + 2, cellBounds.Y + 2)
    End Sub
    Protected Overloads Overrides Function GetValue(ByVal rowIndex As Integer) As Object
        Return Nothing
    End Function
 
    Public Property Icon() As Image
        Get
            Return _image
        End Get
        Set(ByVal value As Image)
            _image = value
        End Set
    End Property
End Class

A mettre dans la FAQ?

sympa
merci bien !

[Pol63]

par contre j'ai pas encore trouvé comment faire pour que la ligne d'en tete soit de la bonne hauteur ...