Visual Basic中移动屏幕图形时如何擦除原图形？

嘿，我懂你现在卡在哪了——移动图形时旧的痕迹清不掉，屏幕上一堆重复的图形，完全没法实现平滑移动对吧？这其实是WinForms GDI+绘制机制的常见小坑，咱们一步步把它搞定：

问题根源 #

你当前的写法应该是直接在某个事件（比如Timer Tick、鼠标事件）里创建Graphics对象绘制图形，但没触发窗体的重绘刷新机制。GDI+默认是在原有画面上叠加绘制的，不主动清除旧内容的话，新图形就会和旧图形叠在一起，看起来就是“多处重复显示”了。

解决方案：用重绘机制替代直接绘制 #

正确的思路是把图形的位置存在变量里，每次移动只更新位置，然后让窗体自己触发重绘——在重绘流程里先清除旧内容，再绘制新位置的图形，这样就能实现平滑移动了。

具体步骤&示例代码 #

1. 先在Form类里定义图形的核心变量（比如小球的坐标、大小）：

Public Class Form1
    ' 小球的位置与尺寸变量
    Private ballX As Integer = 100
    Private ballY As Integer = 100
    Private ballSize As Integer = 30

2. 重写Form的OnPaint方法，这是WinForms推荐的绘制入口，所有图形都在这里绘制：

Protected Overrides Sub OnPaint(e As PaintEventArgs)
    MyBase.OnPaint(e) ' 让窗体自动处理背景（清除旧的绘制内容）
    
    ' 获取用于绘制的Graphics对象
    Dim g As Graphics = e.Graphics
    ' 绘制小球（这里用椭圆模拟，你可以换成自己的大炮/球体图形）
    g.FillEllipse(Brushes.DarkOrange, ballX, ballY, ballSize, ballSize)
End Sub

3. 当需要移动图形时，只更新位置变量，再调用Invalidate()触发重绘：
   比如用Timer实现自动移动：

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    ' 移动小球（每次X坐标加5，你可以改成自己的移动逻辑）
    ballX += 5
    ' 超出窗体范围就重置位置
    If ballX > Me.ClientSize.Width Then
        ballX = -ballSize
    End If
    ' 触发重绘，让OnPaint重新执行
    Me.Invalidate()
End Sub

为啥原来的写法不行？ #

你之前代码里Dim ball As Graphics = Graph...这种直接创建Graphics对象的方式，绕过了窗体的重绘流程。每次绘制都是在原有画面上叠加，没有清除之前的图形，自然会留下一堆痕迹。而用OnPaint+Invalidate()的方式，每次重绘前窗体都会自动用背景色清除旧内容，再绘制新位置的图形，就能实现平滑移动了。

如果你的大炮或者其他图形也需要移动，只需要给它们也定义对应的位置变量，然后在OnPaint里一起绘制就行啦！

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