滚动时面板背景不刷新 (C#/VB.net)

如果您希望图像随滚动条一起滚动，您可以通过简单地扩展Panel和覆盖OnPaintBackground.

请记住，如果您这样做，您必须进行控制DoubleBuffered（这在下面的代码中为您完成）。

在这个例子中，我添加了一个“平铺”选项。所以你可以使用一个大图像，或者使用一个无缝平铺并平铺它（通过BackgroundImageLayout属性设置。所有其他选项将绘制相同）。

C＃

using System.Drawing;
using System.Windows.Forms;

public class PanelEx : Panel
{
    public PanelEx()
    {
        DoubleBuffered = true;
    }

    protected override void OnPaintBackground(PaintEventArgs e)
    {
        if (BackgroundImage != null)
        {
            if (ImageLayout.Tile == BackgroundImageLayout)
            {
                for (int x = 0; x <= DisplayRectangle.Width;
                    x += BackgroundImage.Width)
                {
                    for (int y = 0; y <= DisplayRectangle.Height;
                        y += BackgroundImage.Height)
                    {
                        e.Graphics.DrawImage(BackgroundImage,
                            new Point(x - HorizontalScroll.Value,
                                y - VerticalScroll.Value));
                    }
                }
            }
            else
            {
                e.Graphics.DrawImage(BackgroundImage,
                    new Point(-HorizontalScroll.Value, -VerticalScroll.Value));
            }
        }
        else
        {
            base.OnPaintBackground(e);
        }
    }
}

如何使用这个

1. 右键单击您的项目并在菜单中选择Addthen Class。为班级命名PanelEx.cs
2. 将上面的代码复制并粘贴到该类文件中。
3. 在包含要修改的面板的表单中，进入设计器文件（看下图）
4. 将所有实例更改System.Windows.Forms.Panel();为PanelEx();
5. 保存，进行完全重建并运行。

网络

Public Class PanelEx
    Inherits Panel

    Public Sub New()
        DoubleBuffered = True
    End Sub

    Protected Overrides Sub OnPaintBackground(e As PaintEventArgs)
        If Not BackgroundImage Is Nothing Then
            If BackgroundImageLayout = ImageLayout.Tile Then

                Dim x As Integer, y As Integer
                While x <= DisplayRectangle.Width
                    y = 0
                    While y <= DisplayRectangle.Height
                        e.Graphics.DrawImage(
                            BackgroundImage,
                            New Point(x - HorizontalScroll.Value,
                                      y - VerticalScroll.Value))
                        y += BackgroundImage.Height
                    End While
                    x += BackgroundImage.Width
                End While
            Else
                e.Graphics.DrawImage(BackgroundImage,
                                     New Point(-HorizontalScroll.Value,
                                               -VerticalScroll.Value))
            End If
        Else
            MyBase.OnPaintBackground(e)
        End If
    End Sub
End Class

如何使用这个

1. 右键单击您的项目并在菜单中选择Addthen Class。为班级命名PanelEx.vb
2. 将上面的代码复制并粘贴到该类文件中。
3. 在包含要修改的面板的表单中，进入设计器文件（看下图）
4. 将所有实例更改Panel为PanelEx
5. 保存，进行完全重建并运行。