这里是将我的lvList克隆到我的LvPrint的代码我的问题是如何避免重复 或防止重复帮助
Dim lvi, lvi2 As New ListViewItem
If lvList.SelectedItems.Count > 0 Then
For i As Integer = 0 To lvList.SelectedItems.Count - 1
lvi = lvList.SelectedItems(i)
lvi2 = CType(lvi.Clone, ListViewItem)
lvPrint.Items.Add(lvi2)
Next
End If
答案 0 :(得分:2)
验证以下内容,添加额外if条件以检查lvprint中已有的选定字符串
Dim lvi, lvi2 As New ListViewItem
Dim list As String = ""
Dim printlist As String = ""
For j As Integer = 0 To lvPrint.Items.Count - 1
printlist = printlist & " " & lvPrint.Items(j).Text
Next
If lvList.SelectedItems.Count > 0 Then
For i As Integer = 0 To lvList.SelectedItems.Count - 1
lvi = lvList.SelectedItems(i)
If Not list.Contains(lvi.Text) And Not printlist.Contains(lvi.Text) Then
lvi2 = CType(lvi.Clone, ListViewItem)
lvPrint.Items.Add(lvi2)
End If
list = list & " " & lvi.Text
Next
End If