リストボックスの項目を2つの部分に分割する

Question

私はランダムな項目を持つリストボックスを持っています。私は2つの部分に分割し、各部分を1つのリストボックスに入れたいと思っていました。私はそれをすることができましたが、私は非常に面倒なコードを手に入れました、オンラインで助けを見つけることができなかったので、それを行う別の方法があるかどうか尋ねたいだけです。ここに私のコードです。

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 
     'items count 
     Dim count_listbox1 As Integer = ListBox1.Items.Count - 1 

     'half the count - 1 (im going to use it on the for loop) 
     Dim metade_listbox1_1 As Integer = (count_listbox1/2) - 1 

     'half the count 
     Dim metade_listbox1_2 As Integer = (count_listbox1/2) 


     ' (first part of the listbox) 
     For i = 0 To metade_listbox1_1 
      list1.Items.Add(ListBox1.Items.Item(i)) 'list1 - listbox that contains 1 half 
     Next 

     ' (second part of the listbox items) 
     For i = metade_listbox1_2 To count_listbox1 
      list2.Items.Add(ListBox1.Items.Item(i)) 'list2 - listbox that contains 2 half 
     Next 

     'check if number of items its even or odd, if odd, deletes the first item of the list2, 
     'because its the same as the last item from list1 
     If eo = False Then 
      list2.Items.Remove(list2.Items.Item(0)) 
     End If 
    End Sub 

Answer 1

リストを分割する方法はたくさんあります。以下に、あなたは、この（System.Linqをインポートする必要）であろうよりような結果と均等1

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 
    For i = 0 To ListBox1.Items.Count - 1 
     Dim lstbx As ListBox = If(i Mod 2 = 0, list1, list2) 
     lstbx.Items.Add(ListBox1.Items.Item(i)) 
    Next 
End Sub 

ずつアプローチを配布することになります。
最初にsize2を数の半分に設定して、アイテムの数が奇数の場合に余分なアイテムを持たせることに注意してください。

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 
    Dim size2 as Integer = ListBox1.Items.Count/2 
    Dim size1 as Integer = ListBox1.Items.Count - size2 

    list1.Items.AddRange(ListBox1.Items.GetRange(0, size1)) 
    list2.Items.AddRange(ListBox1.Items.GetRange(size1, size2)) 
End Sub