在vb.net中的图片框上移动点

Question

我有一个图片框，需要在给定坐标处绘制一个红色像素。 该像素将移动，并且当我分配新位置时，旧位置将被删除，因此在任何给定时间只有一个像素为红色。 如果可能的话，此像素为50％透明会很好。

最关键的是它必须快速。 它仅用于显示图像上正在处理的当前位置，因此必须确保它不会减慢主程序的速度。

能做到吗？ 谢谢

Answer 1

除了汉斯的评论：

Dim currentPoint As Point = Point.Empty 
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
    ' Clear previous pixel
    Dim invalidRect As Rectangle = New Rectangle(currentPoInteger.X,currentPoInteger.Y, 1, 1) 
    pictureBox1.Invalidate(invalidRect)

    ' Move to next point some how
    currentPoint.X = currentPoint.X + 1

    ' Invalidate to draw new pixel
    invalidRect = New Rectangle(currentPoInteger.X, currentPoInteger.Y, 1, 1)
    pictureBox1.Invalidate(invalidRect)
End Sub

Private  Sub pictureBox1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles pictureBox1.Click
    If e.ClipRectangle.Contains(currentPoint) Then
        e.Graphics.FillRectangle(Brushes.Red, currentPoInteger.X, currentPoInteger.Y, 1, 1)
    End If
End Sub