VB 将 CheckBoxList选中的项转为String()字符串数组

在Visual Basic (VB) 中，如果你有一个 `CheckBoxList` 控件，并想将用户选择的所有项目转换为字符串数组，你可以按照以下步骤操作：

1. 首先，在你的代码中获取 `CheckBoxList` 的 `.SelectedValues` 属性，它会返回一个包含所有选中项值的集合。

Dim selectedItems As Collection = Me.CheckBoxList1.SelectedValues

2. 然后，你可以把这个集合转换成字符串数组。因为 `.SelectedValues` 返回的是 `Object` 类型的元素，所以在转换之前需要检查每个元素是否可以转换为字符串。如果能，就加入到数组中。

Dim strArray(TextBox1.MaxLength - 1) As String ' TextBox1.MaxLength 用于限制数组长度
Dim i As Integer = 0

For Each item In selectedItems
    If TypeOf item Is String Then
        strArray(i) = CStr(item)
        i += 1
    Else
        ' 如果元素不是字符串，可以选择忽略、提示用户或处理其他情况
        Console.WriteLine("非字符串项： " & item.ToString())
    End If
Next

3. 最后，`strArray` 就包含了所有选中的字符串项。