你指的是ListView控件吧? If ListView1.SelectedItemNothing Then ListView1.ListItems.Remove ListView1.SelectedItem.Index End If 要是有CheckBox的话: For I = 1 To ListView1.ListItems.Count If ListView1.ListItems(I).Checked = True Then ListView1.ListItems.Remove I End If Next参考资料:http://www.setupz.com 软件安装在线