ajouter checkbox dans listview

Version imprimable

Bonsoir, j'aimerai ajouter checkbox dans listview1 dans la Column 0 avec OwnerDraw = true.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub ListView1_DrawSubItem(sender As Object, e As DrawListViewSubItemEventArgs) Handles ListView1.DrawSubItem
        Dim lstView As ListView = TryCast(sender, ListView)
        Dim textAlignment As TextFormatFlags = GetTextAlignment(lstView, e.ColumnIndex)
        Dim itemColor As Color = e.Item.ForeColor
        If (e.Item.Selected AndAlso Not lvEditMode) Then
            If ((e.ColumnIndex = 0) OrElse lstView.FullRowSelect) Then
                Using Brush As New SolidBrush(Color.Blue)
                    e.Graphics.FillRectangle(Brush, e.Bounds)
                End Using
            Else
                e.DrawBackground()
            End If
        End If
        TextRenderer.DrawText(e.Graphics, e.SubItem.Text, e.SubItem.Font, e.Bounds, itemColor, textAlignment)
    End Sub

pouvez-vous m'aider à ajouter chekbox dans listview quand OwnerDraw est sur true?

1 pièce(s) jointe(s)

j'ai trouver la solution mais j'ai deux problème .

problème numéro 1 : comment cacher le texte qui dépasse de la columns 0 derrière la columns 1.
problème numéro 2 : j'ai décalé le texte par rapport au checkbox, mais dans la columns 1 le texte n'est pas décalé sur la gauche.

voici en image :
Pièce jointe 658495

mon code modifié :

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
 
Private Sub ListView1_DrawSubItem(sender As Object, e As DrawListViewSubItemEventArgs) Handles ListView1.DrawSubItem
        Dim lstView As ListView = TryCast(sender, ListView)
        Dim textAlignment As TextFormatFlags = GetTextAlignment(lstView, e.ColumnIndex)
        Dim itemColor As Color = e.Item.ForeColor
        Dim state = If(e.Item.Checked, CheckBoxState.CheckedNormal, CheckBoxState.UncheckedNormal)
        Dim glyphSize As Size = CheckBoxRenderer.GetGlyphSize(e.Graphics, state)
        Dim checkPad As Integer = (e.Bounds.Height - glyphSize.Height) / 2
        Dim pt As New Point(e.Bounds.X + 2, e.Bounds.Y + 2)
        If e.ColumnIndex = 0 Then
            Dim rect As New Rectangle(pt, New Size(16, 16))
            e.Graphics.DrawRectangle(New Pen(New SolidBrush(Color.Lime), 2), New Rectangle(rect.X, rect.Y + 1, rect.Width, rect.Height))
            If state = CheckBoxState.CheckedNormal Then
                e.Graphics.FillRectangle(New SolidBrush(Color.Red), New Rectangle(rect.X + 2, rect.Y + 2, rect.Width - 3, rect.Height - 3))
            End If
        ElseIf (e.Item.Selected AndAlso Not lvEditMode) Then
            If ((e.ColumnIndex = 0) OrElse lstView.FullRowSelect) Then
                Using Brush As New SolidBrush(Color.Blue)
                    e.Graphics.FillRectangle(Brush, e.Bounds)
                End Using
            Else
                e.DrawBackground()
            End If
        End If
        TextRenderer.DrawText(e.Graphics, e.SubItem.Text, e.SubItem.Font, New Point(pt.X + 16, pt.Y + 10), itemColor, textAlignment)
    End Sub

pouvez-vous me dire comment cacher le texte qui dépasse derrière la columns 1 et recentré le texte dans la columns 1 faire la gauche? merci d'avance

1 pièce(s) jointe(s)

salut, je viens trouvé la solution à mon problème. quand je déplace la souris sur la columns 0 ça enlève grindline en entre 2 mots.

voici en image :
Pièce jointe 658550

quand je clique sur l’élément 0 la ligne revient.

mon code en code modifié :

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
Private Sub ListView1_DrawSubItem(sender As Object, e As DrawListViewSubItemEventArgs) Handles ListView1.DrawSubItem
        Dim lstView As ListView = TryCast(sender, ListView)
        Dim textAlignment As TextFormatFlags = GetTextAlignment(lstView, e.ColumnIndex)
        Dim itemColor As Color = e.Item.ForeColor
        If (e.Item.Selected AndAlso Not lvEditMode) Then
            If ((e.ColumnIndex = 0) OrElse lstView.FullRowSelect) Then
                Using Brush As New SolidBrush(Color.Blue)
                    e.Graphics.FillRectangle(Brush, e.Bounds)
                End Using
            End If
        Else
            e.DrawBackground()
        End If
        If (e.ColumnIndex = 0) Then
            Dim state As CheckBoxState = If(e.Item.Checked, CheckBoxState.CheckedNormal, CheckBoxState.UncheckedNormal)
            Dim glyphSize As Size = CheckBoxRenderer.GetGlyphSize(e.Graphics, state)
            Dim checkPad As Integer = (e.Bounds.Height - glyphSize.Height) / 2
            Dim pt As New Point(e.Bounds.X + 2, e.Bounds.Y + 2)
            Dim rect As New Rectangle(pt, New Size(16, 16))
            e.Graphics.DrawRectangle(New Pen(New SolidBrush(Color.Lime), 2), New Rectangle(rect.X, rect.Y + 1, rect.Width, rect.Height))
            If state = CheckBoxState.CheckedNormal Then
                rect.Inflate(-3, -3)
                e.Graphics.SmoothingMode = SmoothingMode.AntiAlias
                e.Graphics.DrawLines(New Pen(New SolidBrush(Color.OrangeRed), 2), New Point() {New Point(rect.Left, rect.Bottom - rect.Height / 2), New Point(rect.Left + rect.Width / 3, rect.Bottom), New Point(rect.Right, rect.Top)})
                e.Graphics.SmoothingMode = SmoothingMode.Default
                rect.Inflate(+3, +3)
            End If
            TextRenderer.DrawText(e.Graphics, e.SubItem.Text, e.SubItem.Font, New Point(pt.X + 16, pt.Y + 10), itemColor, textAlignment)
        Else
            TextRenderer.DrawText(e.Graphics, e.SubItem.Text, e.SubItem.Font, e.Bounds, itemColor, textAlignment)
        End If
    End Sub

avez-vous une solution pour éviter enlevé gridligne entre les mots dans listview(voir image)?