Visual Studio VB.NET WinForm坐标系异常：DrawLine绘制问题求助

问题原因 #

• WinForms窗体的Size属性包含标题栏、边框等非客户区域的尺寸，你设置的400×400是整个窗体的总大小，实际可绘图的客户区（ClientArea）尺寸小于该值，因此(400,400)坐标会落在窗体可视区域之外。
• 直接在类初始化时创建Graphics对象（Me.CreateGraphics）的方式存在缺陷：该对象是临时绘图对象，当窗体被刷新（如最小化恢复、遮挡后显示）时，绘制的内容会丢失。

解决方法 #

1. 使用客户区尺寸作为绘图边界 #

放弃固定的400数值，改用窗体的ClientSize.Width和ClientSize.Height作为终点坐标，确保直线延伸到客户区的右下角。

2. 在Paint事件中绘图（推荐方案） #

WinForms的标准绘图流程是在控件的Paint事件中完成，该事件会在窗体需要重绘时自动触发，传入的PaintEventArgs包含的Graphics对象是当前绘制周期的专用对象，不会出现内容丢失的问题。

修正后的代码示例：

Public Class Form1
    Dim penReg As Pen = New Pen(Brushes.Black, 10)

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 点击按钮触发窗体重绘
        Me.Invalidate()
    End Sub

    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
        ' 基于客户区尺寸绘制对角线
        e.Graphics.DrawLine(penReg, 0, 0, Me.ClientSize.Width, Me.ClientSize.Height)
    End Sub
End Class

临时绘图方案（不推荐） #

如果只需要临时绘制（不介意窗体刷新后内容消失），可以修改按钮点击事件代码，使用客户区尺寸：

Public Class Form1
    Dim penReg As Pen = New Pen(Brushes.Black, 10)

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim grcForm As Graphics = Me.CreateGraphics
        grcForm.DrawLine(penReg, 0, 0, Me.ClientSize.Width, Me.ClientSize.Height)
    End Sub
End Class

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