Question

VB列表框选择内容（通过单击右侧的上下箭头来选择内容）

Private Sub Command1_Click()
Print List1.ListIndex
End Sub
为什么通过单击右侧的上下箭头来选择内容后（选择的是第一项1），再单击command1 窗体显示为-1，为列表框中的内容未选择，用箭头选择后，再单击1时，就能显示出0。我想只通过上下箭头来选择内容，然后将对应的列表项内容返回给某个变量，该如何实现？





Answer 1

希望下面代码能完成你要的效果．如果楼主还不能满意的话．．．请再说明白一点．．．

'需要控件:list1,list2,command1
Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next i
End Sub

Private Sub Form_Load()
List1.AddItem "北京"
List1.AddItem "上海"
List1.AddItem "天津"
List1.AddItem "重庆"
List1.AddItem "天津"
List1.AddItem "重庆"
List1.AddItem "天津"
List1.AddItem "重庆"
End Sub

追问

不用增加列表框，单击列表框的滚动条上的箭头的来实现选择内容，比如单击向下箭头，移向2时，（没有选中任何项），通过程序选中此项。