Este artigo foi traduzido por máquina. Para visualizar o arquivo em inglês, marque a caixa de seleção Inglês. Você também pode exibir o texto Em inglês em uma janela pop-up, movendo o ponteiro do mouse sobre o texto.
Tradução
Inglês

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

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

  1. Selecione New Project no menu File e clique em Windows Application.

  2. Adicione um TextBox chamado Value ao formulário. Na janela Properties no canto inferior direito, no campo (Name), digite Value.

  3. Adicione um ListBox chamado History ao formulário. Na janela Properties no canto inferior direito, no campo (Name), digite History.

  4. 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

  1. 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")
    
    
    
  2. Anexe o código a seguir após sua declaração de classe.

    
    Dim registryObject As Microsoft.Win32.RegistryKey = Nothing
    
    
    
  3. Adicione o seguinte código para o evento 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
    
    
    

Para ler um valor em uma Chave do Registro

  1. Adicione ao formulário um Button chamado ReadValueButton com o texto " Read Value".

  2. Adicione ao formulário um TextBox chamado showSubKey com o texto "Enter Subkey".

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

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

  2. 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)
    
    
    
  3. 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

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

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

    
    registryObject.CreateSubKey(showSubKey.Text)
    History.Items.Add("Create Key " & selectHive.Text & 
                      "\" & showSubKey.Text)
    
    
    
  3. 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

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

  2. 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)
    
    
    
  3. Teste seu código, excluindo uma subchave e usando o Registry Editor para confirmar que a chave foi excluída.

Contribuições da comunidade

ADICIONAR
Mostrar: