ListView如何添加内容? 新手

Question

1.
比如:
       Form1上有一个按纽,一个listview       listview有两列,按一下按纽,先把"发送"添加到第一行第一列,延时,再把"接收"添加到第一行第二列.       然后再按一下按纽,再先把"发送"添加到第二行第一列,延时,再把"接收"添加到第二行第二列.       依次类推......怎么弄啊?
2.顺便再问个问题,listbox怎么添加列标头??谢谢大家了.

Answer 1

dim b as boolean
dim li as listitem
b = true
do
    if b then 
        set li = listview1.listitems.add("发送")
    else
        li.subitems(1).text = "接收"
    end if
    doevents
    sleep 1000
loop

Answer 2

dim b as boolean老兄啊!   代码错误大大!!!dim li as listitem
b = true
do
  if b then  
  set li = listview1.listitems.add("发送")--------------类型不匹配
  else
  li.subitems(1).text = "接收"--------------------无效限定符
  end if
  doevents
  sleep 1000-----------------------------------函数未定义
loop ------------------------------------------无限循环下去.

Answer 3

'Me.ListView1.View = lvwReport    '设置成报表形式
'ListView1.GridLines = True
'ListView1.FullRowSelect = True '设置整行选择
'  Dim addlist1 As ListItem
''添加listview1标头、宽度~~~~~~~~~~~~~~~~~~~~~`
'With ListView1
'.View = lvwReport
'.ColumnHeaders.Add = "ID"
'.ColumnHeaders.Add = "错误号"
'.ColumnHeaders.Add = "错误描述"
'.ColumnHeaders.Add = "对象类型"
'.ColumnHeaders.Add = "出错程序过程"
'.ColumnHeaders.Add = "错误时间"
'
''--------------设置每行宽度
'.ColumnHeaders(1).Width = 800
'.ColumnHeaders(2).Width = 1200
'.ColumnHeaders(3).Width = 1000
'.ColumnHeaders(4).Width = 1200
'.ColumnHeaders(5).Width = 1500
'.ColumnHeaders(6).Width = 2000
'End With
'
'
'    STRSQL = "Select FAutoId,FErrorNumber,FDescription,FObjectType,FObjectName,FProcedure,FOccurTime from USysErrorLog"
'    adoRsState (False) '关闭数据集
'    adoRs.Open STRSQL, ConStr, adOpenKeyset, adLockReadOnly
'    Do While Not adoRs.EOF
'      Set addlist1 = ListView1.ListItems.Add("aa") '将各项数据加入list列表
'      addlist1.SubItems(1) = IIf(IsNull(adoRs.Fields("FErrorNumber")), "", adoRs.Fields("FErrorNumber"))
'      addlist1.SubItems(1) = IIf(IsNull(adoRs.Fields("FDescription")), "", adoRs.Fields("FDescription"))
'      addlist1.SubItems(1) = IIf(IsNull(adoRs.Fields("FObjectType")), "", adoRs.Fields("FObjectType"))
'      addlist1.SubItems(1) = IIf(IsNull(adoRs.Fields("FObjectName")), "", adoRs.Fields("FObjectName"))
'      addlist1.SubItems(1) = IIf(IsNull(adoRs.Fields("FProcedure")), "", adoRs.Fields("FProcedure"))
'      addlist1.SubItems(1) = IIf(IsNull(adoRs.Fields("FOccurTime")), "", adoRs.Fields("FOccurTime"))
'      adoRs.MoveNext
'    Loop
'    adoRsState (False) '关闭数据集
参照一下吧

Answer 4

给你的是思路。
（1）（2）你按照自动提示找找怎么写
（3）sleep是api，你需要申明下
（4）你有没有说要程序停下来

Answer 5

set li = listview1.listitems.add("发送")
这个应该是对的，前提是你用的是ListView，不是ListBoxli.subitems(1).text = "接收"修改为
li.subitems(1)= "接收"
前提是你有2列。

Answer 6

listbox不可以。ListView才可以。

Answer 7

listbox不可以，ListView可以。
方法如上面有人说了，
With ListView1
.View = lvwReport
.ColumnHeaders.Add = "ID"
.ColumnHeaders.Add = "错误号"
.ColumnHeaders.Add = "错误描述"
.ColumnHeaders.Add = "对象类型"
.ColumnHeaders.Add = "出错程序过程"
.ColumnHeaders.Add = "错误时间"