求WinForms下基于GDI实现无限滚动渐变背景的简洁方案

我在Stack Overflow上没找到相关解答，特此提问：有没有简洁方法实现无限滚动渐变背景（渐变偏移，可沿颜色轨迹从一侧/一角过渡到另一侧）？15年前我用VB实现过类似效果，但现在已经忘了VB相关知识。之前的VB代码实现的是边缘来回反弹的窗体背景，不是滚动效果，现在想找仅用GDI和画笔在WinForms中实现的方案，不要用XML相关技术。

原VB代码片段：

Private Sub picCanvas_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
    Dim rect As New Rectangle(-10, -10, Me.ClientSize.Width + 20, Me.ClientSize.Height + 20)
    Dim halfw As Integer = CType(Me.ClientSize.Width, Integer)
    Dim br As New LinearGradientBrush(New Point(-120, 500), New Point(Me.ClientSize.Width + 120, 0), Color.Red, Color.Blue)
    Dim color_blend As New ColorBlend
    color_blend.Colors = New Color() {Color.Black, Color.Purple, Color.Teal, Color.Purple, Color.Black}
    m_Theta += m_Delta
    color_blend.Positions = New Single() {0, 0.01, m_Theta, 0.99, 1}
    br.InterpolationColors = color_blend
    e.Graphics.FillRectangle(br, rect)
    br.Dispose()
    If (m_Theta > 0.75) Or (m_Theta < 0.25) Then m_Delta = -m_Delta
End Sub

要实现无限滚动的渐变背景，核心是让渐变的位置参数循环递增（或递减），而非原代码的来回反弹逻辑。以下是基于GDI+的WinForms实现思路和代码：

关键原理 #

• 用LinearGradientBrush配合ColorBlend定义固定的渐变色彩轨迹
• 让渐变的核心位置参数在0到1区间内循环滚动，超出边界后重置，实现无限循环效果
• 通过Timer定时触发控件重绘，保证动画平滑

C#实现代码（WinForms） #

在窗体中添加Panel（命名为panelCanvas）和Timer（命名为timerScroll，建议设置Interval为30），然后添加如下代码：

private float _scrollOffset = 0f;
private readonly float _scrollSpeed = 0.005f;

public Form1()
{
    InitializeComponent();
    timerScroll.Start();
}

private void panelCanvas_Paint(object sender, PaintEventArgs e)
{
    // 绘制区域超出面板边界，避免滚动时出现边缘留白
    var drawRect = new Rectangle(-20, -20, panelCanvas.ClientSize.Width + 40, panelCanvas.ClientSize.Height + 40);
    
    // 创建线性渐变画笔，可修改起止点调整滚动方向（示例为左上到右下）
    using var brush = new LinearGradientBrush(
        new Point(0, 0), 
        new Point(panelCanvas.ClientSize.Width, panelCanvas.ClientSize.Height), 
        Color.Black, Color.Black); // 起止颜色会被ColorBlend覆盖
    
    // 定义渐变色彩轨迹，和原代码保持一致
    var colorBlend = new ColorBlend();
    colorBlend.Colors = new[] { Color.Black, Color.Purple, Color.Teal, Color.Purple, Color.Black };
    
    // 更新滚动偏移量，超出1则重置，实现无限循环
    _scrollOffset += _scrollSpeed;
    if (_scrollOffset > 1f) _scrollOffset -= 1f;
    
    // 构造位置数组：固定两端锚点，中间渐变段随偏移滚动，处理循环边界
    colorBlend.Positions = new[]
    {
        0f,
        0.01f,
        _scrollOffset,
        _scrollOffset + 0.74f > 1f ? _scrollOffset + 0.74f - 1f : _scrollOffset + 0.74f,
        0.99f,
        1f
    };
    
    brush.InterpolationColors = colorBlend;
    e.Graphics.FillRectangle(brush, drawRect);
}

private void timerScroll_Tick(object sender, EventArgs e)
{
    panelCanvas.Invalidate(); // 触发重绘更新背景
}

VB.NET实现代码 #

如果偏好VB.NET，对应代码如下：

Private _scrollOffset As Single = 0.0F
Private ReadOnly _scrollSpeed As Single = 0.005F

Public Sub New()
    InitializeComponent()
    timerScroll.Start()
End Sub

Private Sub panelCanvas_Paint(sender As Object, e As PaintEventArgs) Handles panelCanvas.Paint
    ' 绘制区域超出面板边界，避免滚动时出现边缘留白
    Dim drawRect As New Rectangle(-20, -20, panelCanvas.ClientSize.Width + 40, panelCanvas.ClientSize.Height + 40)
    
    ' 创建线性渐变画笔，可修改起止点调整滚动方向（示例为左上到右下）
    Using brush As New LinearGradientBrush(
        New Point(0, 0),
        New Point(panelCanvas.ClientSize.Width, panelCanvas.ClientSize.Height),
        Color.Black, Color.Black) ' 起止颜色会被ColorBlend覆盖
        
        ' 定义渐变色彩轨迹，和原代码保持一致
        Dim colorBlend As New ColorBlend()
        colorBlend.Colors = New Color() {Color.Black, Color.Purple, Color.Teal, Color.Purple, Color.Black}
        
        ' 更新滚动偏移量，超出1则重置，实现无限循环
        _scrollOffset += _scrollSpeed
        If _scrollOffset > 1.0F Then _scrollOffset -= 1.0F
        
        ' 构造位置数组：固定两端锚点，中间渐变段随偏移滚动，处理循环边界
        colorBlend.Positions = New Single() {
            0.0F,
            0.01F,
            _scrollOffset,
            If(_scrollOffset + 0.74F > 1.0F, _scrollOffset + 0.74F - 1.0F, _scrollOffset + 0.74F),
            0.99F,
            1.0F
        }
        
        brush.InterpolationColors = colorBlend
        e.Graphics.FillRectangle(brush, drawRect)
    End Using
End Sub

Private Sub timerScroll_Tick(sender As Object, e As EventArgs) Handles timerScroll.Tick
    panelCanvas.Invalidate() ' 触发重绘更新背景
End Sub

自定义调整说明 #

• 修改_scrollSpeed数值可控制滚动快慢，数值越大滚动速度越快
• 调整LinearGradientBrush的起止Point，可以改变滚动方向（比如水平、垂直、任意对角线）
• 替换ColorBlend.Colors数组内的颜色，可自定义渐变色彩轨迹

内容的提问来源于Stack Exchange，提问作者MisterNad