Как перенести значения из списка в поле со списком в VB 6.0

Question

Таким образом, у меня есть 2 списка в моей форме, в которых, если я выбрал элементы списка из listview1 и щелкнул по командной кнопке, он перенесет выбранный элемент в listview2, теперь я хочу, чтобы элементы в listview2 заполняли мое поле со списком, когда я нажимал другойКоманда button.Can пожалуйста, дайте мне предложение о том, как я могу это сделать?спасибо.

вот мой текущий код, который заполняет поле со списком первого элемента в моем listview2.

Private Sub Command3_Click()
Dim i As Integer
For i = 1 To ListView2.ListItems.Count
Next i
Combo1.AddItem (ListView2.SelectedItem)

End Sub 

Любая идея, как я могу сделать это, чтобы показать все элементы в listview2?

Answer 1

Это добавит все элементы из списка 2 в комбо.Ничего общего с выбранным элементом на данный момент.

Private Sub Command3_Click()
  Dim i As Integer

  Combo1.Clear
  For i = 1 To ListView2.ListItems.Count
    Combo1.AddItem (ListView2.ListItems(i).Text))
  Next i
End Sub