Foxtable(狐表)用户栏目专家坐堂 → 字符串转集合问题


  共有1534人关注过本帖平板打印复制链接

主题:字符串转集合问题

帅哥哟,离线,有人找我吗?
xvkewen
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:593 积分:5538 威望:0 精华:0 注册:2012/6/29 19:11:00
字符串转集合问题  发帖心情 Post By:2017/12/5 8:57:00 [只看该作者]

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

 

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

 

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

 

 
图片点击可在新窗口打开查看此主题相关图片如下: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


 回到顶部