VB.NET中将CheckBox作为参数传递时如何正常设置Checked属性

核心问题是你将控件参数声明为Control基类类型，基类本身未定义Checked属性，因此判断控件类型后需要先完成强制类型转换，才能访问CheckBox独有的属性。同时原代码的空值分支逻辑只处理了Text属性，没有兼容CheckBox的空值重置需求，也需要同步调整。

修正后的完整子程序代码如下：

Private Sub LoadControlFromDataRow(ByVal CoreCol As Control, ByVal CoreRow As DataRow, ByVal ColumnName As String)
    ' 同时兼容DBNull和Nothing两种空值场景
    Dim columnValue = CoreRow(ColumnName)
    If Not IsDBNull(columnValue) AndAlso Not IsNothing(columnValue) Then
        ' 处理文本框赋值
        If TypeOf CoreCol Is TextBox Then
            DirectCast(CoreCol, TextBox).Text = columnValue.ToString()
        End If
        ' 处理复选框赋值
        If TypeOf CoreCol Is CheckBox Then
            ' 增加布尔格式校验，避免异常值报错
            If Boolean.TryParse(columnValue.ToString(), Dim checkState) Then
                DirectCast(CoreCol, CheckBox).Checked = checkState
            Else
                DirectCast(CoreCol, CheckBox).Checked = False
            End If
        End If
    Else
        ' 空值分支分别处理两类控件
        If TypeOf CoreCol Is TextBox Then
            DirectCast(CoreCol, TextBox).Text = ""
        End If
        If TypeOf CoreCol Is CheckBox Then
            DirectCast(CoreCol, CheckBox).Checked = False
        End If
    End If
End Sub

关键调整说明 #

• 用DirectCast完成类型转换，将基类Control转为具体的控件子类，即可访问对应子类独有的属性
• 补充了空值场景下CheckBox的重置逻辑，避免空值时错误修改CheckBox的Text属性
• 增加了布尔类型转换校验，避免数据库列值格式异常导致程序崩溃
• 把不必要的ByRef改为ByVal：控件属于引用类型，即便用ByVal传递也能修改控件本身的属性，无需用ByRef

调用方式和原有逻辑基本一致：

' 填充文本框
LoadControlFromDataRow(Me.TbXMachA, r, "A Machine")
' 填充复选框
LoadControlFromDataRow(Me.CkbxCO2BoxA, r, "A CO2 Box?")

注意：调用时传入的列名需要和DataTable中的列名完全匹配，避免多空格、大小写不匹配导致的取值错误。

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