Question

vb列表框删除问题

vb列表框删除问题这样编写代码为什么有错误啊，就想单击按钮，删除选中的列表项

Answer 1

'VB6 的例子
'请自行添加 List1　和　Command1
Option Explicit

Private Sub Command1_Click()
    If List1.ListIndex > -1 Then
        List1.RemoveItem List1.ListIndex    '删除选中的项
    End If
End Sub

Private Sub Form_Load()
    List1.AddItem "1"
    List1.AddItem "2"
    List1.AddItem "3"
End Sub