listview的简单使用问题

Question

listview,选report形式.分两列显示.如何把数据倒入这两个标题下.

Answer 1

ListView1.ColumnHeaders.Add , , "项目", 1 * ListView1.Width / 2
    ListView1.ColumnHeaders.Add , , "内容", 1 * ListView1.Width / 2
    ListView1.View = lvwReport
    
    Dim I As Integer
    For I = 1 To 10
    Set itmx = ListView1.ListItems.Add(, , "<你好>")
    itmx.SubItems(1) = "都好"
    Next

Answer 2

listview.ListItems.Add 1, , "1232"
            listview.ListItems.Item(1).SubItems(1) = "王二小"
            listview.ListItems.Item(1).SubItems(2) = "三班"

Answer 3

listview.ListItems.Add 1, , "三班"
            listview.ListItems.Item(1).SubItems(1) = "王二小"

Answer 4

Private Sub Form_Load()
'先增加需要的列
Set col = ListView1.ColumnHeaders.Add()
col.text = "项目编号"  'projectID
col.Width = 1200
Set col = ListView1.ColumnHeaders.Add()
col.text = "名称"   'name
col.Width = 1200
 Set col = ListView1.ColumnHeaders.Add()
 col.text = "类型"   'typeID
 col.Width = 1800
 Set col = ListView1.ColumnHeaders.Add()
 col.text = "开始时间"    'starttime
 col.Width = 1000
 Set col = ListView1.ColumnHeaders.Add()
 col.text = "结束时间"     'endtime
 col.Width = 1000
 Set col = ListView1.ColumnHeaders.Add()
 col.text = "乡镇"    'town
 col.Width = 1000
 Set col = ListView1.ColumnHeaders.Add()
 col.text = "村"    'village
 col.Width = 1500
 ListView1.Width = 9050
'然后把数据进行填充，这里的例子是来自recordset
 Call LoadListViewFromRecordset(ListView1, m_RS)  '调用函数end subPublic Sub LoadListViewFromRecordset(LV As ListView, RS As ADODB.Recordset, Optional MaxRecords As Long)
Dim recCount As Long
Dim fldname As String
Dim i As Long
Dim itm As ListItem
   Do Until RS.EOF
     recCount = recCount + 1
     fldname = "projectID"
     Set itm = LV.ListItems.Add(, , RS.Fields(fldname) & "")
' fldname = LV.ColumnHeaders(2).Text
' Set itm = LV.ListItems.Add(, , RS.Fields(fldname) & "")
'     For i = 2 To 7 'LV.ColumnHeaders(i)
'     'fldname = LV.ColumnHeaders(i).text
''     itm.ListSubItems.Add , , rs.Fields(fldname) & ""
'     Next
     itm.ListSubItems.Add , , RS.Fields("name") & ""
     'itm.ListSubItems.Add , , RS.Fields("typeID") & ""
     If RS.Fields("typeID") = "1" Then itm.ListSubItems.Add , , "农业综合开发项目"
     If RS.Fields("typeID") = "2" Then itm.ListSubItems.Add , , "土地综合整理项目"
     itm.ListSubItems.Add , , RS.Fields("starttime") & ""
     itm.ListSubItems.Add , , RS.Fields("endtime") & ""
     itm.ListSubItems.Add , , RS.Fields("town") & ""
     itm.ListSubItems.Add , , RS.Fields("village") & ""
     If recCount = MaxRecords Then Exit Do
       RS.MoveNext
  Loop
End Sub

Answer 5

谁能解释一下listview.ListItems.Add 的参数尤其是index的意义
listview.ListItems.Add 1, , "三班"
            listview.ListItems.Item(1).SubItems(1) = "王二小"
里的1 都是什么意思。

Answer 6

还有，如何让每一项的text，不会在双击时变成可修改状态