1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
Private Sub ListView1_DrawSubItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawListViewSubItemEventArgs) Handles ListView1.DrawSubItem
If e.Item.SubItems(9) Is e.SubItem Then
If e.SubItem.Text = "oui" Then
e.DrawDefault = False
e.Graphics.DrawImage(My.Resources.webcam, e.SubItem.Bounds.Location)
e.Graphics.DrawString(e.SubItem.Text, e.SubItem.Font, New SolidBrush(e.SubItem.ForeColor), e.SubItem.Bounds.Location.X + My.Resources.webcam.Width, e.SubItem.Bounds.Location.Y)
Else
e.DrawDefault = False
e.Graphics.DrawImage(My.Resources.cross, e.SubItem.Bounds.Location)
e.Graphics.DrawString(e.SubItem.Text, e.SubItem.Font, New SolidBrush(e.SubItem.ForeColor), e.SubItem.Bounds.Location.X + My.Resources.cross.Width, e.SubItem.Bounds.Location.Y)
End If
Else
e.DrawDefault = True
End If
End Sub |
Partager