Question

VB ListView 用法

想用ListView做个操作记录
模块中的代码
ListView1.ListItems.Add , , "[ " & Format(Hour(Time), "00") & ":" & Format(Minute(Time), "00") & ":" & Format(Second(Time), "00") & " ]

现在问题是只能显示操作的时间。操作的内容不能显示。怎么在第二列添加操作的记录？
这段代码后面怎么再添加代码才能同时显示操作时间和操作内容
List1.AddItem "[" & Format(Hour(time), "00") & ":" & Format(Minute(time), "00") & ":" & Format(Second(time), "00") & "][" & leixing & "]：" & neirong, 0
就是把LIST1换成ListView1
俺晕倒啊。都不行啊。

Answer 1

先定义ListView1的多列，如：
With ListView1
.ColumnHeaders.clear

.ColumnHeaders.Add , , "操作时间", 3000
.ColumnHeaders.Add , , "操作内容", 3000
end with

然后再赋每行值：
Dim lvwItem As ListItem
Set lvwItem = lsvUpPort.ListItems.Add ...... '操作时间
lvwItem.SubItems(1) = ....... '操作内容

Answer 2

With listview1.listitems.Add()
.Text="第一列内容"
.subitems(1)="第二列内容"
后面以此类推
End With

追问

可不可以写成模块的形式。然后显示操作记录的时候可以 Call jilu("[消息]", 100, "-------------------------------------------------------")这样。