vb.net ListView_DrawItem 改变网格线的颜色

您可以使用vb.net ListView控件中的 `DrawItem` 事件来自定义每个列表项的绘制方式，包括网格线的颜色。以下是一个示例代码：

Private Sub ListView1_DrawItem(sender As Object, e As DrawListViewItemEventArgs) Handles ListView1.DrawItem
    e.DrawDefault = True '保留默认绘制
    If e.ItemIndex Mod 2 = 1 Then '奇数行
        e.Graphics.DrawLine(Pens.Gray, e.Bounds.Left, e.Bounds.Bottom - 1, e.Bounds.Right, e.Bounds.Bottom - 1) '下边框线
    End If
End Sub

在这个示例代码中，我们使用 `DrawItem` 事件来自定义vb.net ListView控件中每个列表项的绘制方式。我们使用 `Pens.Gray` 来画一条灰色的线作为网格线。我们使用 `e.Bounds.Bottom - 1` 来确定线条的位置，这样可以使得线条在每个列表项底部留出一定的间隔。

在这个示例代码中，我们还使用 `e.ItemIndex Mod 2 = 1` 来判断当前列表项的索引是否为奇数。如果是奇数，我们就画出下边框线；如果是偶数，我们就保留默认的绘制方式。这是因为我们只想为奇数行添加网格线。如果您想为所有行添加网格线，可以将判断条件去掉。

相关问题

vb.net ListView_DrawItem 后还是不能改变网格线的颜色

如果您在vb.net ListView控件中使用 `DrawItem` 事件来自定义绘制方式，但是网格线的颜色没有改变，可能是因为您没有设置 `OwnerDraw` 属性为 `True`。

请尝试使用以下代码来启用 `OwnerDraw` 属性：

ListView1.OwnerDraw = True

在启用 `OwnerDraw` 属性后，您应该能够使用 `DrawItem` 事件来自定义vb.net ListView控件的绘制方式，包括网格线的颜色。

如果您仍然无法改变网格线的颜色，可能是因为您的绘制代码有误，请确保您正确地使用 `e.Graphics.DrawLine` 方法来画网格线。如果您仍然无法解决问题，请尝试在 Stack Overflow 或其他技术论坛上寻求帮助。

vb.net ListView_DrawItem 改变网格线的颜色，一个完全可以使用的代码

以下是一个完整的示例代码，可以使用vb.net ListView控件中的 `DrawItem` 事件来改变网格线的颜色：

Private Sub ListView1_DrawItem(sender As Object, e As DrawListViewItemEventArgs) Handles ListView1.DrawItem
    e.DrawDefault = True '保留默认绘制
    If e.ItemIndex Mod 2 = 1 Then '奇数行
        e.Graphics.DrawLine(Pens.Gray, e.Bounds.Left, e.Bounds.Bottom - 1, e.Bounds.Right, e.Bounds.Bottom - 1) '下边框线
    End If
End Sub

Private Sub ListView1_DrawColumnHeader(sender As Object, e As DrawListViewColumnHeaderEventArgs) Handles ListView1.DrawColumnHeader
    e.DrawDefault = True '保留默认绘制
    e.Graphics.DrawLine(Pens.Gray, e.Bounds.Left, e.Bounds.Bottom - 1, e.Bounds.Right, e.Bounds.Bottom - 1) '下边框线
End Sub

Private Sub ListView1_DrawSubItem(sender As Object, e As DrawListViewSubItemEventArgs) Handles ListView1.DrawSubItem
    e.DrawDefault = True '保留默认绘制
    If e.ItemIndex Mod 2 = 1 Then '奇数行
        e.Graphics.DrawLine(Pens.Gray, e.Bounds.Left, e.Bounds.Bottom - 1, e.Bounds.Right, e.Bounds.Bottom - 1) '下边框线
    End If
End Sub

在这个示例代码中，我们使用了三个事件来自定义vb.net ListView控件的绘制方式。在 `DrawItem` 事件中，我们使用 `e.Graphics.DrawLine` 方法来画下边框线。在 `DrawColumnHeader` 和 `DrawSubItem` 事件中，我们使用相同的方法画下边框线。

请注意，我们在这个示例代码中使用了 `e.ItemIndex Mod 2 = 1` 来判断当前列表项的索引是否为奇数。如果是奇数，我们就画出下边框线；如果是偶数，我们就保留默认的绘制方式。这是因为我们只想为奇数行添加网格线。如果您想为所有行添加网格线，可以将判断条件去掉。

此外，我们在这个示例代码中还启用了 `e.DrawDefault = True`，以便保留vb.net ListView控件的默认绘制方式。如果您想完全自定义vb.net ListView控件的绘制方式，可以将这些代码删除。