主题：LISTVIEW平铺外框怎么做？

全局代码

Public Sub listView1_DrawItem(ByVal sender As Object, ByVal e As Windows.forms.DrawListViewItemEventArgs)

Dim n As New Pen(Color.Red,2)
Dim rect As new Rectangle(e.Bounds.left-1, e.Bounds.top-1, e.Bounds.width-2, e.Bounds.height-2)
e.Graphics.DrawRectangle(n, e.Bounds)
e.Graphics.DrawImage(sender.LargeImageList(e.Item.ImageIndex), rect)

End Sub

生成代码

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim blvw As windows.Forms.Listview = lvw.basecontrol
blvw.OwnerDraw = True
addhandler blvw.DrawItem, addressof listView1_DrawItem

参考代码

Public Sub listView1_DrawItem(ByVal sender As Object, ByVal e As Windows.forms.DrawListViewItemEventArgs)

If e.item.SubItems("性别").text = "男" Then
    Dim n As New Pen(Color.Red,2)
    e.Graphics.DrawRectangle(n, e.Bounds)
Else
    Dim n As New Pen(Color.yellow,2)
    e.Graphics.DrawRectangle(n, e.Bounds)
End If
Dim rect As new Rectangle(e.Bounds.left-1, e.Bounds.top-1, e.Bounds.width-2, e.Bounds.height-2)
e.Graphics.DrawImage(sender.LargeImageList(e.Item.ImageIndex), rect)

End Sub