我在窗体上加了一个ListView控件。但是我编程想加一条记录进去,结果就是不行。也不知道是什么地方不对,请指教,谢谢!代码如下:
Private Sub Form_Load()
Dim newItem As ListItem
Set newItem = lvwData.ListItems.Add(,,"2",,)
End Sub
...全文
13510打赏收藏
最简单的问题(但是我就是不会!),不好意思,我才开始用VB!!!帮忙回复一下,OK?
我在窗体上加了一个ListView控件。但是我编程想加一条记录进去,结果就是不行。也不知道是什么地方不对,请指教,谢谢!代码如下: Private Sub Form_Load() Dim newItem As ListItem Set newItem = lvwData.ListItems.Add(,,"2",,) End Sub
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
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