如何设置ListView的界面风格啊,

Question

如何设置ListView的界面风格啊,
要求有行列显示就OK 了

Answer 1

with ListView  
  ''''''初始化listview 有编号，姓名2列
  .ColumnHeaders.Clear
  .MultiSelect = True
  .ColumnHeaders.Add , , "编号",Int(lvwAvaCo.Width / 3)     
  .ColumnHeaders.Add , , "姓名", Int(lvwAvaCo.Width / 3 * 2) - 100
  .View = lvwReport
  .ListItems.Clear
  .GridLines = False
  .LabelEdit = lvwManual
  .HideSelection = False
'''''''''''''''''''''''''''添加数据
  .ListItems.Add i, , "9527"
  .ListItems(i).ListSubItems.Add , , "张三"
''''''''''''''删除数据
  .ListItems.Remove i
''''''''''
End With

Answer 2

.LabelEdit = lvwManual              '标签不可编辑
.FullRowSelect = True               '整行选择
 .MultiSelect = False                '不允许多选
.Arrange = lvwAutoTop               '自动置顶
.Sorted = True                      '自动排序
        
        
.ColumnHeaders.Clear                '清空表头
.ListItems.Clear                    '清空列表'添加表头
.ColumnHeaders.Add , key, caption, width
……
'设置显示方式
.View = lvwReport
关键是要把 .view=lvwreport，而且要预先设定表头，这样就是表格的显示风格了。