高分急：怎样让listview显示网格线？？？

Question

我想让listview显示象EXCEL一样的网格线，如何实现？？？高手指教！！！

Answer 1

http://www.applevb.com/sourcecode/extlist.zip
看一下这个例子

Answer 2

前提是，必须把 me.LisView1.View =lvwReport 设置成报表形式
ListView1.GridLines = True

Answer 3

对于6.0的版本上面的各位都很对
对于common control 5.0版本的listview恐怕就不行了！~模块
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const LVM_FIRST As Long = &H1000Private Const LVM_SETEXTENDEDLISTVIEWSTYLE As Long = LVM_FIRST + 54
Private Const LVM_GETEXTENDEDLISTVIEWSTYLE As Long = LVM_FIRST + 55Private Const LVS_EX_GRIDLINES As Long = &H1
Private Const LVS_EX_SUBITEMIMAGES As Long = &H2
Private Const LVS_EX_CHECKBOXES As Long = &H4
Private Const LVS_EX_TRACKSELECT As Long = &H8
Private Const LVS_EX_HEADERDRAGDROP As Long = &H10
Private Const LVS_EX_FULLROWSELECT As Long = &H20Public Enum LVStylesEx
   Checkboxes = LVS_EX_CHECKBOXES
   FullRowSelect = LVS_EX_FULLROWSELECT
   GridLines = LVS_EX_GRIDLINES
   HeaderDragDrop = LVS_EX_HEADERDRAGDROP
   SubItemImages = LVS_EX_SUBITEMIMAGES
   TrackSelect = LVS_EX_TRACKSELECT
End Enum
Public Function LVSetStyleEx(lv As ListView, ByVal NewStyle As LVStylesEx, ByVal NewVal As Boolean) As Boolean
   Dim nStyle As Long
   
   ' get the current ListView style
   nStyle = SendMessage(lv.hWnd, LVM_GETEXTENDEDLISTVIEWSTYLE, 0&, ByVal 0&)
   
   If NewVal Then
      ' set the extended style bit
      nStyle = nStyle Or NewStyle
   Else
      ' remove the extended style bit
      nStyle = nStyle Xor NewStyle
   End If
   
   ' set the new ListView style
   LVSetStyleEx = CBool(SendMessage(lv.hWnd, LVM_SETEXTENDEDLISTVIEWSTYLE, 0&, ByVal nStyle))
End Function建一窗体  置一checkbox   check1    .caption=显示网格
一listview .view=lvwreport   放几个标题
Private Sub Check1_Click()
Call LVSetStyleEx(ListView1, GridLines, CBool(Check1.Value))
End Sub

Answer 4

flyingZFX(★我飞★我飞★我飞呀飞★)  说的很清楚了，我就凑个热闹！