189 8069 5689
可以按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
工具箱里有ContextMenu（.NET2.0以后名字有点变化，大概差不多），你加入窗体后就可以像编辑普通菜单那样编辑。
编辑好后，选中你要添加菜单的控件。属性窗口里有个ContextMenu属性，在里面选你刚才建立的ContextMenu
这就是普通的菜单，向上弹出，还是向下弹出，是操作系统自动判断的（根据可视的空间区域大小）打勾，很简单，只要将菜单的CheckOnClick设为True就可以了
添加工具栏
添加弹出菜单
打上名称 如果想加上 下划线 快捷功能 以+字符 就可以了
eg 文件(F)
设置图标 完成
Vb不是人机对话窗口，而是编程工具，可以编写代码进行调试执行或者生成可执行文件。
用Visual Studio .Net开发"Hello World!"程序：
我们知道"Hello World"一般是命令行程序，而这种程序在Visual Studio .Net中被称为"控制台程序"。下面是Visual Studio .Net编写控制台"Hello World！"程序的具体步骤：
（1）、启动Visual Studio .Net。
（2）、选择菜单【文件】|【新建】|【项目】后，弹出【新建项目】对话框。
（3）、将【项目类型】设置为【Visual Basic项目】。
（4）、将【模板】设置为【控制台应用程序】。
（5）、在【名称】文本框中输入【Hello World】。
（6）、在【位置】的文本框中输入【E:VS.NET项目】，然后单击【确定】按钮，则Visual Studio .Net会按照上面设定的参数创建一个控制台应用程序项目，具体如图01所示。
图01："Hello World"控制台程序的【新建项目】界面
（7）、在【解决方案资源管理器】窗口中，双击Module1.vb文件，进入Module1.vb文件的编辑界面。
（8）、Visual Studio .Net已经为产生Main()函数。在系统创建的Main()函数中加入下面一行代码就可以了：
Console.WriteLine ("Hello World!")
（9）、选择【文件】|【保存Module1.vb】菜单或者按快捷键Ctrl＋S，保存所做的修改。
（10）、此时单击快捷键Ctrl＋F5运行程序就可以得到图02所示运行界面：
用MouseUp事件里的 Button参数 1表示左键 2表示右键
建一个菜单 vbFile 子菜单vbRight:
(右键点击窗体 就会弹出 vbFile下的几个子菜单了)
Private Sub Form_Load()
vbFile.Visible = False
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button
Case 1
Print "点击了左键"
Case 2
Print "点击了右键"
PopupMenu vbFile
End Select
End Sub
----------------------------
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
PopupMenu color, 4 Or 0
End If
End Sub
是对的。 建议改成MouseUp事件，因为你看正常的弹出菜单 都是鼠标键弹起来出现的
才发现 你是想要把系统的右键弹出式菜单屏蔽吧
如下代码即可（把相应代码改成你想要的）
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
PopupMenu color, 0 Or 4'左键所触发的内容
End If
If Button = 2 Then'右键所触发的内容
Text1.Enabled = False
Text1.Enabled = True
PopupMenu color, 0 Or 4
End If
End Sub