VB.Net中实现PictureBox内竖线左右扫动动画及点击形状检测

一、用Timer控件实现竖线扫行动画 #

Timer是VB.Net中实现简单帧动画的轻量方案，无需复杂线程操作：

• 在窗体上添加Timer控件，设置Interval（建议16-30ms，对应60-30帧的平滑度），初始Enabled设为False。
• 定义全局变量记录竖线位置和扫动速度，在Timer的Tick事件中更新位置并触发重绘。

代码示例：

' 全局变量：记录竖线当前X坐标、扫动速度（像素/帧）
Private currentX As Integer = 0
Private sweepSpeed As Integer = 2

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    ' 更新竖线位置
    currentX += sweepSpeed
    ' 超出右边界后重置（按需选择：也可停止Timer）
    If currentX > PictureBox1.Width Then
        currentX = 0
    End If
    ' 触发PictureBox重绘
    PictureBox1.Invalidate()
End Sub

启动动画的触发代码（比如按钮点击）：

Private Sub btnStartSweep_Click(sender As Object, e As EventArgs) Handles btnStartSweep.Click
    currentX = 0 ' 重置竖线到左边界
    Timer1.Enabled = True
End Sub

二、在Paint事件中整合竖线绘制 #

保留你已有的网格、点击图形绘制逻辑，追加竖线绘制代码：

Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint
    ' 1. 绘制原有网格（你的已有代码）
    ' ... 此处插入你的网格绘制逻辑 ...

    ' 2. 绘制用户点击过的图形（你的已有代码）
    ' ... 此处插入你的点击图形绘制逻辑 ...

    ' 3. 绘制扫动竖线
    Using pen As New Pen(Color.Red, 2) ' 自定义线条颜色、宽度
        e.Graphics.DrawLine(pen, currentX, 0, currentX, PictureBox1.Height)
    End Using
End Sub

三、检测竖线是否经过点击图形 #

先存储用户点击过的图形边界信息，再在Timer更新位置时做碰撞检测：

1. 定义存储容器记录图形边界：

' 存储所有用户点击过的图形的矩形边界（非矩形图形需自定义边界判断）
Private clickedShapes As New List(Of Rectangle)

2. 在点击事件中记录图形边界（需结合你的图形点击判断逻辑）：

Private Sub PictureBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseClick
    ' 示例：假设点击的是中心在点击位置的10x10图形，根据你的实际逻辑调整
    Dim targetRect As New Rectangle(e.X - 5, e.Y - 5, 10, 10)
    clickedShapes.Add(targetRect)
    PictureBox1.Invalidate() ' 重绘显示新点击的图形
End Sub

3. 在Timer的Tick事件中添加碰撞检测：

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    currentX += sweepSpeed
    If currentX > PictureBox1.Width Then
        currentX = 0
    End If

    ' 检测竖线是否经过已点击图形
    For Each rect In clickedShapes
        ' 竖线X坐标落在矩形左右边界之间，即判定为经过
        If currentX >= rect.Left AndAlso currentX <= rect.Right Then
            ' 此处添加经过图形后的逻辑：弹窗、标记图形等
            MessageBox.Show($"竖线经过图形：{rect.Location}")
            ' 可选：避免重复检测同一图形，可移除或标记
            ' clickedShapes.Remove(rect)
            ' Exit For ' 仅检测第一个相交图形时启用
        End If
    Next

    PictureBox1.Invalidate()
End Sub

额外说明 #

• 若使用非矩形图形（如圆形、多边形），需替换碰撞逻辑：圆形可判断竖线X到圆心的水平距离≤半径；多边形可使用点-in-多边形算法。
• 若追求更高性能，可通过Invalidate(Region)仅重绘竖线及变化区域，而非整个PictureBox。

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