未声明BC30451 'RegistryValueKind'

Question

我想尝试更改互联网设置级别 VB.NET

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim regKey As Microsoft.Win32.RegistryKey
    regKey = Microsoft.Win32.RegistryKey.OpenBaseKey("SoftwareMicrosoftWindowsCurrentVersionInternet SettingsZones3", True)
    regKey.SetValue("2400", 0, RegistryValueKind.DWord)
End Sub
End Class

我收到此错误：BC30451 未声明"RegistryValueKind"。由于其保护级别，它可能无法访问。

有什么解决方案吗？

Answer 1

首先，当您运行代码时，您应该在尝试设置其实例时抛出异常regKey =它不是。尝试使用它时，它将失败。您的错误消息与未导入的状态相同：Import Microsoft.Win32命名空间，如@Mark所述。当您实际导入此命名空间时，您将遇到我上面提到的问题......请在下面查看我的解决方案。

久经考验

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim regKey As Microsoft.Win32.RegistryKey = Registry.CurrentUser.OpenSubKey("SoftwareMicrosoftWindowsCurrentVersionInternet SettingsZones3", True)
    If regKey IsNot Nothing Then regKey.SetValue("2400", 0, RegistryValueKind.DWord) : regKey.Close()
End Sub

我也可以把它改回第四个。完成后请不要忘记Close密钥，在我的代码中它正在这样做。