Question

vb列表框的题

在窗体Form1上设置一个列表框，单击列表框中的某数据项，则把该数据添加到列表框尾部
求程序的写法，谢谢。么么哒。

Answer 1

代码如下：
Private Sub Form_Load()
For i = 0 To 10
    List1.AddItem "这是第" & i
Next
End Sub
Private Sub List1_Click()
    Dim str As String
    If List1.ListIndex > -1 Then str = List1.List(List1.ListIndex) '获取选中内容
    List1.RemoveItem List1.ListIndex '删除选中项
    List1.AddItem str '重新添加项
End Sub

追问

不用删除之前的项，直接在后面加一项，应该怎么写，谢谢。

追答

去掉删除的代码就可以的。

代码中去掉这行  List1.RemoveItem List1.ListIndex '删除选中项

上面的代码后面都做了功能注释的。

Private Sub Form_Load()
For i = 0 To 10
    List1.AddItem "这是第" & i
Next
End Sub
Private Sub List1_Click()
    Dim str As String
    If List1.ListIndex > -1 Then str = List1.List(List1.ListIndex) '获取选中内容
    List1.AddItem str '重新添加项
End Sub

追问

谢谢。