从已检查的列表框VB中获取索引列表

Question

我正在尝试获取在列表框中检查的项目的索引列表，例如。     [x]一个     []两个     []三     [x]四 将返回1,4 然后我想将此列表显示在列表框中 这是我的代码：

`Dim indexes As Integer()
indexes = CheckedListBox1.CheckedIndices.Cast(Of Integer).ToArray()
For i = 1 To CheckedListBox1.CheckedItems.Count
 ListBox2.Items.Add(indexes.Cast(Of Integer))
Next`

错误是当我运行它时，列表框显示一个字符串，而不是实际的数字本身，即1。 任何帮助赞赏 感谢

Answer 1

dim i as integer = 0
For Each TempItem  IN CheckedListBox1.CheckedItems 
    If Tempitem.checked then
       ListBox1.Items.Add(i.tostring)
    End If
    i+=1
Next