vb.net - 如何使菜单栏下拉菜单出现在 Visual Basic 中的按钮上方

Question

在 Visual Studio 中，如何使菜单条按钮的下拉菜单出现在按钮上方，而不是在其下方，无论窗体是否位于屏幕底部（即窗口自动放置下拉菜单）如果表单位于屏幕底部，则在按钮上方，无论它是否位于底部，我都想这样做。）

Answer 1

这可能有助于为您指明正确的方向：

Private Sub HandleMouseUp(Byval Control as Object, _
      Byval e As System.Windows.Forms.MouseEventArgs)

' Checking the Mouse right Button
If e.Button = MouseButtons.Right Then
    Control.ContextMenu.Show(Control, New Point(e.X,e.Y))
End if
End sub

然后你可以从任何对象的 mouseup 事件中调用这个 sub：

Private Sub button1_MouseUp(Byval Sender as Object, _
   Byval e As System.Windows.Forms.MouseEventArgs) _
   Handles button1.MouseUp
HandleMouseUp(button1,e)
End sub

然后，您只需更改“新点（eX，eY）”以满足您的需要。您可以通过放置控件的 x 和 y 坐标并根据需要进行操作来创建更统一的外观。这篇文章是我从中提取的：http: //www.codeproject.com/Articles/8756/Context-Menu-and-Event-Handling-in-Visual-Basic-NE。

希望这可以帮助。