请问；listview控件怎么实现网格

Question

我用的是vb 6.0，怎么实现网格？

Answer 1

ListView1.View = lvwReport
    ListView1.GridLines = True别忘了添加列

Answer 2

增加列是：
右击窗口上的ListView控件，选择属性，单击 列首 选项卡。
在那里可以插入

Answer 3

我怎么没找到GridLines 属性

Answer 4

我这有啊
我引用的是
Microsoft Windows Common Controls 6.0 (SP6)

Answer 5

我要在listview里面显示很多列数据应该怎么实现？listview能实现吗？

Answer 6

这是Listview基本的属性，补丁未打。
VB6最新补丁是SP6,2004年更新For Microsoft Windows Common Controls 5.0 (SP2) ---COMCTL32.DLL
看不到GridLines 属性，但API能实现。
For Microsoft Windows Common Controls 6.0 (SP6) ---Mscomctl.DLL
直接看到GridLines 属性。Private Const LVS_EX_GRIDLINES   As Long = &H1&
Private Const LVM_FIRST          As Long = &H1000
Private Const LVM_GETEXTENDEDLISTVIEWSTYLE = (LVM_FIRST + 55)
Private Const LVM_SETEXTENDEDLISTVIEWSTYLE = (LVM_FIRST + 54)
Private Declare Function SendMessageLongA Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long,ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPublic Sub GridLines(Byval LVhWnd as Long,ByVal PropVal As Boolean)
'*/ change gridlines state    If Not LVhWnd  = 0 Then
        If PropVal Then
            SetExtendedStyle LVS_EX_GRIDLINES, 0
        Else
            SetExtendedStyle 0, LVS_EX_GRIDLINES
        End If
    End If
    
End SubPrivate Sub SetExtendedStyle(ByVal LVhWnd as Long,ByVal lStyle As Long,ByVal lStyleNot As Long)
'*/ change list extended style paramsDim lNewStyle   As Long    lNewStyle = SendMessageLongA(LVhWnd , LVM_GETEXTENDEDLISTVIEWSTYLE, 0&, 0&)
    lNewStyle = lNewStyle And Not lStyleNot
    lNewStyle = lNewStyle Or lStyle
    SendMessageLongA LVhWnd , LVM_SETEXTENDEDLISTVIEWSTYLE, 0&, lNewStyleEnd Sub

Answer 7

我已经找到了，我要在listview里面显示很多列数据应该怎么实现？listview能实现吗？

Answer 8

能显示多列，添加列首是我上面说的方法。
你说的节点应该是 TreeView  控件
ListView没有这一说。这是往新添加的行的每一列中写数据的方法Option ExplicitPrivate Sub Form_Load()
    With ListView1.ListItems.Add
        .Text = "1"
        .SubItems(1) = "2"
        .SubItems(2) = "3"
    End With
End Sub

Answer 9

谢谢2位，特别感谢wzzwwz（皮皮鲁）