如何在WinForm中用鼠标绘制保持指定比例的矩形？

嘿，这个需求我之前做WinForm项目的时候也碰到过！其实核心就是在鼠标拖动的过程中，实时根据你设定的比例调整矩形的宽高，而不是直接用鼠标的坐标差。咱们来一步步修改你的代码：

1. 先定义固定的宽高比变量 #

在类里添加一个变量来存储你想要的比例（比如1.5，也就是3:2的宽高比）：

Public Class Form2
    Dim mRect As Rectangle
    Dim aspectRatio As Double = 1.5 ' 这里设置你需要的宽高比，比如4:3就写4/3≈1.333
    ' ... 其他代码

2. 修改MouseMove事件的核心逻辑 #

原来的代码直接用鼠标偏移量作为宽高，现在我们要加入比例约束：

• 先计算鼠标相对于起点的横向和纵向偏移量
• 对比当前偏移的比例和目标比例，调整宽高使其符合要求
• 处理正负值，确保反向拖动（向左/向上）也能正常生成矩形

修改后的OnMouseMove方法如下：

Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs)
    If e.Button = Windows.Forms.MouseButtons.Left Then
        Dim dx As Integer = e.X - mRect.Left ' 横向偏移量
        Dim dy As Integer = e.Y - mRect.Top ' 纵向偏移量

        Dim absDx As Integer = Math.Abs(dx)
        Dim absDy As Integer = Math.Abs(dy)

        Dim newWidth, newHeight As Integer

        ' 避免除以0的情况（比如只横向拖动时）
        If absDy = 0 Then
            newWidth = dx
            newHeight = 0
        Else
            Dim currentRatio As Double = absDx / absDy
            If currentRatio > aspectRatio Then
                ' 当前宽度比例过大，按高度来计算对应宽度
                newWidth = Math.Sign(dx) * CInt(absDy * aspectRatio)
                newHeight = dy
            Else
                ' 当前高度比例过大，按宽度来计算对应高度
                newHeight = Math.Sign(dy) * CInt(absDx / aspectRatio)
                newWidth = dx
            End If
        End If

        ' 更新矩形并刷新界面
        mRect = New Rectangle(mRect.Left, mRect.Top, newWidth, newHeight)
        Me.Invalidate()
    End If
End Sub

3. 完整的代码示例 #

把所有部分整合起来，就是这样：

Public Class Form2
    Dim mRect As Rectangle
    Dim aspectRatio As Double = 1.5 ' 可修改为你需要的比例，比如2/3=0.666（竖版）

    Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
        mRect = New Rectangle(e.X, e.Y, 0, 0)
        Me.Invalidate()
    End Sub

    Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs)
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Dim dx As Integer = e.X - mRect.Left
            Dim dy As Integer = e.Y - mRect.Top

            Dim absDx As Integer = Math.Abs(dx)
            Dim absDy As Integer = Math.Abs(dy)

            Dim newWidth, newHeight As Integer

            If absDy = 0 Then
                newWidth = dx
                newHeight = 0
            Else
                Dim currentRatio As Double = absDx / absDy
                If currentRatio > aspectRatio Then
                    newWidth = Math.Sign(dx) * CInt(absDy * aspectRatio)
                    newHeight = dy
                Else
                    newHeight = Math.Sign(dy) * CInt(absDx / aspectRatio)
                    newWidth = dx
                End If
            End If

            mRect = New Rectangle(mRect.Left, mRect.Top, newWidth, newHeight)
            Me.Invalidate()
        End If
    End Sub

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Using pen As New Pen(Color.Red, 3)
            ' 注意：DrawRectangle会自动处理宽高为负的情况，不需要额外调整矩形坐标
            e.Graphics.DrawRectangle(pen, mRect)
        End Using
    End Sub
End Class

额外说明 #

• 调整比例：如果需要竖版比例（比如2:3），直接把aspectRatio改成2/3即可
• 反向拖动：代码里用Math.Sign保留了偏移量的正负，所以向左或向上拖动也能生成正确的矩形
• 精度问题：如果需要更精确的比例，可以用Double类型计算，最后转成Integer时不会有太大误差

内容的提问来源于stack exchange，提问作者Floodlight