VB.NET窗体Paint事件动画：if循环动画末尾能否翻转曲线并让挡板转向？

嘿，我来帮你搞定这个VB.NET窗体动画的问题！你的需求分两部分：实现尖状挡板（shark flapper）的转向，以及在动画末尾翻转两条曲线——这俩都完全可以实现，我给你具体的代码和思路：

核心思路 #

我们需要用几个类级别的变量来跟踪动画状态：

• 线条的当前位置moveX
• 移动方向direction（1向右，-1向左）
• 挡板朝向flapperDirection（1向右，-1向左）
• 是否翻转曲线的标记flipCurves（布尔值，控制曲线弯曲方向）

通过Timer事件更新这些状态，再在Paint事件里根据状态绘制对应的图形。

完整代码实现 #

1. 定义类级变量 #

在窗体类的顶部添加这些变量：

Private moveX As Integer = 0 ' 线条缺口的起始X位置
Private direction As Integer = 1 ' 移动方向：1=向右，-1=向左
Private flapperDirection As Integer = 1 ' 挡板朝向：1=向右，-1=向左
Private flipCurves As Boolean = False ' 是否翻转缺口处的曲线
Private Const lineGap As Integer = 50 ' 缺口的宽度
Private Const lineHeight As Integer = 80 ' 上下两条线的垂直间距
Private Const moveSpeed As Integer = 5 ' 线条移动速度

2. Timer Tick事件处理（控制动画逻辑） #

在Timer的Tick事件里更新位置、切换状态：

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    ' 更新线条位置
    moveX += direction * moveSpeed

    ' 检测右边界（窗体宽度 - 缺口宽度，避免线条超出窗体）
    If moveX >= Me.ClientSize.Width - lineGap Then
        direction = -1 ' 转向左移动
        flapperDirection *= -1 ' 翻转挡板朝向
        flipCurves = Not flipCurves ' 切换曲线翻转状态
    ' 检测左边界
    ElseIf moveX <= 0 Then
        direction = 1 ' 转向右移动
        flapperDirection *= -1 ' 翻转挡板朝向
        flipCurves = Not flipCurves ' 切换曲线翻转状态
    End If

    ' 触发窗体重绘，更新动画帧
    Me.Invalidate()
End Sub

3. Paint事件绘制动画（核心绘制逻辑） #

在窗体的Paint事件里完成所有图形的绘制：

Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
    Dim g As Graphics = e.Graphics
    ' 开启抗锯齿，让曲线和挡板边缘更顺滑
    g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias

    ' 计算上下两条线的Y坐标（居中放置）
    Dim topY As Integer = Me.ClientSize.Height \ 2 - lineHeight \ 2
    Dim bottomY As Integer = Me.ClientSize.Height \ 2 + lineHeight \ 2
    Dim gapEndX As Integer = moveX + lineGap ' 缺口的结束X位置

    ' 绘制左右两侧的直线部分
    g.DrawLine(Pens.Black, 0, topY, moveX, topY) ' 上线左侧
    g.DrawLine(Pens.Black, gapEndX, topY, Me.ClientSize.Width, topY) ' 上线右侧
    g.DrawLine(Pens.Black, 0, bottomY, moveX, bottomY) ' 下线左侧
    g.DrawLine(Pens.Black, gapEndX, bottomY, Me.ClientSize.Width, bottomY) ' 下线右侧

    ' 绘制缺口处的曲线（根据flipCurves切换弯曲方向）
    Dim controlTopY As Integer = If(flipCurves, topY - 30, topY + 30)
    Dim controlBottomY As Integer = If(flipCurves, bottomY + 30, bottomY - 30)
    Dim controlPointTop As New Point(moveX + lineGap \ 2, controlTopY)
    Dim controlPointBottom As New Point(moveX + lineGap \ 2, controlBottomY)

    ' 用贝塞尔曲线绘制缺口的弯曲边缘
    g.DrawBezier(Pens.Black, New Point(moveX, topY), controlPointTop, controlPointTop, New Point(gapEndX, topY))
    g.DrawBezier(Pens.Black, New Point(moveX, bottomY), controlPointBottom, controlPointBottom, New Point(gapEndX, bottomY))

    ' 绘制尖状挡板（根据flapperDirection切换朝向）
    Dim flapperPoints As Point()
    If flapperDirection = 1 Then
        ' 朝向右侧的挡板
        flapperPoints = {
            New Point(moveX + lineGap \ 2, Me.ClientSize.Height \ 2 - 20),
            New Point(gapEndX, Me.ClientSize.Height \ 2),
            New Point(moveX + lineGap \ 2, Me.ClientSize.Height \ 2 + 20)
        }
    Else
        ' 朝向左侧的挡板
        flapperPoints = {
            New Point(moveX + lineGap \ 2, Me.ClientSize.Height \ 2 - 20),
            New Point(moveX, Me.ClientSize.Height \ 2),
            New Point(moveX + lineGap \ 2, Me.ClientSize.Height \ 2 + 20)
        }
    End If
    g.FillPolygon(Brushes.DarkBlue, flapperPoints) ' 填充挡板颜色
    g.DrawPolygon(Pens.Black, flapperPoints) ' 绘制挡板边框
End Sub

4. 初始化设置 #

记得在窗体的Load事件里开启Timer：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Timer1.Interval = 50 ' 调整这个值改变动画帧率（越小越快）
    Timer1.Start()
End Sub

关键细节解释 #

• 挡板转向：通过flapperDirection变量切换挡板的顶点位置，当方向变为-1时，挡板的尖部朝向左侧，反之朝向右侧。
• 曲线翻转：通过flipCurves布尔值控制贝塞尔曲线的控制点Y坐标，当flipCurves为True时，曲线向上弯曲；为False时向下弯曲，每次到达边界时切换状态，实现动画末尾翻转曲线的效果。
• 抗锯齿设置：开启SmoothingMode.AntiAlias可以让曲线和挡板的边缘更平滑，提升动画视觉效果。

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