목록 상자 항목을 2 부분으로 나눕니다.

Question

임의 항목이있는 목록 상자가 있습니다. 두 부분으로 나누고 각 부분을 하나의 목록 상자에 넣고 싶습니다. 나는 그것을 할 수 있었지만 매우 지저분한 코드를 가지고 온라인에서 도움을 얻을 수 없었기 때문에 다른 방법이 있는지 묻고 싶다. 여기 내 코드가있다.

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을 가져 필요) 당신이 될 것 더 같은 결과 하나

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