十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
你已经有了“鼠标右键点击的事件”
青州ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景,ssl证书未来市场广阔!成为成都创新互联的ssl证书销售渠道,可以享受市场价格4-6折优惠!如果有意向欢迎电话联系或者加微信:13518219792(备注:SSL证书合作)期待与您的合作!
说明你肯定已经有了if e.button=windows.forms.mousebuttons.right then
你只需要找到这条语句,通常这句话应该在你的mouseclick事件中。
这条语句改成
if e.button=windows.forms.mousebuttons.left or e.button=windows.forms.mousebuttons.right then
就可以了!
^_^
上面的回答不完美,在窗口的任意地方右击都会弹出窗口,所以要力求完美,必须先判断红框的坐标,在红框范围内再弹出窗口 If e.Button = Windows.Forms.MouseButtons.Right Then If e.X 153 And e.X 601 And e.Y 1 And e.Y 25 Then '红框的坐标范围,在这个范围内右击有效(获取的技巧见下面) Form2.ShowDialog() End If End If 小技巧: 如何获取你限定的红色框的范围? 用mousemove事件和一个label控件做测试: Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove Label1.Text = e.X "=" e.Y End Sub 记录下坐标即可!
你是想使用右键菜单吧?
例如给picturebox添加右键菜单可以这样:
从工具箱拖一个ContextMenuStrip到窗体上,然后自己添加你喜欢的菜单项,然后把PictureBox的ContextMenuStrip属性设置为你你刚添加的哪个ContextMenuStrip,下拉列表里会有你刚刚添加的控件的!
如果是窗体右键单击事件,是
Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
If e.Button = Windows.Forms.MouseButtons.Right Then
'这里写你要的代码
End If
End Sub
但是如果只是右键单击就弹出菜单的话没必要这样,只需要在窗体上放置一个ContextMenuStrip控件,然后在Form的ContextMenuStrip属性中绑定这个控件就可以了。
需要设置一个右键菜单单击的类,然后用集合把所有菜单事件组合起来。百度一下VB6,MyApp.CommandBars("Cell").Controls.Add(MsoControlType.msoControlButton, Before:=1),基本代码都有了