.net - 如何更新获取注册表值的组合框

Question

如何在用户打开程序时从注册表中获取值并自动填充字段，并且例如如果注册表中的值是 1 或 0，还选中该框？

这是组合框的代码

Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged
Select Case ComboBox3.SelectedItem

    Case "Volume 1"
        objShell.RegWrite("HKEY_CURRENT_USER\SOFTWARE\MyApp\app\Config\VolumeLevel", "00000001", "REG_DWORD")
        ListBox1.Items.Add("Volume 1 Enabled")
    Case "Volume 2"
        objShell.RegWrite("HKEY_CURRENT_USER\SOFTWARE\MyApp\app\Config\VolumeLevel", "00000002", "REG_DWORD")
        ListBox1.Items.Add("Volume 2 Enabled")
    Case "Volume 3"
        objShell.RegWrite("HKEY_CURRENT_USER\SOFTWARE\MyApp\app\Config\VolumeLevel", "00000003", "REG_DWORD")
        ListBox1.Items.Add("Volume 3 Enabled")
    Case "Volume 4"
        objShell.RegWrite("HKEY_CURRENT_USER\SOFTWARE\MyApp\app\Config\VolumeLevel", "00000004", "REG_DWORD")
        ListBox1.Items.Add("Volume 4 Enabled")
    Case "Volume 5"
        objShell.RegWrite("HKEY_CURRENT_USER\SOFTWARE\MyApp\app\Config\VolumeLevel", "00000005", "REG_DWORD")
        ListBox1.Items.Add("Volume 5 Enabled")
End Select
End Sub

这是复选框的代码

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    If CheckBox1.Checked = True Then
        objShell.RegWrite("HKEY_CURRENT_USER\SOFTWARE\MyApp\app\Config\SoundOnOff", "1", "REG_DWORD")
        objShell.RegWrite("HKEY_CURRENT_USER\SOFTWARE\MyApp\app\Config\SoundOn", "1", "REG_DWORD")
        ListBox1.Items.Add("Sound Enabled")
    Else
        objShell.RegWrite("HKEY_CURRENT_USER\SOFTWARE\MyApp\app\Config\SoundOn", "0", "REG_DWORD")
        objShell.RegWrite("HKEY_CURRENT_USER\SOFTWARE\MyApp\app\Config\SoundOnOff", "0", "REG_DWORD")
        ListBox1.Items.Add("SoundDisabled")
    End If
End Sub

我试图这样做，但是当我打开时字段仍然空白，这就是我正在尝试的：

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox3.Text = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Webzen\Mu\Config\", "ID", " ")
        ComboBox3.Text = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Webzen\Mu\Config\", "UserID", " ")
        ComboBox3.Text = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Webzen\Mu\Config\", "Exe", " ")
    End Sub

谢谢！

标签： .netvb.netregistry