使用Graphics.DrawPolygon绘图被截断问题求助（Visual Basic）

嘿，我来帮你搞定这个绘图截断的问题！你遇到的情况其实是WinForms绘图里的常见误区，咱们一步步来解决：

问题根源 #

你现在用Me.CreateGraphics()直接获取绘图对象，这是个临时的绘图上下文——它只能在当前瞬间绘制内容，一旦窗口被遮挡、最小化或者重绘（比如拖动窗口），画的东西就会消失。而且如果你的Form客户区大小不够，超出边界的图形部分会直接被截断，这就是你只看到部分三角形的原因。

正确的解决方案 #

WinForms的标准绘图方式是在控件的Paint事件里进行，这个事件每次系统需要重绘控件时都会触发，能保证图形持续显示，而且可以完整绘制超出当前可视区域的内容（配合滚动条）。

修改后的完整代码 #

Public Class Form1
    ' 用布尔变量控制是否显示图形
    Private shouldDrawShapes As Boolean = False
    
    ' 定义三角形的顶点
    Dim A As New Point(100, 100)
    Dim B As New Point(500, 100)
    Dim C As New Point(300, 500)
    Dim trianglePoints As Point() = {A, B, C}

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        shouldDrawShapes = True
        ' 触发Form重绘，让Paint事件执行
        Me.Invalidate()
    End Sub

    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        If shouldDrawShapes Then
            ' 使用Using语句自动释放Pen资源，避免内存泄漏
            Using myPen As New Pen(Drawing.Color.Black, 1)
                ' 用Paint事件提供的e.Graphics绘图，这是系统推荐的绘图上下文
                e.Graphics.DrawPolygon(myPen, trianglePoints)
                
                ' 如果要画其他图形，比如矩形、扇形，也放在这里
                ' e.Graphics.DrawRectangle(myPen, New Rectangle(50, 50, 200, 100))
                ' e.Graphics.DrawPie(myPen, New Rectangle(100, 200, 150, 150), 0, 120)
            End Using
        End If
    End Sub
End Class

关键修改点说明 #

1. 移除全局Graphics对象：不再用Me.CreateGraphics()，而是使用Paint事件参数里的e.Graphics——这是系统专门为重绘提供的绘图上下文，能确保图形正确渲染。
2. 添加控制变量：用shouldDrawShapes来控制是否绘制图形，点击按钮后设置为True并调用Invalidate()触发重绘。
3. 资源自动释放：用Using语句创建Pen，确保绘图资源被正确回收，避免内存泄漏。
4. 解决截断问题：如果图形超出Form的可视区域，只需把Form的AutoScroll属性设置为True，系统就会自动添加滚动条，你就能看到完整的图形了！

扩展：其他图形的处理 #

你提到的矩形、扇形、线条也可以用同样的方式解决——把所有绘图代码都放在Paint事件里，就能避免截断和消失的问题啦。

内容的提问来源于stack exchange，提问作者Happy Red Maple Leaf