Classe: configurations de son application

Commenter

Contenu du snippet

Cette classe permet de suavegarder et de récupérer les configurations de son application dans la base de registre.

Source / Exemple : 


Imports System
Imports Microsoft
Imports Microsoft.Win32

Public Class cConfig

    Private KeyKey As String = "Software\" + Application.ProductName + "\"

    Public Sub New(ByVal Root As String)
        KeyKey = Root
    End Sub

    ' récupere la valeur de la prorpiété Name au chemin Key (HKEY_CURRENT_USER)
    Public Function regGetValue(ByVal Name As String, Optional ByVal DefaultValue As String = "") As String
        Try
            Dim RegKey As RegistryKey
            RegKey = Registry.CurrentUser.OpenSubKey(KeyKey, False)
            If Not RegKey Is Nothing Then
                Dim Valeur As String = CType(RegKey.GetValue(Name, DefaultValue), String)
                RegKey.Close()
                Return Valeur
            Else
                Return DefaultValue
            End If
        Catch
            Return DefaultValue
        End Try
    End Function

    ' inscrit la valeur Value dans la propriété Name au chemin Key (HKEY_CURRENT_USER)
    Public Function regSetValue(ByVal Name As String, ByVal Value As String) As Boolean
        Try
            Dim RegKey As RegistryKey
            RegKey = Registry.CurrentUser.OpenSubKey(KeyKey, True)
            If RegKey Is Nothing Then RegKey = Registry.CurrentUser.CreateSubKey(KeyKey)
            If Not RegKey Is Nothing Then
                RegKey.SetValue(Name, Value)
                RegKey.Close()
                Return True
            Else
                Return False
            End If
        Catch
            Return False
        End Try
    End Function

End Class

Conclusion :


Utilisation:

' Déclarer en dehors du code en public
Dim Config As New cConfig("Software\" + Application.ProductName + "\")

' dans la sub de chargement
Me.Left = Val(Config.regGetValue("Left", "0"))

' dans la sub Closing
Config.regSetValue("Left", Me.Left.ToString)

et voila c'est tout simple ! mais encore une fois bien pratique

A voir également

S'inscrire maintenant

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.

Du même auteur (lumesh)