Podrobné pokyny: Vytvoření klíče registru a změnou jeho hodnoty (Visual Basic)

Článek
08/11/2011

Tento návod ukazuje, jak vytvořit aplikaci, která bude procházet klíče registrů v počítači a dovolí uživateli vytvářet a odstraňovat klíče, jakož i číst, získat, nastavit a odstranit hodnoty klíče.

Chcete-lit vytvořit hlavní formulář

Vyberte Nový projekt v nabídce Soubor a klikněte na tlačítko aplikace systému Windows.
Přidejte TextBox s názvem Value do formuláře. V okně Vlastnosti v pravém dolním rohu v políčku (Název) , zadejte hodnota.
Přidejte ListBox s názvem History do formuláře. V okně Vlastnosti v pravém dolním rohu, v políčku (Název) , zadejte History.
Vytvořte další proměnnou a přidejte jí ihned po deklaraci třídy.
```
Dim tempKey As Microsoft.Win32.RegistryKey
```

Můžete procházet klíče registrů v komponentě ComboBox

Do vašeho formuláře přidejte ComboBox s názvem selectHive, které zobrazí podregistry registrů a umožní vybrání jednoho. Naplňte ji přidáním následujícího kódu do události nahrání formuláře.

selectHive.Items.Add("ClassesRoot")
selectHive.Items.Add("CurentConfig")
selectHive.Items.Add("CurrentUser")
selectHive.Items.Add("LocalMachine")
selectHive.Items.Add("PerformanceData")
selectHive.Items.Add("Users")

Následující kód připojte po deklaraci vaší třídy.

Dim registryObject As Microsoft.Win32.RegistryKey = Nothing

Přidejte následující kód do obslužné rutiny události selectHiveSelectedIndexChanged.

Select Case selectHive.Text
  Case "ClassesRoot"
    registryObject = My.Computer.Registry.ClassesRoot
  Case "CurrentConfig"
    registryObject = My.Computer.Registry.CurrentConfig
  Case "CurrentUser"
    registryObject = My.Computer.Registry.CurrentUser
  Case "LocalMachine"
    registryObject = My.Computer.Registry.LocalMachine
  Case "PerformanceData"
    registryObject = My.Computer.Registry.PerformanceData
  Case "Users"
    registryObject = My.Computer.Registry.Users
End Select

Chcete-li načíst hodnotu z klíče registrů

Přidejte do formuláře Button s názvem ReadValueButton s textem "Read Value".
Přidejte do formuláře TextBox s názvem showSubKey a textem "Enter Subkey".

Přidejte následující kód do obslužné rutiny události ReadValueButtonClick.

tempKey = registryObject
If tempKey Is Nothing Then
  MsgBox("Please select a registry hive.")
  Return
End If
Value.Text = CStr(tempKey.GetValue(ShowSubKey.Text))
History.Items.Add("Read Value " & selectHive.Text & 
                  "\" & ShowSubKey.Text)

Otestujte vaší aplikaci zadáním názvu existujícího podklíče do textového pole showSubKey. Pokud je kliknout na ReadValueButton, textové pole Value zobrazí hodnota.

Chcete-li nastavit hodnotu klíče v registrů

Do formuláře přidejte tlačítko s názvem SetValueButton a textem "Set Value".

Následující kód přidejte do obslužné rutiny události Click:

tempKey = registryObject
If tempKey Is Nothing Then
  MsgBox("Please select a registry hive.")
  Return
End If
If Value.Text Is Nothing Then
  MsgBox("Please enter a value.")
  Return
End If
tempKey.SetValue(showSubKey.Text, Value.Text)
tempKey.Close()
History.Items.Add("Set Value " & selectHive.Text & 
                  "\" & showSubKey.Text)

Otestujte vaší aplikaci zadáním nové hodnoty pro podklíč do textového pole Value a potvrzením, která hodnota byla změněna pomocí tlačítka s názvem ReadValueButton.

Chcete-li vytvořit klíč registrů

Do formulář přidejte tlačítko s názvem CreateButton a textem "Create Key".

Následující kód přidejte do obslužné rutiny události Click:

registryObject.CreateSubKey(showSubKey.Text)
History.Items.Add("Create Key " & selectHive.Text & 
                  "\" & showSubKey.Text)

Otestujte aplikaci zadáním nového názvu klíče v textovém poli showSubklíč a pomocí Editoru registrů potvrďte, že byl klíč vytvořen.

Chcete-li odstranit klíč z registrů

Do formulář přidejte tlačítko s názvem DeleteButton a textem "Delete Key".

Následující kód přidejte do obslužné rutiny události Click:

tempKey = registryObject
If tempKey Is Nothing Then
  MsgBox("Please select a registry hive.")
  Return
End If
If showSubKey.Text Is Nothing Then
  MsgBox("Please enter a subkey.")
  Return
End If
registryObject.DeleteSubKey(showSubKey.Text)
History.Items.Add("Delete Key " & selectHive.Text & 
                  "\" & showSubKey.Text)