发布网友
共3个回答
热心网友
可以按shuift或者ctrl多选,再右键选删除,也可单击单个item右键选择删除。
如果附件代码有问题,试试下面这个,我没时间改了。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With ListView1
Dim i As Integer
.Items.Clear()'清空
.View = View.Details'用报表模式显示
.FullRowSelect = True'整行选择
.ContextMenuStrip = ContextMenuStrip1'指定右键菜单的控件
.Columns.Add("ID", 100)'添加列头
.Columns.Add("啦啦啦", 200)
'加入15个数据方便测试
For i = 0 To 15
.Items.Add("项目" & i)
.Items(i).SubItems.Add("我是第" & i & "个项目")
Next
End With
End Sub
'菜单中删除的click事件
Private Sub menu_del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menu_del.Click
If ListView1.SelectedItems.Count < 1 Then
'但选中的item数量不足一个
MessageBox.Show("至少选择一个")
Else
'删除选中的那个item
ListView1.SelectedItems(0).Remove()
End If
End Sub
热心网友
给你做了个Demo。
热心网友
Private Sub ListView1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseClick
If e.Button = Windows.Forms.MouseButtons.Right Then
For Each MyItem As ListViewItem In Me.ListView1.SelectedItems
MsgBox("你按下的是鼠标右键,选中的是:" & MyItem.SubItems(0).Text)
Next
End If
End Sub