Creer, lire, supprimer, lister les sections de base de registre pour vos programmes vb et vba (très simplement !)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 883 fois - Téléchargée 41 fois

Contenu du snippet

J'ai pu remarquer qu'il y a beaucoups d'exemples de lecture et d'écriture dans la base de registre (utilisant des API ou non). Mais je veux simplement rapeller ici qu'il existe des fonctions natives VB et VBA pour le faire sans aucune déclaration préalable. Elle ne permette pas de lire toutes les entrées de la base de registre mais seulement celles que vous aurez créées pour vos programmes (ce qui est bien suffisant dans la plupart des cas).

Source / Exemple :



SaveSetting, instruction, exemple L'exemple suivant utilise d'abord l'instruction SaveSetting pour entrer des données relatives à l'application MyApp dans la base de registres Windows (ou dans le fichier .INI sur les plates-formes Windows 16 bits). L'instruction DeleteSetting est ensuite utilisée pour supprimer ces entrées. ' Place des paramètres dans la base de registres. SaveSetting appname := "MyApp", section := "Startup", _ key := "Top", setting := 75 SaveSetting "MyApp","Startup", "Left", 50 ' Supprime de la base de registres la section avec tous ses paramètres. DeleteSetting "MyApp", "Startup"
GetSetting, fonction, exemple L'exemple suivant utilise d'abord l'instruction SaveSetting pour entrer des données relatives à l'application appname dans la base de registres Windows (ou dans le fichier .INI sur les plates-formes Windows 16 bits). La fonction GetSetting est ensuite utilisée pour afficher l'un des paramètres. Puisque l'argument default est spécifié, vous avez la certitude que des valeurs seront renvoyées. Notez que les noms des sections ne peuvent pas être extraits par la fonction GetSetting. Pour terminer, l'instruction DeleteSetting supprime les entrées relatives à l'application. ' Variant devant contenir un tableau à deux dimensions renvoyé par la fonction GetSettings Dim MySettings As Variant ' Place des paramètres dans la base de registres. SaveSetting "MyApp","Startup", "Top", 75 SaveSetting "MyApp","Startup", "Left", 50 Debug.Print GetSetting(appname := "MyApp", section := "Startup", _ key :="Left", default := "25") DeleteSetting "MyApp", "Startup"
GetAllSettings, fonction, exemple L'exemple suivant utilise d'abord l'instruction SaveSetting pour entrer des données relatives à l'application appname dans la base de registres Windows (ou dans le fichier .INI sur les plates-formes Windows 16 bits) . La fonction GetAllSettings est ensuite utilisée pour afficher les paramètres. Notez que les noms des applications comme ceux des sections ne peuvent pas être extraits par la fonction GetAllSettings. Pour terminer, l'instruction DeleteSetting supprime les entrées relatives à l'application. ' Variant devant contenir un tableau à deux dimensions renvoyé par la ' fonction GetAllSettings Nombre entier correspondant à la valeur du compteur. Dim MySettings As Variant, intSettings As Integer ' Place des paramètres dans la base de registres. SaveSetting appname := "MyApp", section := "Startup", _ key := "Top", setting := 75 SaveSetting "MyApp","Startup", "Left", 50 ' Extrait les paramètres. MySettings = GetAllSettings(appname := "MyApp", section := "Startup") For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1) Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1) Next intSettings DeleteSetting "MyApp", "Startup"

Conclusion :


Ces exemples sont ceux de l'aide de Visual Basic, je n'ai rien inventé !

A voir également

Ajouter un commentaire

Commentaires

codea
Messages postés
94
Date d'inscription
dimanche 9 mai 2004
Statut
Membre
Dernière intervention
6 août 2006
-
Niegera: Le programme va créer le bon chemin... mais je cherche aussi comment changer le chemin ...
cs_nirega
Messages postés
58
Date d'inscription
dimanche 17 février 2002
Statut
Membre
Dernière intervention
14 janvier 2008
-
ok j'ai trouvé ou les mettres.......mais il reste un point a réglé svp
si la personne n'a pas de VB installé sur son ordinateur.....la clé "VB and VBA program setting" n'existeras pas ??

moi il place la nouvelle clé dans cette section
HKEY_CURRENT_USER\Software\VB and VBA Program Settings

puis-je changer l'emplacement ???

meri de m'éclairer
cs_nirega
Messages postés
58
Date d'inscription
dimanche 17 février 2002
Statut
Membre
Dernière intervention
14 janvier 2008
-
ca ma l'air super .......mais je le place ou ce bout de code la ?
cdrick777
Messages postés
4
Date d'inscription
jeudi 2 décembre 2004
Statut
Membre
Dernière intervention
6 novembre 2005
-
Alors là oui c top cool. C simple est rapide, et sans API!
cs_et1
Messages postés
250
Date d'inscription
vendredi 14 janvier 2005
Statut
Membre
Dernière intervention
27 janvier 2011
7 -
Merci beaucoup pour ce code car je cherchais comment on travail avec les clés du registre.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.