listbox的问题

Question

请教大家：往listbox添加、删除、清空、上移一位、下移一位的代码？（通过按钮或菜单点击）

Answer 1

手头现在没有VB，不好直接列出源码，不过可以写出方法listbox 有个Additem 方法是用来添加的，相应有一个remove是用来册除的，它们的参数好像都是列表项的index,不过additem 可以不要index,只跟要添加的字符串。上移和下移是通过listbox的listindex（你所选定的那个项的index)属性控制的，它的值是一个数值，比如，上移一行就是listbox1.listindex=listbox1.listindex-1,而下移一行就是+1了。

Answer 2

Private Sub Command1_Click()
    '添加
    List1.AddItem Text1.Text
End SubPrivate Sub Command2_Click()
    '删除
    If (List1.ListIndex > -1) Then
        Call List1.RemoveItem(List1.ListIndex)
    End If
End SubPrivate Sub Command3_Click()
    '下移
    Dim x, x1
    
    If (List1.ListIndex > 0) Then
        x1 = List1.List(List1.ListIndex)
        x = List1.ListIndex
        Call List1.RemoveItem(List1.ListIndex)
        List1.AddItem x1, x - 1
    End If
End SubPrivate Sub Command4_Click()
    '上移
    Dim x, x1
    
    If ((List1.ListIndex < List1.ListCount - 1) And (List1.ListIndex > -1)) Then
        x1 = List1.List(List1.ListIndex)
        x = List1.ListIndex
        Call List1.RemoveItem(List1.ListIndex)
        List1.AddItem x1, x + 1
    End If
End Sub

Answer 3

1、可以，例如：
   List1.AddItem "hello world"
2、List1.Clear

Answer 4

List1.AddItem "hello world"
要在代码里写，就不能在listbox里写，然后读取么？谢谢

Answer 5

'清空
Private Sub Command5_Click()
    
    List1.ClearEnd Sub

Answer 6

什么叫在listbox里面写，不写代码怎么添加项呢？

Answer 7

Private Sub Command1_Click()
    '添加
    List1.AddItem "要添加的字符串"
End Sub

Answer 8

我是在做作业，因为题目没要求用文本框，只是提示使用inputbox函数从用户接受输入值，不知怎么接受法？谢谢

Answer 9

Private Sub Command6_Click()
    Dim s
    
    s = InputBox("请输入添加的内容")
    If (s <> "") Then
        List1.AddItem s
    End If
End Sub

Answer 10

Private Sub Command1_Click()
    '添加
    Dim a As String
    a = InputBox("输入数据", "输入")
    List1.AddItem a
End Sub
其它得原理相同：）

Answer 11

你前面提到的VB里面都有现成的代码，只要把代码加进去，就在VB的目录下面，好像是在VB98下面的一个什么目录有。那里面只用了加了三个，是在FROM—LOAD里面回进去的，kk=inputbox()KK就是他所输入的东西了

Answer 12

大功告成，多谢各位大哥啦！
顺便问“java初学者”，你是dujiaxin吗？