Tapez ou de copier et coller le code suivant dans le module de code:
Sous SaveandGetKey ()
Dim strValue As String
SaveSetting "MyAppName", "SectionName", "KeyName", "MyAddedValue"
strValue = GetSetting ("MyAppName", "SectionName", "KeyName", "MyDefault")
MsgBox strValue
End Sub
Le code crée une procédure sous appelé: SaveandGetKey. Il utilise ensuite la déclaration VB Dim pour déclarer une variable appelée strValue. Le code utilise ensuite les SaveSettings VB fonction pour enregistrer des informations dans le Registre Windows. L'information est enregistrée dans les Software VB et VBA Paramètres du programme HKEY_CURRENT_USER clé MyAppName dans le Registre. Il utilise ensuite la fonction de GetSetting pour obtenir la valeur, l'affecte à strValue puis affiche la valeur à l'écran en utilisant la fonction MsgBox.