Demonstra Passo a passo: Criando uma chave de registro e alterando os valores (Visual Basic)

Artigo
08/01/2011

Esta explicação passo a passo demonstra como criar um aplicativo que irá navegar nas chaves do Registro em um computador para que os usuários possam criar e excluir chaves, bem como para ler, obter, definir, e excluir valores.

Para criar o formulário principal

Selecione New Project no menu File e clique em Windows Application.
Adicione um TextBox chamado Value ao formulário. Na janela Properties no canto inferior direito, no campo (Name), digite Value.
Adicione um ListBox chamado History ao formulário. Na janela Properties no canto inferior direito, no campo (Name), digite History.
Crie uma variável adicional e adicione-a imediatamente após o declaração na classe.
```
Dim tempKey As Microsoft.Win32.RegistryKey
```

Para procurar chaves do Registro em uma caixa de combinação

Adicione ao formulário um ComboBox chamado selectHive, que exibirá as seções do registro e permitem que você selecione uma. Preencha ele adicionando o seguinte código ao evento de carregamento do formulário.

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

Anexe o código a seguir após sua declaração de classe.

Dim registryObject As Microsoft.Win32.RegistryKey = Nothing

Adicione o seguinte código para o evento selectHive SelectedIndexChanged .

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

Para ler um valor em uma Chave do Registro

Adicione ao formulário um Button chamado ReadValueButton com o texto " Read Value".
Adicione ao formulário um TextBox chamado showSubKey com o texto "Enter Subkey".

Adicione o seguinte código para o evento ReadValueButton Click .

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)

Teste seu aplicativo inserindo o nome de uma subchave existente na caixa de diálogo showSubKey. Quando ReadValueButton for clicado, a caixa de diálogo Value exibe o valor.

Para definir um valor em uma Chave do Registro

Adicione um botão ao formulário denominado SetValueButton com o texto "Set Value".

Adicione o seguinte código para o evento 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)

Teste seu aplicativo inserindo um novo valor para uma subchave na caixa de texto Value e depois confirmando que o valor foi alterado com o botão chamado ReadValueButton.

Para criar uma chave do Registro

Adicione ao formulário um botão denominado CreateButton com o texto "Create Key".

Adicione o seguinte código para o evento Click .

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

Teste o aplicativo, inserindo um novo nome para a chave na caixa de texto showSubKey e usando o Registry Editor para confirmar que a chave foi criada.

Para excluir uma chave do Registro

Adicione um botão para o formulário chamado DeleteButton com o texto "Delete Key".

Adicione o seguinte código para o evento 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)