Visual Basic中用变量引用CheckBox控件遇类型转换错误求助

错误原因 #

你遇到的错误是命名空间冲突导致的：代码里的CheckBox被编译器错误识别为VisualStyleElement.Button.CheckBox（这是用于视觉样式定义的类，并非实际的WinForms复选框控件），而非你需要的System.Windows.Forms.CheckBox控件类。这种情况通常是因为项目中导入了System.Windows.Forms.VisualStyles命名空间，造成类型名混淆。

修复方案 #

方案1：明确指定控件的完整命名空间 #

修改代码中类型判断和转换的部分，直接用System.Windows.Forms.CheckBox明确指定目标类型，避免编译器混淆：

Public Class FormQuestions
    Private controlStates As New Dictionary(Of String, Object)
    Private Sub FormQuestions_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        Dim x As Integer, y As Integer, intIndex As Integer
        Dim matches() As Control
        ' Save the state of each CheckBox to the controlStates dictionary
        For x = 0 To 5
            For y = 1 To 8
                intIndex = (x * 8) + y
                matches = Me.Controls.Find("CheckBox" & intIndex, True)
                If matches.Length > 0 AndAlso TypeOf matches(0) Is System.Windows.Forms.CheckBox Then
                    Dim cb As System.Windows.Forms.CheckBox = DirectCast(matches(0), System.Windows.Forms.CheckBox)
                    ' 将复选框状态存入字典
                    controlStates(cb.Name) = cb.Checked
                End If
            Next
        Next
    End Sub
End Class

方案2：移除不必要的命名空间导入 #

检查代码文件顶部的Imports语句，如果存在Imports System.Windows.Forms.VisualStyles，直接删除这条语句，编译器会默认将CheckBox解析为System.Windows.Forms.CheckBox。

优化建议（可选） #

无需通过控件名循环查找，直接遍历窗体上所有复选框控件，代码更简洁高效：

Public Class FormQuestions
    Private controlStates As New Dictionary(Of String, Boolean)
    Private Sub FormQuestions_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        ' 遍历所有CheckBox控件
        For Each cb As CheckBox In Me.Controls.OfType(Of CheckBox)()
            ' 仅处理CheckBox1到CheckBox48
            If cb.Name.StartsWith("CheckBox") Then
                Dim index As Integer
                If Integer.TryParse(cb.Name.Substring(8), index) AndAlso index >= 1 AndAlso index <= 48 Then
                    controlStates(cb.Name) = cb.Checked
                End If
            End If
        Next
    End Sub
End Class

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