[vb列表框]如果没有选中项目,则给出提示"请选择删除的项目" &添加文本框时,放在列表框的第一项

Question

[vb列表框]如果没有选中项目,则给出提示"请选择删除的项目"

添加文本框时,放在列表框的第一项

Answer 1

Private Sub Command1_Click() '删除选中的一项
If List1.ListIndex >= 0 Then
List1.RemoveItem (List1.ListIndex)
Else
MsgBox "请先选择要删除的一项", vbOKOnly, "提示"
End If
End Sub

Private Sub Command2_Click() '将Text1中的内容添加到List的第一项
List1.AddItem Text1.Text, 0
End Sub