VB中怎么清空listview中的东西
用ListView.ListItems.Clear清空所有项目;用ListView.ColumnHeaders.Clear清空表头。
示例代码如下:
(1)新建一个VB6工程
(2)在Form1窗体布置一个ListView和一个Command
(3)窗体代码
Option Explicit
Private Sub Command1_Click()
With ListView1
' 清空所有项目
.ListItems.Clear
' 清空表头
.ColumnHeaders.Clear
End With
End Sub
Private Sub Form_Load()
Dim itemX As ListItem
With ListView1
' 详细列表方式显示
.View = lvwReport
'表头
.ColumnHeaders.Add , , "品名"
.ColumnHeaders.Add , , "产地"
' 添加项目
Set itemX = .ListItems.Add(, , "苹果")
itemX.SubItems(1) = "烟台"
Set itemX = .ListItems.Add(, , "香蕉")
itemX.SubItems(1) = "巴拿马"
Set itemX = .ListItems.Add(, , "柑橘")
itemX.SubItems(1) = "加洲"
End With
Command1.Caption = "清空ListView"
End Sub
(4)运行
点击“清空ListView”按钮后
ListView1.ColumnHeaders.Clear