Question

关于VB中列表框的问题。

三个学生的成绩被添加到列表框里了
我要双击某一行（就是某个学生的成绩）会出现一个对话框，我就可以改成绩了
或则点击选中某一行，我再点删除按钮，就可以删除了。
我想问怎么实现列表框选中某一行，或则是双击某一行。这个属性是什么？
双击空白处可以出现添加成绩的对话框。。

Answer 1

删除成绩的代码：

Private Sub Command1_Click()

On Error GoTo er

    List1.RemoveItem (List1.ListIndex)

    Exit Sub

er:

    MsgBox "请选择要删除的成绩。"

End Sub

Private Sub Form_Load()

    List1.AddItem "80"

    List1.AddItem "75"

    List1.AddItem "86"

End Sub

Private Sub List1_DblClick()

    Form2.Show

    Form2.Text1 = Form1.List1.Text

End Sub

'====================================

修改成绩代码：

Private Sub Command1_Click()

    If Text1 = "" Then

        MsgBox "成绩不能为空"

    Else

        Form1.List1.AddItem Form2.Text1

        Form1.List1.RemoveItem Form1.List1.ListIndex

    End If

End Sub

Answer 2

实现列表框选中某一行
例如：选中第一行
List1.ListIndex = 0
Private Sub List1_DblClick()
a = InputBox("")
List1.AddItem a

End Sub

Answer 3

Private Sub Command1_Click()  '删除按钮

    List1.RemoveItem List1.ListIndex

End Sub

Private Sub Form_Click() '单击空白处添加成绩

    List1.AddItem InputBox("请输入新的成绩", "添加成绩")

End Sub

Private Sub List1_DblClick() '双击修改成绩

    List1.List(List1.ListIndex) = InputBox("请输入新的成绩", "修改成绩", List1.Text)

End Sub

Answer 4

List1.List(List1.ListIndex) = InputBox("要修改")
List1.RemoveItem List1.ListIndex