VB.NET中如何动态访问窗体控件？

完全可以实现，不用硬编码每个控件的配置。核心思路是通过控件名称字符串递归查找窗体（或容器）中的控件实例，然后直接修改其属性，批量处理和即时生效都没问题。

1. 编写递归查找控件的方法 #

因为控件可能嵌套在Panel、GroupBox这类容器控件里，直接用Me.Controls(name)只能找窗体顶层的控件，所以需要递归遍历所有容器：

Private Function FindControlByName(container As Control, controlName As String) As Control
    ' 先检查当前容器的直接子控件
    For Each ctrl As Control In container.Controls
        If ctrl.Name.Equals(controlName, StringComparison.OrdinalIgnoreCase) Then
            Return ctrl
        End If
        ' 递归查找子容器里的控件
        Dim foundCtrl As Control = FindControlByName(ctrl, controlName)
        If foundCtrl IsNot Nothing Then
            Return foundCtrl
        End If
    Next
    ' 没找到返回Nothing
    Return Nothing
End Function

2. 批量应用数据库配置 #

假设你已经从数据库读取了配置列表（比如用一个类ControlConfig存储：Name、IsVisible、LocationX、LocationY），直接循环处理即可：

' 假设configList是从数据库读取的配置集合
For Each config As ControlConfig In configList
    Dim targetCtrl As Control = FindControlByName(Me, config.Name)
    If targetCtrl IsNot Nothing Then
        ' 设置可见性
        targetCtrl.Visible = config.IsVisible
        ' 设置位置（注意：Location是相对于父容器的坐标）
        targetCtrl.Location = New Point(config.LocationX, config.LocationY)
        
        ' 如果需要设置其他属性，比如ComboBox的Enabled，TextBox的Text等，直接扩展即可
        ' 示例：如果是TextBox，设置Text
        If TypeOf targetCtrl Is TextBox Then
            DirectCast(targetCtrl, TextBox).Text = config.TextValue ' 假设config有TextValue字段
        End If
    Else
        ' 可选：记录找不到控件的日志，避免程序崩溃
        Debug.WriteLine($"未找到控件：{config.Name}")
    End If
Next

3. 事件触发即时生效 #

要实现事件触发时即时生效，只需要把上面的批量处理代码封装成一个方法，然后在需要的事件（比如按钮点击、下拉框选择、定时器Tick等）中调用即可：

Private Sub ApplyControlConfigs(configList As List(Of ControlConfig))
    ' 这里放上面的批量处理代码
End Sub

' 示例：按钮点击事件触发配置更新
Private Sub btnRefreshConfig_Click(sender As Object, e As EventArgs) Handles btnRefreshConfig.Click
    ' 先重新从数据库读取最新配置
    Dim configList = LoadConfigsFromDatabase() ' 你自己的数据库读取方法
    ' 应用配置
    ApplyControlConfigs(configList)
End Sub

注意事项 #

• 大小写问题：控件名称在VB.NET中默认区分大小写，查找时用StringComparison.OrdinalIgnoreCase可忽略大小写，避免因数据库存储格式导致找不到控件。
• 坐标相对性：Location属性是相对于控件父容器的坐标，确保数据库存储的坐标是对应父容器的正确值。
• 类型安全：如果要设置特定控件的属性（比如ComboBox的DropDownStyle），需要先判断控件类型再转换，避免类型转换错误。

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