★★★如何设置使ListView具有这样的风格★★★

[xxiao07]

见图：http://bbs.263.net/forumData/84/2406776_1.jpg

注意：每行还有CheckBox

[SafeF8]

设置ListView的属性ListView1.Checkboxes = True, ListView1.GridLines =True
最好加上ListView1.FullRowSelect =True 这样就可以整行选择.

[northwolves]

Option Explicit

Private Sub Form_Load()
Dim i As Integer
With ListView1
.View = lvwReport
.GridLines = True
.Checkboxes = True
.ColumnHeaders.Add , , "A"
.ColumnHeaders.Add , , "A*A"
.ColumnHeaders.Add , , "A*A*A"
For i = 1 To 10
.ListItems.Add i, , i
.ListItems(i).SubItems(1) = i ^ 2
.ListItems(i).SubItems(2) = i ^ 3
Next
End With
End Sub

[SafeF8]

忘了这个ListView1.View = lvwReport

[cso]

6.0版本的可以直接设置ListView的属性ListView1.Checkboxes = True
5.0版本的要用代码:sendmessage的api函数发一个好象是Const LVS_EX_CHECKBOXES = &H4的消息