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

[p1112]

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

[p1112]

自己顶

[wzzwwz]

ListView1.View = lvwReport
ListView1.GridLines = True

别忘了添加列

[wzzwwz]

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

[p1112]

我怎么没找到GridLines 属性

[wzzwwz]

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

[p1112]

会不会是我的补丁没打？

[p1112]

谢谢，找到了

[p1112]

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

[VBAdvisor]

这是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 Long

Public 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 Sub

Private Sub SetExtendedStyle(ByVal LVhWnd as Long,ByVal lStyle As Long,ByVal lStyleNot As Long)
'*/ change list extended style params

Dim lNewStyle As Long

lNewStyle = SendMessageLongA(LVhWnd , LVM_GETEXTENDEDLISTVIEWSTYLE, 0&, 0&)
lNewStyle = lNewStyle And Not lStyleNot
lNewStyle = lNewStyle Or lStyle
SendMessageLongA LVhWnd , LVM_SETEXTENDEDLISTVIEWSTYLE, 0&, lNewStyle

End Sub

[p1112]

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

[p1112]

怎么判断选中的是哪一级节点？大家帮忙啊

[wzzwwz]

能显示多列，添加列首是我上面说的方法。
你说的节点应该是 TreeView 控件
ListView没有这一说。

这是往新添加的行的每一列中写数据的方法

Option Explicit

Private Sub Form_Load()
With ListView1.ListItems.Add
.Text = "1"
.SubItems(1) = "2"
.SubItems(2) = "3"
End With
End Sub

[p1112]

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