启动时通过代码调整ToolStrip按钮图片大小并加载用户配置

我明白你想把自定义的ToolStrip按钮图片尺寸存在My.Settings里，程序启动时自动加载并应用到所有ToolStrip上——这完全是可行的，我来帮你完善这个实现，解决可能遇到的细节问题。

第一步：配置My.Settings项 #

首先你需要确保My.Settings里已经创建了对应的设置项：

• 打开项目的属性 → 设置标签页
• 添加一个名为ToolStripImgScalingSize的设置，类型选择Integer，默认值可以设为你常用的尺寸（比如32）
• 如果你还需要保存背景色，同样添加ToolStripBGColor（类型Color）

第二步：完善启动加载代码 #

你已经写了一部分启动代码，但需要补充递归获取所有ToolStrip的方法，以及完整的应用逻辑：

首先实现一个递归获取所有控件的辅助方法，这样能抓到嵌套在Panel、GroupBox里的ToolStrip：

Private Function GetAllControls(container As Control) As IEnumerable(Of Control)
    Dim controls = container.Controls.Cast(Of Control)()
    Return controls.Concat(controls.SelectMany(Function(c) GetAllControls(c)))
End Function

然后在窗体的Load事件里完整应用设置：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 获取当前窗体中所有的ToolStrip控件
    Dim allToolStrips = GetAllControls(Me).OfType(Of ToolStrip)().ToList()
    
    For Each ts In allToolStrips
        ' 加载并应用背景色设置
        ts.BackColor = My.Settings.ToolStripBGColor
        ' 加载图片缩放尺寸并应用
        Dim targetSize = My.Settings.ToolStripImgScalingSize
        ts.ImageScalingSize = New Size(targetSize, targetSize)
        ' 刷新控件确保更改生效
        ts.Refresh()
    Next
End Sub

第三步：添加修改并保存设置的逻辑（可选） #

如果需要让用户在程序运行时修改尺寸并保存，可以加一段这样的代码（比如在设置按钮的点击事件里）：

Private Sub btnSaveSettings_Click(sender As Object, e As EventArgs) Handles btnSaveSettings.Click
    Dim newSize As Integer
    ' 假设用户在txtImgSize文本框中输入新尺寸
    If Integer.TryParse(txtImgSize.Text, newSize) AndAlso newSize > 8 AndAlso newSize < 128 Then
        ' 更新设置并保存
        My.Settings.ToolStripImgScalingSize = newSize
        My.Settings.Save()
        
        ' 立即应用新尺寸到所有ToolStrip
        For Each ts In GetAllControls(Me).OfType(Of ToolStrip)()
            ts.ImageScalingSize = New Size(newSize, newSize)
            ts.Refresh()
        Next
        
        MessageBox.Show("设置已保存并生效！")
    Else
        MessageBox.Show("请输入有效的尺寸（8-128之间的整数）")
    End If
End Sub

注意事项 #

• 确保ToolStripImgScalingSize的默认值合理，避免设置过小（比如小于8）或过大（比如超过128）导致显示异常
• 如果你的程序中有动态添加的ToolStrip或按钮，在添加完成后记得重新调用加载设置的逻辑，确保新控件也能应用自定义尺寸
• My.Settings.Save()会把设置保存到用户目录下的配置文件里，下次启动程序时会自动加载

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