Question

vb.net 关于左键点击弹出菜单的问题

If e.Button = 1048576 Then
Me.ContextMenuStrip1.Show(e.X, e.Y)
End If
用这个代码已经实现了左键点击弹出菜单了，但是为什么每次弹出的菜单都不在一个位置啊，而且离鼠标的距离都不一样，这是为什么啊，请高手来帮忙啊，看下啊，很急

Answer 1

控件.ContextMenuStrip=ContextMenuStrip1;
c#是这么写的,弹出菜单相对鼠标是一个位置.
vb应该也一样.
你目前的办法是自己控制弹出菜单显示的位置,但是你的坐标没有控制好,注意世界坐标和控件坐标的区别,做个相应的转换,还是可以实现的.

Answer 2

Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
If e.Button = Windows.Forms.MouseButtons.Left And e.Clicks = 1 Then
Me.ContextMenuStrip1.Show(Me, e.Location)
End If
End Sub
最后面还可以加一个参数，控制菜单相对于弹出点的位置。

Answer 3

Private Sub PictureBox1_DoubleClick(sender As Object, e As EventArgs) Handles PictureBox1.DoubleClick
Me.ContextMenuStrip1.Show(PictureBox1, MyLocation)
End Sub
Private MyLocation As Point
Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
MyLocation.X = e.X
MyLocation.Y = e.Y
End Sub
我这里是在PictureBox1上双击，要调出菜单。道理应该是一样的。 就是定义一个字段“MyLocation”，在PictureBox1_MouseDown（）事件中先获取这个坐标，然后，在双击事件中调用这个坐标。

Answer 4

If e.Button = 1048576 Then
Me.ContextMenuStrip1.Show(MousePosition)
End If