Question

我有一个节点图控件，它继承自ContainerControl并且有一个节点列表，节点不会从任何地方继承，只是由几个方法和一些属性组成。

我需要能够右键单击一个节点，然后在该位置显示ContextMenuStrip。我可以做得很好，但麻烦开始的地方是节点图控制扩展内容的能力。

当控件放大时，ContextMenuStrip会被偏移。我应该注意这一点，因为我能够正确地找出鼠标坐标是否在节点范围内，但由于某种原因，ContextMenuStrip不会显示在鼠标坐标处。

这是一个展示问题的视频： https://youtu.be/QNqQnWSENN8

我很抱歉，但由于这些愚蠢的限制，我无法发布我的大部分代码，所以我会尝试提供与问题相关的内容。

所以我目前在节点图的MouseDown事件上做的是：

Public Overrides Sub OnMouseDown(e As MouseEventArgs)
    Dim selectedNode = From n As Node In NodeContainer.Nodes Where n.Rectangle.Contains(e.Location) Select n
    If selectedNode.Count = 1 Then
        If NodeContainer.SelectedNodes.Count < 2 Then : NodeContainer.SelectNodeContainer() : End If
        NodeContainer.SelectNode(selectedNode.LastOrDefault(), False)
        NodeContainer.NodeContextMenuStrip.Show(NodeContainer, e.Location) 'Show node cms
    Else
        NodeContainer.SelectNodeContainer()
        NodeContainer.NodeContainerContextMenuStrip.Show(NodeContainer, e.Location) 'Show container cms
    End If
End Sub

该方法给出了这个MouseEventArgs对象：

Dim ev As New MouseEventArgs(e.Button, e.Clicks, (e.X - AutoScrollPosition.X) / Zoom, (e.Y - AutoScrollPosition.Y) / Zoom, e.Delta)

基本上我是这样做的。

我尝试了几件事：

从show方法中删除NodeContainer并将位置转换为屏幕坐标，但这不起作用，至少不是我的方式。
我尝试将节点的位置和大小添加到e.Location，显然也没有。

希望你能提供帮助，谢谢。

Answer 1

解决方法是为方法提供原始的MouseEventArgs对象，然后在方法中创建新的MouseEventArgs对象。

所以（前面和后面的*行已被插入或更改）：

Public Overrides Sub OnMouseDown(e As MouseEventArgs)
*Dim ev As New MouseEventArgs(e.Button, e.Clicks, (e.X - AutoScrollPosition.X) / Zoom, (e.Y - AutoScrollPosition.Y) / Zoom, e.Delta)*

Dim selectedNode = From n As Node In NodeContainer.Nodes Where n.Rectangle.Contains(*ev.Location*) Select n
If selectedNode.Count = 1 Then
    If NodeContainer.SelectedNodes.Count < 2 Then : NodeContainer.SelectNodeContainer() : End If
    NodeContainer.SelectNode(selectedNode.LastOrDefault(), False)
    NodeContainer.NodeContextMenuStrip.Show(NodeContainer, e.Location) 'Show node cms
Else
    NodeContainer.SelectNodeContainer()
    NodeContainer.NodeContainerContextMenuStrip.Show(NodeContainer, e.Location) 'Show container cms
End If
End Sub

VB.NET ContextMenuStrip未显示在实际位置GDI +控件上

1 个答案: