Private Sub Command1_Click() Dim i As Long Dim blnHave As Boolean
blnHave = False
For i = 1 To ListView1.ListItems.Count If Text1.Text = ListView1.ListItems(i) Then blnHave = True Exit For End If Next i
If Not blnHave Then ListView1.ListItems.Add , , Text1.Text End If
blnHave = False
For i = 1 To ListView1.ListItems.Count If Text2.Text = ListView1.ListItems(i) Then blnHave = True Exit For End If Next i
If Not blnHave Then ListView1.ListItems.Add , , Text2.Text End If
End Sub
Private Sub Command1_Click() Dim i As Long Dim blnHave As Boolean
'关于text1 blnHave = False '先遍历判断 For i = 1 To ListView1.ListItems.Count If Text1.Text = ListView1.ListItems(i) Then blnHave = True Exit For End If Next i '没有则添加 If Not blnHave Then ListView1.ListItems.Add , , Text1.Text End If
'关于text2 blnHave = False '先遍历判断 For i = 1 To ListView1.ListItems.Count If Text2.Text = ListView1.ListItems(i) Then blnHave = True Exit For End If Next i '没有则添加 If Not blnHave Then ListView1.ListItems.Add , , Text2.Text End If
http://topic.csdn.net/u/20101116/09/b799f0bb-d27e-4da2-8fa9-46982462a8fe.html
Dim i As Long
Dim blnHave As Boolean
blnHave = False
For i = 1 To ListView1.ListItems.Count
If Text1.Text = ListView1.ListItems(i) Then
blnHave = True
Exit For
End If
Next i
If Not blnHave Then
ListView1.ListItems.Add , , Text1.Text
End If
blnHave = False
For i = 1 To ListView1.ListItems.Count
If Text2.Text = ListView1.ListItems(i) Then
blnHave = True
Exit For
End If
Next i
If Not blnHave Then
ListView1.ListItems.Add , , Text2.Text
End If
End Sub
Dim i As Long
Dim blnHave As Boolean
'关于text1
blnHave = False
'先遍历判断
For i = 1 To ListView1.ListItems.Count
If Text1.Text = ListView1.ListItems(i) Then
blnHave = True
Exit For
End If
Next i
'没有则添加
If Not blnHave Then
ListView1.ListItems.Add , , Text1.Text
End If
'关于text2
blnHave = False
'先遍历判断
For i = 1 To ListView1.ListItems.Count
If Text2.Text = ListView1.ListItems(i) Then
blnHave = True
Exit For
End If
Next i
'没有则添加
If Not blnHave Then
ListView1.ListItems.Add , , Text2.Text
End If
End Sub
放在listview的change事件里。