C# VB winforms自定义控件缩放和平移功能?

C# VB winforms自定义控件缩放和平移功能?,c#,vb.net,winforms,custom-controls,gdi+,C#,Vb.net,Winforms,Custom Controls,Gdi+,我目前正在为Winforms制作一个节点图控件,该控件包含的节点基本上只是一个带有属性的“空”类,因此节点在控件中绘制,控件处理它们 我的控件需要支持缩放和平移。目前,我正在使用Graphics.ScaleTransform方法进行缩放,并使用AutoScroll进行平移 这两种方法单独使用效果很好,但同时使用它们却不起作用 为了使平移“更好”,我隐藏了滚动条,将AutoScrollMinSize设置为9000,并将AutoScrollPosition(4500)居中。所以希望你有一张画布可以画

我目前正在为Winforms制作一个节点图控件,该控件包含的节点基本上只是一个带有属性的“空”类,因此节点在控件中绘制,控件处理它们

我的控件需要支持缩放和平移。目前,我正在使用Graphics.ScaleTransform方法进行缩放,并使用AutoScroll进行平移

这两种方法单独使用效果很好,但同时使用它们却不起作用

为了使平移“更好”,我隐藏了滚动条,将AutoScrollMinSize设置为9000,并将AutoScrollPosition(4500)居中。所以希望你有一张画布可以画,这样你就可以随心所欲了

但是,在缩放(ScaleTransform)时,节点将以x的数量移动到窗体的左上角(如果缩小)或右下角(如果放大)

问题的Youtube视频:

因此,由于stackoverflow上的文本长度问题,我无法发布所有代码,因此我将尝试发布相关内容(我想我无论如何都应该这样做)

自定义控件OnPaint:

    G.TranslateTransform(AutoScrollPosition.X, AutoScrollPosition.Y)

    G.ScaleTransform(Zoom, Zoom)

    'Draw grid
    If ShowGrid Then
        Using Pen As New Pen(GridColor.ToBrush())
            For row As Integer = 0 To viewportRect.Right Step GridSize.Width
                G.DrawLine(Pen, New Point(row, 0), New Point(row, 0 + viewportRect.Bottom))
            Next

            For col As Integer = 0 To viewportRect.Bottom Step GridSize.Height
                G.DrawLine(Pen, New Point(0, col), New Point(0 + viewportRect.Right, col))
            Next
        End Using
    End If

    'Draw connections
    For Each Connection As Connection In Connections
        Connection.Draw(G)
    Next

    'Draw all the nodes
    For Each Node As Node In Nodes
        Node.Draw(G)
    Next

    'Draw the active tool (Multi select or NodeLinker)
    If ActiveTool IsNot Nothing Then
        ActiveTool.OnDraw(G)
    End If
缩放:


我是如何解决这个问题的,还是应该用另一种方法来解决这个问题(可能会画一幅图像,然后重新定位该图像,等等)?

答案是删除自动滚动,然后在缩放或平移时重新定位所有节点

缩放:


通常的方法是使用两个面板,外部面板(父面板)是自动滚动的,内部面板(嵌套)是您绘制的。通常内部是一个图片盒。。
If e.Delta < 0 Then
    NodeContainer.Zoom -= 0.1F
Else
    NodeContainer.Zoom += 0.1F
End If
  If Panning Then
            Delta = New Point(StartPoint.X - e.X, StartPoint.Y - e.Y)
            NodeContainer.AutoScrollPosition = New Point(Delta.X - NodeContainer.AutoScrollPosition.X, Delta.Y - NodeContainer.AutoScrollPosition.Y)
        End If
oldZoom = NodeContainer.Zoom

If e.Delta < 0 Then
    NodeContainer.Zoom = Math.Max(NodeContainer.Zoom - 0.1F, 0.01F)
Else
    NodeContainer.Zoom = Math.Min(NodeContainer.Zoom + 0.1F, 10.0F)
End If

For Each Node As Node In NodeContainer.Nodes
    oldZoomLocation = New Point(e.X / oldZoom, e.Y / oldZoom)
    newZoomLocation = New Point(e.X / NodeContainer.Zoom, e.Y / NodeContainer.Zoom)

    Node.Location = New Point(newZoomLocation.X - oldZoomLocation.X + Node.Location.X, newZoomLocation.Y - oldZoomLocation.Y + Node.Location.Y)
Next
Delta = New Point(e.X - StartPoint.X, e.Y - StartPoint.Y)

For Each Node As Node In NodeContainer.Nodes
    Node.Location = New Point(Node.Location.X + (Delta.X / NodeContainer.Zoom), Node.Location.Y + (Delta.Y / NodeContainer.Zoom))
Next

StartPoint = New Point(e.X, e.Y)