Question

所以我的表单中有2个列表视图，如果我从列表视图1中选择一个列表项并单击命令按钮，它将把选定的项转移到列表视图2，现在我希望当我单击另一个列表项时，列表视图2上的项填充我的组合框命令按钮。请给我一个有关如何执行此操作的建议吗？谢谢。

这是我当前的代码，该代码填充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

如何在VB 6.0中将值从列表框传输到组合框

1 个答案: