最简单的问题（但是我就是不会！），不好意思，我才开始用VB！！！帮忙回复一下，OK？

[番茄家]

我在窗体上加了一个ListView控件。但是我编程想加一条记录进去，结果就是不行。也不知道是什么地方不对，请指教，谢谢！代码如下：
Private Sub Form_Load()
Dim newItem As ListItem
Set newItem = lvwData.ListItems.Add(,,"2",,)
End Sub

[bennycao]

Private Sub Form_Load()
Dim newItem As ListItem
Set newItem = lvwData.ListItems.Add(, , "2")
End Sub

[northwolves]

Dim newItem As ListItem
Set newItem = ListView1.ListItems.Add(, , "2")

[zymfy]

LISTVIEW1加上两列,属性->查看为3-lvwreport
Private Sub Command1_Click()
Dim list As ListItem
For i = 1 To 10
Set list = ListView1.ListItems.Add(, , i)
ListView1.ListItems(i).SubItems(1) = i
Next i
End Sub

[online]

Dim clm As ColumnHeader
Dim itm As ListItem
Dim i As Long, j As Long

lv.ListItems.Clear
lv.ColumnHeaders.Clear
lv.View = lvwReport
lv.LabelEdit = lvwManual

Set clm = lv.ColumnHeaders.Add(, , "表头1")
Set clm = lv.ColumnHeaders.Add(, , "表头2")

For i = 1 To 30
Set itm = lv.ListItems.Add(, "Row" & i, i)
itm.SubItems(1) = i
Next i

[hhjjhjhj]

yes

[ycclover]

Private Sub Form_Load()

Dim newItem As ListItem
Set newItem = lvwData.ListItems.Add(,,"2")

End Sub

[Lucky527]

Private Sub Form_Load()
Dim newItem As ListItem
Set newItem = lvwData.ListItems.Add(, , "2")
End Sub

[kimurakenshin]

你的问题其他人已经回答,免费送你点别的:

Private Sub Command1_Click()
'把text1中大于10的内容加入到listview中,让选中的记录高亮显示
If Len(Text1.Text) > 10 Then
ListView1.ListItems.Add , , Text1.Text
Else
MsgBox "请输入10个字符以上的字符串!", vbInformation, "提示"
End If
ListView1.SelectedItem = ListView1.ListItems.Item(ListView1.ListItems.Count)
ListView1.DropHighlight = ListView1.SelectedItem
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command2_Click()
'删除选中项
ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
End Sub

Private Sub Form_Load()
ListView1.ListItems.Add , , "1111"
ListView1.ListItems.Add , , "222"
ListView1.ListItems.Add , , "33333"
ListView1.ListItems.Add , , "444455"
ListView1.ListItems.Add , , "6666666"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload Me
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
'高亮显示选中行
ListView1.SelectedItem = Item
ListView1.DropHighlight = Item
End Sub

[jpinglee]

Private Sub Form_Load()
Dim newItem As ListItem
Set newItem = lvwData.ListItems.Add(, , "2")
End Sub

[hemeijun81]

上面的都说了