如下图,我想在左边的列表框里勾选以后,能够将左边列表框里已经勾选的内容添加到右边的列表框里;
同时,如果左边的列表框取消勾选,判断右边的列表框是否存在,如果存在就移除它;
现在的问题就是我在做移除功能的时候将右边列表框的内容在转换为集合的时候提示以下错误,该怎么办?
此主题相关图片如下: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