2D绘图：按钮——重绘之谜

Question

我有一个有趣的任务，即使用 VB.NET 绘制一些图表。到目前为止，我读到的有关 GDI+ 和 e.graphics 的所有内容都非常奇怪。我想做的就是

1) 单击按钮 1 计算一些坐标

2) 单击按钮 2 用按钮 1 中的数字绘制一条线

3) 单击按钮 1 以获取新坐标

4) 单击按钮 2 以绘制上一条线和新线。

5) 单击按钮 3 清除图表。

因此，我决定在名为 panel1 的面板上绘制所有内容。我有一个在屏幕上绘制的例程，称为绘制线，

Private Sub drawlines(ByVal g As Graphics, ByVal c As Color)
  Dim p As New Pen(c, 1)
  g.DrawLine(p, xStart, yStart, xEnd, yEnd)
  p.Dispose()
End Sub

以及其他例程：

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
  'AddHandler Panel1.Paint, AddressOf DrawLine
  GraphicsHandler = Panel1.CreateGraphics
End Sub

Private Sub drawlines(ByVal g As Graphics, ByVal c As Color)
  Dim p As New Pen(c, 1)
  g.DrawLine(p, xStart, yStart, xEnd, yEnd)
  p.Dispose()
End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
  'GraphicsHandler = Panel1.CreateGraphics
  GraphicsHandler.DrawLine(myPen, 10, 10, 200, 100)
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
  xStart = CInt(Math.Ceiling(Rnd() * 200))
  yStart = CInt(Math.Ceiling(Rnd() * 100))
  xEnd = CInt(Math.Ceiling(Rnd() * 200))
  yEnd = CInt(Math.Ceiling(Rnd() * 100))
  Me.Panel1.Invalidate()
End Sub

Private Sub Panel1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles Panel1.Paint
  drawlines(e.Graphics, Color.Blue)
End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
  GraphicsHandler.Clear(Color.White)
End Sub

到目前为止，仅使用 GraphicsHandler 工作正常，但每次我尝试最小化窗口或绘制新线时，前面的线都会被擦除。有好心人可以向我解释一下执行上述简单 1-5 步的正确方法吗？例如，如何从按钮调用drawlines()？

Answer 1

.NET 使用 WinForms 和 GDI+ 实现了全新的图形操作模型。在这个美丽的新世界中，您旧的 VB6 技能将无法为您提供帮助。

因此，首先要放弃 GraphicsHandler。您的所有绘画都应通过面板的 Paint 事件完成。

您应该将每一行存储在表单级别的数组或 List(Of Point) 中。然后每次调用 Paint 事件时，您都会再次绘制所有线条。与 VB6 控件不同，.NET 控件不会记住从一个 Paint 事件到下一个 Paint 事件的图形状态。

如果您需要在按钮 Click 事件结束时强制重绘，您可以调用 Panel.Invalidate()

PSEUDOCODE:

Private myCoordinates As List(Of Point) = New List(Of Point)

Sub Button_click(sender, e)
  '' Store new coordinate
  myCoordinates.Add(New Point(x, y))
  myCoordinates.Add(New Point(x, y))
  myPanel.Invalidate()
End Sub


Sub Panel_Paint(sender, e) Handles myPanel.Paint
  For tIndex As Int32 = 0 To myCoordinates.Count - 1 Step 2
    e.graphics.DrawLine(myCoordinate(tIndex), myCoordinates(tIndex+1))
  Next
End Sub