大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
在你的主窗体里找到MouseDown事件
创新互联是少有的成都网站设计、成都网站制作、营销型企业网站、小程序开发、手机APP,开发、制作、设计、外链、推广优化一站式服务网络公司,2013年至今,坚持透明化,价格低,无套路经营理念。让网页惊喜每一位访客多年来深受用户好评
如果是任意点击的用下面的代码就足够了
如果一定要是边框的话你要给出边框的高度(以像素为单位)
我的QQ:575297577
Private Sub 主窗体_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
你的窗体.Show()
End If
End Sub
你已经有了“鼠标右键点击的事件”
说明你肯定已经有了if e.button=windows.forms.mousebuttons.right then
你只需要找到这条语句,通常这句话应该在你的mouseclick事件中。
这条语句改成
if e.button=windows.forms.mousebuttons.left or e.button=windows.forms.mousebuttons.right then
就可以了!
^_^
需要设置一个右键菜单单击的类,然后用集合把所有菜单事件组合起来。百度一下VB6,MyApp.CommandBars("Cell").Controls.Add(MsoControlType.msoControlButton, Before:=1),基本代码都有了
如果是窗体右键单击事件,是
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属性中绑定这个控件就可以了。
你是想使用右键菜单吧?
例如给picturebox添加右键菜单可以这样:
从工具箱拖一个ContextMenuStrip到窗体上,然后自己添加你喜欢的菜单项,然后把PictureBox的ContextMenuStrip属性设置为你你刚添加的哪个ContextMenuStrip,下拉列表里会有你刚刚添加的控件的!