如何在vb中的列表框中创建一个数据循环？

Question

我有一个值为整数的列表框。我想制作2循环

 Do While objReader.Peek() <> -1
 TextLine = objReader.ReadLine()
 words = TextLine.Split(New Char() {","c})
 ListBox1.Items.Add(words(3) & "," & words(4))
    Loop
 For i As Integer = 0 To ListBox1.Items.Count - 1
   Dim tempstr = ListBox1.Items.Item(i)
   tempstr = ListBox1.Items(i)
   Value = tempstr.Split(","c)
   Data= Value(0)
  Next

我想制作2个datalist

1. 删除value1的第一项
2. 删除value1的最后一项

Answer 1

你可以像这样接受循环。   在第一个中，你得到的值从第一个到最后一个-1   在秒中你从第二个（第一个）到最后一个

 For j As Integer = 0 To ListBox1.Items.Count - 2
  Dim first = ListBox1.Items(j).ToString
  Dim sec = ListBox1.Items(j+1).ToString
 Next

我认为这会解决你的问题