VB .NET 嵌套的循环与 DrawRectangle = 滞后和消失?(阅读)

Question

我一直在做一个项目，为了确保一切正常，我创建了一段代码，可以用像素填充我的表单。

 For X As Integer = 0 To Me.Size.Width
        For Y As Integer = 0 To Me.Size.Height
            DrawPixel(Pens.BlueViolet, X, Y)
            Y += 1
        Next
        X += 1
    Next

就像打印了几个像素（左上角很少）一样，然后滞后（等待光标）......然后所有绘制的像素消失。就像它完成了绘图一样，就像"滞后？好吧，我会让它消失:P"。我尝试插入一个System.Threading.Thread.Sleep(10)但它只会使程序更加滞后。任何人都有关于为什么它没有完成绘制的想法，或者我如何在没有thread.sleep或A Timer的情况下添加一个小的时间延迟？DrawPixel也是我自己的一个子程序：

Friend Sub DrawPixel(clr As Pen, x As Integer, y As Integer)
    g.DrawRectangle(clr, New Rectangle(New Point(x, y), New Size(1, 1)))
End Sub

泰

Answer 1

绘制事件中的绘画，该事件将在系统重新绘制时保留绘图。使用 e.Graphics 对象而不是 Me.CreateGraphics。