简单问题：怎样在listview中插入一行

[zhangwh6882]

具体说想将后加入的行放在第一列，请问应该怎样实现呢？

[zhangwh6882]

up
请大家帮帮忙

[lxcc]

Private Sub Command1_Click()
Dim itemx As ListItem
Set itemx = ListView1.ListItems.Add(1, , "虫子") '改改index值可以插入指定行之前
End Sub

Private Sub Form_Load()
Dim itemx As ListItem
Set itemx = ListView1.ListItems.Add(, , "X档案")
Set itemx = ListView1.ListItems.Add(, , "X档案")
Set itemx = ListView1.ListItems.Add(, , "X档案")
Set itemx = ListView1.ListItems.Add(, , "X档案")
Set itemx = ListView1.ListItems.Add(, , "X档案")
Set itemx = ListView1.ListItems.Add(, , "X档案")
Set itemx = ListView1.ListItems.Add(, , "X档案")
Set itemx = ListView1.ListItems.Add(, , "X档案")
End Sub

[rainstormmaster]

Option Explicit

Private Sub Command1_Click()
On Error GoTo myerr
Dim i As Long, str As String
str = InputBox("请输入要插入的数据")
i = CLng(InputBox("请输入要插在哪一行"))
ListView1.ListItems.Add i, , str
Exit Sub
myerr:
MsgBox "发生错误"
Exit Sub
End Sub

Private Sub Form_Load()
ListView1.ColumnHeaders.Add , , "test"
ListView1.View = lvwReport
ListView1.ColumnHeaders(1).Width = ListView1.Width
ListView1.FullRowSelect = True
ListView1.HideColumnHeaders = True
Dim i As Long
For i = 1 To 200
ListView1.ListItems.Add , , "line" + CStr(i)
Next
End Sub

[xinshou1979330]

同意楼上的 果真好使
偶已经调试过了

[xinshou1979330]

Private Sub Command1_Click()
Dim itemx As ListItem
Set itemx = ListView1.ListItems.Add(1, , "虫子") '改改index值可以插入指定行之前
End Sub

Private Sub Form_Load()
ListView1.ColumnHeaders.Add , , "test"
ListView1.View = lvwReport
ListView1.ColumnHeaders(1).Width = ListView1.Width
ListView1.FullRowSelect = True
ListView1.HideColumnHeaders = True
Dim i As Long
For i = 1 To 200
ListView1.ListItems.Add , , "line" + CStr(i)
Next
End Sub

这样就自动在第一行加入了

[zhangwh6882]

谢谢几位了
马上结帖