Question

VB中如何删除一项

Private Sub Command6_Click()
If List1.ListIndex <> -1 Then
If MsgBox("确认要删除本条信息!", vbOKCancel + vbQuestion, 标题) = vbOK Then
List1.RemoveItem List1.ListIndex
End If
End If
End Sub
这个程序怎么删不了呢？

Answer 1

Private Sub Command6_Click()
If List1.ListIndex <> -1 Then
If MsgBox("确认要删除本条信息!", vbyesno + vbQuestion, 标题) = vbyes Then
List1.RemoveItem List1.ListIndex
End If
End If
End Sub

删除不了是因为你没有选中列表项 或者 列表无项目

Answer 2

使用控件的属性将该控件显示取消就行了嘛，在窗体上画圆可以使用函数来完成呀。