VB.NET中阻止PictureBox随系统文本大小缩放的方法

1. 阻止PictureBox随系统文本大小缩放 #

有两种可靠的实现方式：

• 重写PictureBox的ScaleControl方法：直接忽略字体缩放因子，只响应DPI缩放（如果需要）

public class NonScalingPictureBox : PictureBox
{
    protected override void ScaleControl(SizeF factor, BoundsSpecified specified)
    {
        // 当父容器使用Font缩放模式时，强制不缩放
        if (Parent?.AutoScaleMode == AutoScaleMode.Font)
        {
            base.ScaleControl(new SizeF(1f, 1f), specified);
        }
        else
        {
            base.ScaleControl(factor, specified);
        }
    }
}

使用时直接替换原有的PictureBox为这个自定义控件即可。

• 嵌套无缩放容器：将PictureBox放入一个Panel中，设置Panel的AutoScaleMode = AutoScaleMode.None，同时固定Panel的尺寸，这样Panel内的PictureBox不会随系统文本缩放。

2. 检测系统文本大小变化并调整尺寸 #

如果无法阻止缩放，可通过以下方式处理：

• 获取当前缩放比例：通过Graphics的DPI值计算（系统文本缩放会映射到DPI变化）

private float GetCurrentScale()
{
    using (Graphics g = CreateGraphics())
    {
        // 96是默认100%缩放对应的DPI值
        return g.DpiX / 96f;
    }
}

• 监听缩放变化事件：注册系统显示设置变更事件，实时调整尺寸和绘制逻辑

private float originalWidth = 0;
private float originalHeight = 0;

private void Form_Load(object sender, EventArgs e)
{
    // 记录初始尺寸（基于100%缩放）
    originalWidth = pictureBox1.Width;
    originalHeight = pictureBox1.Height;
    // 注册事件
    SystemEvents.DisplaySettingsChanged += OnDisplaySettingsChanged;
}

private void OnDisplaySettingsChanged(object sender, EventArgs e)
{
    float scale = GetCurrentScale();
    // 按比例调整PictureBox尺寸
    pictureBox1.Size = new Size((int)(originalWidth * scale), (int)(originalHeight * scale));
    // 强制重绘图形，确保适配新尺寸
    pictureBox1.Invalidate();
}

关键注意点：绘制图形时必须使用相对尺寸，而非固定值。比如绘制圆弧时，半径应基于pictureBox1.ClientSize.Width / 2 * 0.8这类相对计算，而非固定的100、200等数值，这样图形会自动适配PictureBox的当前尺寸。

3. 代码格式与文件上传问题 #

• 代码格式错误：从VS复制代码时，可能携带隐藏的格式标记或行号，导致编辑器识别异常。解决方法：先将代码粘贴到记事本中，清除所有格式后，再复制到编辑器，用csharp包裹（注意反引号是英文半角），指定代码语言即可。
• 文件上传：不支持直接上传文件。如果代码过长，建议拆分关键代码块（比如只贴绘制逻辑、缩放处理的核心代码），或整理成干净的代码片段后粘贴。

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