VB.NET：多按钮调用同一窗体并修改对应Settings项的实现方法

我正在开发一个自定义音效板的Windows Forms应用，包含两个窗体：

• 主窗体（SoundBoardUI）：带有12个功能按钮和事件日志
• 设置窗体（SettingsForm）：用于配置按钮的音频文件路径和显示名称

目前仅实现了按钮1的配置功能，不想为12个按钮重复编写代码。已经尝试了多按钮共享点击事件的写法，现在需要实现：点击任意按钮的设置入口时，调用同一个设置窗体，并且在设置窗体中能修改对应按钮的My.Settings项。

现有代码 #

主窗体（SoundBoardUI） #

Public Class SoundBoardUI

Private WithEvents My_SettingsForm As SettingsForm
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    For Each Button As Button In Me.Controls.OfType(Of Button)()
        AddHandler Button.Click, AddressOf ChangeNr
    Next
End Sub

Private Sub ChangeNr(Sender As Object, e As EventArgs)
    If TypeOf Sender Is Button Then
        Dim SenderButton As Button = Sender
        'Make code here so I know what button is pressed in the second form.
    End If
End Sub

Private Sub Button1Settings_Click(sender As Object, e As EventArgs) Handles Button1Settings.Click
    Dim settingsForm As New SettingsForm
    AddHandler settingsForm.FormClosed, AddressOf settingForm_Formclosed
    settingsForm.Show()
End Sub

设置窗体（SettingsForm） #

Public Class SettingsForm

Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

    PathtBox.Text = OpenFileDialog1.FileName 'Path of selected file  

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles BrowsePath.Click
    OpenFileDialog1.InitialDirectory = "C:\" 'Set the directory name  
    OpenFileDialog1.Title = "Open an audio file" 'Set the title name of the OpenDialog Box  
    OpenFileDialog1.Filter = "Audio|*.mp3" 'Set the filter to display only mp3.
    OpenFileDialog1.FileName = "*.mp3" 'Set the default filename

    If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

    End If
End Sub

Private Sub SaveButton_Click(sender As Object, e As EventArgs) Handles SaveButton.Click
    My.Settings.Btn1Path = PathtBox.Text 'I'd like to automaticly chane the My.settings entry to the button pressed here.
    My.Settings.Btn1Name = NametBox.Text
    Me.Close()
End Sub
End Class

核心思路 #

通过给设置窗体传递按钮编号，让设置窗体明确要修改哪个My.Settings项；同时在主窗体中统一处理所有设置按钮的点击事件，彻底避免重复代码。

1. 修改设置窗体，添加按钮标识属性 #

在SettingsForm中新增一个公共属性，用来接收主窗体传递的按钮编号，再根据编号动态修改对应设置项：

Public Class SettingsForm
    ' 新增公共属性，存储当前要配置的按钮编号
    Public Property ButtonIndex As Integer

    ' 原有代码保持不变...

    Private Sub SaveButton_Click(sender As Object, e As EventArgs) Handles SaveButton.Click
        ' 根据按钮编号匹配对应Settings项
        Select Case ButtonIndex
            Case 1
                My.Settings.Btn1Path = PathtBox.Text
                My.Settings.Btn1Name = NametBox.Text
            Case 2
                My.Settings.Btn2Path = PathtBox.Text
                My.Settings.Btn2Name = NametBox.Text
            ' 依次补充Case 3到Case 12的逻辑
            Case 12
                My.Settings.Btn12Path = PathtBox.Text
                My.Settings.Btn12Name = NametBox.Text
        End Select
        My.Settings.Save() ' 必须调用Save才能永久保存设置
        Me.Close()
    End Sub
End Class

2. 主窗体统一绑定设置按钮的点击事件 #

先确保所有设置按钮命名规范（比如Button1Settings、Button2Settings...Button12Settings），然后在主窗体加载时统一绑定点击事件：

Public Class SoundBoardUI
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 筛选所有设置按钮并绑定统一的点击事件
        For Each btn As Button In Me.Controls.OfType(Of Button)().Where(Function(b) b.Name.StartsWith("Button") AndAlso b.Name.EndsWith("Settings"))
            AddHandler btn.Click, AddressOf SettingsButton_Click
        Next
    End Sub

    ' 所有设置按钮共用的点击事件处理方法
    Private Sub SettingsButton_Click(sender As Object, e As EventArgs)
        Dim clickedBtn As Button = DirectCast(sender, Button)
        ' 从按钮名称中提取编号（比如从"Button1Settings"提取出1）
        Dim btnIndex As Integer = Integer.Parse(clickedBtn.Name.Replace("Button", "").Replace("Settings", ""))
        
        Dim settingsForm As New SettingsForm()
        ' 传递按钮编号给设置窗体
        settingsForm.ButtonIndex = btnIndex
        
        ' 可选：加载当前按钮已有的设置到窗体控件
        Select Case btnIndex
            Case 1
                settingsForm.PathtBox.Text = My.Settings.Btn1Path
                settingsForm.NametBox.Text = My.Settings.Btn1Name
            Case 2
                settingsForm.PathtBox.Text = My.Settings.Btn2Path
                settingsForm.NametBox.Text = My.Settings.Btn2Name
            ' 依次补充Case 3到Case 12的逻辑
        End Select
        
        AddHandler settingsForm.FormClosed, AddressOf settingForm_Formclosed
        settingsForm.Show()
    End Sub

    ' 设置窗体关闭后，刷新主窗体按钮的显示名称
    Private Sub settingForm_Formclosed(sender As Object, e As FormClosedEventArgs)
        Dim settingsForm As SettingsForm = DirectCast(sender, SettingsForm)
        Select Case settingsForm.ButtonIndex
            Case 1
                Button1.Text = My.Settings.Btn1Name
            Case 2
                Button2.Text = My.Settings.Btn2Name
            ' 依次补充Case 3到Case 12的逻辑
        End Select
    End Sub

    ' 原有其他代码保持不变...
End Class

3. 进阶优化（避免重复写Case） #

如果不想写12个Case，可以用反射动态访问My.Settings的属性，大幅减少重复代码：

' 在SettingsForm的SaveButton_Click中替换Select Case为：
Dim settings = My.Settings
' 动态设置Path属性
Dim pathProp = settings.GetType().GetProperty($"Btn{ButtonIndex}Path")
pathProp.SetValue(settings, PathtBox.Text)
' 动态设置Name属性
Dim nameProp = settings.GetType().GetProperty($"Btn{ButtonIndex}Name")
nameProp.SetValue(settings, NametBox.Text)
settings.Save()

主窗体加载已有设置、刷新按钮文本时，也可以用同样的反射逻辑简化代码。

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