Procédure pas à pas : création d'une clé de Registre et modification de ses valeurs

Article
08/21/2008

Mise à jour : novembre 2007

Cette procédure pas à pas explique comment créer une application qui accédera à des clés de Registre sur l'ordinateur afin que les utilisateurs puissent créer et supprimer des clés, et montre comment lire, obtenir, définir et supprimer des valeurs.

Pour créer le formulaire principal

Sélectionnez Nouveau projet dans le menu Fichier et cliquez sur Application Windows.
Ajoutez un TextBox nommé Value au formulaire. Dans la fenêtre Propriétés dans le coin inférieur droit, dans le champ (Nom), tapez Valeur.
Ajoutez un ListBox nommé History au formulaire. Dans la fenêtre Propriétés dans le coin inférieur droit, dans le champ (Nom), tapez Historique.
Créez la variable supplémentaire et ajoutez-la juste après la déclaration de classe.
```
Dim tempKey As Microsoft.Win32.RegistryKey
```

Pour parcourir des clés de Registre dans une zone de liste déroulante

Ajoutez à votre formulaire un ComboBox nommé selectHive, qui affichera les ruches de Registre et vous permettra d'en sélectionner une. Remplissez-le en ajoutant le code suivant à l'événement de chargement du formulaire.

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

Insérez le code suivant après votre déclaration de classe.

Dim registryObject As Microsoft.Win32.RegistryKey = Nothing

Ajoutez le code suivant à l'événement SelectedIndexChanged de selectHive.

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 "DynData"
    registryObject = My.Computer.Registry.DynData
  Case "LocalMachine"
    registryObject = My.Computer.Registry.LocalMachine
  Case "PerformanceData"
    registryObject = My.Computer.Registry.PerformanceData
  Case "Users"
    registryObject = My.Computer.Registry.Users
End Select

Pour lire une valeur dans une clé de Registre

Ajoutez au formulaire un Button nommé ReadValueButton avec le texte « Lecture de valeur ».
Ajoutez au formulaire un TextBox nommé showSubKey avec le texte « Saisie de sous-clé ».

Ajoutez le code suivant à l'événement Click de ReadValueButton.

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)

Testez votre application en introduisant le nom d'une sous-clé existante dans la zone de texte showSubKey. Lorsque vous cliquez sur le ReadValueButton, la zone de texte Value affiche la valeur.

Pour définir une valeur dans une clé de Registre

Ajoutez au formulaire un bouton nommé SetValueButton avec le texte « Définition de valeur ».

Ajoutez le code suivant à son événement 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)

Testez votre application en entrant une nouvelle valeur pour une sous-clé dans la zone de texte Valeur, puis en confirmant que la valeur a été modifiée avec le bouton nommé ReadValueButton.

Pour créer une clé de Registre

Ajoutez au formulaire un bouton nommé CreateButton avec comme texte « Création de clé ».

Ajoutez le code suivant à son événement Click.

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

Testez votre application en entrant un nouveau nom de clé dans la zone de texte showSubKey et en utilisant l'Éditeur du Registre pour confirmer que votre clé a été créée.

Pour supprimer une clé de Registre

Ajoutez au formulaire un bouton nommé DeleteButton avec comme texte « Suppression de clé ».

Ajoutez le code suivant à son événement 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)