VB.NET动态创建窗体控件函数报错：无法传递控件类型参数

你遇到的错误BC30109 'Label'是类类型，不能用作表达式，核心原因是混淆了控件类型和控件实例：你调用函数时传递的Label是类的类型，而原函数要求传入一个已经创建好的Control实例，所以编译器报错。

以下是两种可行的修正方案，适配动态创建任意Control子类控件的需求：

方案一：泛型函数（推荐，类型安全） #

利用泛型约束，直接指定要创建的控件类型，自动实例化并配置属性：

' 泛型约束：T必须是Control子类，且有无参构造函数
Private Function AddNewControl(Of T As {Control, New})(ByRef index As Integer, container As Control) As T
    ' 创建指定类型的控件实例
    Dim newControl As New T()
    
    ' 配置控件位置与文本
    newControl.Top = 560 + (index * 27)
    newControl.Left = 100
    newControl.Text = $"{GetType(T).Name} {index}"
    
    ' 添加到目标容器
    container.Controls.Add(newControl)
    
    ' 自动更新外部计数器（如果需要）
    index += 1
    
    Return newControl
End Function

调用方式： #

' 创建Label控件
Dim newLabel = AddNewControl(Of Label)(concounter, TableLayoutPanel1)

' 创建Button控件
Dim newButton = AddNewControl(Of Button)(concounter, TableLayoutPanel1)

方案二：通过Type参数创建（适合动态指定类型场景） #

如果需要从字符串或其他动态来源获取控件类型，可以用反射创建实例：

Private Function AddNewControlByType(ByRef index As Integer, container As Control, controlType As Type) As Control
    ' 校验传入类型的合法性
    If Not GetType(Control).IsAssignableFrom(controlType) OrElse controlType.GetConstructor(Type.EmptyTypes) Is Nothing Then
        Throw New ArgumentException("必须传入Control的子类，且该类具有无参构造函数")
    End If
    
    ' 反射创建控件实例
    Dim newControl = DirectCast(Activator.CreateInstance(controlType), Control)
    
    ' 配置控件属性
    newControl.Top = 560 + (index * 27)
    newControl.Left = 100
    newControl.Text = $"{controlType.Name} {index}"
    
    ' 添加到容器
    container.Controls.Add(newControl)
    
    ' 更新计数器
    index += 1
    
    Return newControl
End Function

调用方式： #

' 创建Label控件
Dim newLabel = AddNewControlByType(concounter, TableLayoutPanel1, GetType(Label))

' 创建Button控件
Dim newButton = AddNewControlByType(concounter, TableLayoutPanel1, GetType(Button))

原函数的问题说明 #

1. 参数Objectn As Control要求传入已存在的控件实例，但你需要的是动态创建新实例，逻辑完全不符；
2. 局部变量newObject +=1不会影响外部的concounter，需要将参数改为ByRef index As Integer才能实现计数器自增。

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