小编tom*_*tom的帖子

我试图使球在屏幕上弹跳，这主要是与每次移动时令人讨厌的闪烁分开。

我已经搜索了一段时间，大多数站点都告诉您启用双缓冲，这虽然有所帮助，但仍然闪烁不佳。

有人对如何解决此问题有任何建议吗？

谢谢 ：）

我的代码：

Imports System.Drawing
Public Class Form1

    Public gr As Graphics
    Public XSpeed As Integer = 2
    Public YSpeed As Integer = 2
    Public ParticleCoord(1) As Integer
    Public Blackbrush As New SolidBrush(Color.Black)



    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        gr = Me.CreateGraphics()

        YSpeed = CInt(Math.Ceiling(Rnd() * 10))
        XSpeed = CInt(Math.Ceiling(Rnd() * 10))

        ParticleCoord = {50, 50}

        Timer.Enabled = True

    End Sub

    Private Sub ParticleMove(ByRef XSpeed, ByRef YSpeed)
        If (ParticleCoord(0) < (12 + 1189) …