Невозможно добавить значения во второй Combobox

Question

Вот мой код.

например TextBox1.Text = 12,34,45,67,67

            Dim process_string As String() = TextBox1.Text.Split(New Char() {","})
        Dim process As Integer

        For Each process In process_string 
            Combo1.Items.Add(process)
            count = count + 1
        Next process
      total_process.Text = count
    End If

    Dim array(count) As String
    Dim a As Integer
    For a = 0 To count - 1
        array(a) = Combo1.Items(a).ToString
    Next

    a = 0
    For a = count To 0
        Combo2.Items.Add(array(a).ToString)
    Next

я хочу добавить значения в обратном порядке в combobox2, которые доступны в combobox1 но когда я запускаю приложение, второй выпадающий список остается пустым и не показывает никакого значения.

Answer 1

Вы указали это для цикла

 For a = count To 0

Но вам нужно добавить STEP -1, чтобы идти в обратном направлении.

 For a = count To 0 Step -1

Answer 2

2 вещи. Прежде всего, К.И.С.С. Держите это просто глупо

    For i As Integer = ComboBox1.Items.Count - 1 To 0 Step -1
        ComboBox2.Items.Add(ComboBox1.Items(i))
    Next

секунда: это не сработало, потому что вы забыли Шаг -1 в вашем последнем цикле

~~~~~~~~~~~~~~ Редактировать ~~~~~~~~~~~~~~

Сортировка данных в поле со списком должна выполняться с помощью свойства сортировки в поле со списком

ComboBox3.Sorted = True

Сортировка данных в обратном порядке должна выполняться с массивами, как вы пытались сделать раньше. Следующий код должен быть достаточным:

    Dim List As ArrayList = ArrayList.Adapter(ComboBox3.Items)

    List.Sort()
    List.Reverse()

    ComboBox4.Items.AddRange(List.ToArray)

Если вы хотите проявить творческий подход, вы можете создать собственный класс со списком и создать собственную версию отсортированного свойства, которая позволяет «сортировать по альфа», «сортировать по числовым», «сортировать по альфа» и «сортировать числовой деск "и, возможно, некоторые другие варианты. Но я бы сделал это, только если вы собираетесь использовать это во многих местах.