主题：字符串转集合问题

 如下图，我想在左边的列表框里勾选以后，能够将左边列表框里已经勾选的内容添加到右边的列表框里；

 

同时，如果左边的列表框取消勾选，判断右边的列表框是否存在，如果存在就移除它；

 

现在的问题就是我在做移除功能的时候将右边列表框的内容在转换为集合的时候提示以下错误，该怎么办？

 

 
此主题相关图片如下：123.jpg

Dim frontWords As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
Dim Endwords As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox2")
Dim str As String = frontwords.ComboList
If e.Sender.GetItemChecked(e.Sender.SelectedIndex) Then
    frontWords.ComboList = str & "|" & e.Sender.SelectedValue
    For Index As Integer = 0 To frontWords.Items.Count - 1
        frontWords.SetItemChecked(Index, True)
    Next
Else
    msgbox(STR)
    Dim lst As List(Of String)
    Dim str1() As String = str.Split("|")
    MSGBOX(str1.Length)        ‘———————————————这句代码可以正常执行；
    lst.AddRange(str1)
    MSGBOX(lst.Count)  ‘———————————————这句代码未执行；
    If lst.Contains(e.Sender.SelectedValue) Then
        lst.Remove(e.Sender.SelectedValue)       
    Else
        Return
    End If
End If

Dim lst As List(Of String)

 

改成

 

Dim lst As New List(Of String)

再有，移除不是这样弄的。ItemCheck事件

 

Dim c1 As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
Dim c2 As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox2")
Dim s As String = e.Sender.Items(e.Index)
If e.Checked = False Then
    If c2.Items.Contains(s) Then
        c2.items.Remove(s)
    End If
Else
    c2.items.add(s)
    c2.SetItemChecked(c2.Items.Count-1,True)
End If

3楼的方法好是好，但是当我用C1.Value取值的时候，被Remove的Item还在这个Value里面，怎么破解？

不会的。你是如何取值的。直接从已选部位取值不就行了