VB.NET检查注册表键存在时标签切换失效问题如何解决

你当前的代码语法没有错误，标签状态无法正常切换的核心原因是注册表读取逻辑踩了两个系统级的坑，和判断逻辑本身无关：

• 注册表重定向问题：如果你的程序编译目标为x86（32位）平台，在64位Windows系统下运行时，.NET框架会默认将所有HKLM路径的注册表访问重定向到Wow6432Node子节点下，而你要读取的USB设备枚举信息存储在64位系统原生注册表路径中，32位注册表视图下不存在对应子项，因此GetValue方法永远返回Nothing，触发不存在的分支逻辑。
• 访问逻辑不严谨：直接调用GetValue方法时，如果父级注册表项不存在，方法会直接返回空值，不会抛出异常，你无法区分是「项不存在」还是「值不存在」，容易出现误判。

修复后可直接运行的代码 #

首先在代码文件顶部引入注册表操作需要的命名空间：

Imports Microsoft.Win32

替换原有CheckUSB_Serial方法的实现：

Private Sub CheckUSB_Serial()
    Dim readResult As Object = Nothing
    ' 明确指定读取64位原生注册表视图，绕过Wow64重定向
    Using rootKey As RegistryKey = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64)
        ' 打开目标子项，路径不需要带HKLM前缀
        Using deviceKey As RegistryKey = rootKey.OpenSubKey("SYSTEM\CurrentControlSet\Enum\USB\VID_04E2&PID_1422&MI_00\7&639dc5f&0&0000", False)
            If deviceKey IsNot Nothing Then
                ' 子项存在时再读取目标键值
                readResult = deviceKey.GetValue("FriendlyName", Nothing)
            End If
        End Using
    End Using

    ' 切换标签显示状态
    USB_SERIAL_ON.Visible = readResult IsNot Nothing
    USB_SERIAL_OFF.Visible = readResult Is Nothing
End Sub

额外优化提示 #

• 如果你需要兼容32位系统，可以先判断当前系统环境：64位系统传入RegistryView.Registry64，32位系统传入RegistryView.Default即可。
• 注册表路径中7&639dc5f&0&0000是系统根据设备接入位置生成的实例ID，更换USB接口、重装驱动后这个值会发生变化，生产环境不要写死该值，建议遍历对应VID&PID下的所有子项动态匹配FriendlyName。
• 不需要为程序配置管理员权限，普通用户账号默认对USB设备对应的注册表项拥有只读权限，配置管理员权限反而会触发不必要的UAC弹窗。

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