ReadWriteWinReg

RileggiConfigurazione Variabile1, Variabile2
MemorizzaConfigurazione Variabile1 , Variabile2
' Memorizza una valore nel registry relativamente all'applicativo

corrente
' Usa la variabile globale gsNomeApplicativo

Public Sub MemorizzaConfigurazione(ByVal sChiave As String, ByVal
sValore As String)
On Error GoTo Handler
'Salvo il valore assegnato

SaveSetting gsNomeApplicativo, "Configurazione", sChiave, sValore
Exit Sub
Handler:
MsgBox Err.Description
End Sub

' Rilegge una valore nel registry relativamente all'applicativo =

corrente
' Usa la variabile globale gsNomeApplicativo

Public Sub RileggiConfigurazione(ByVal sChiave As String, ByRef sValore
As String)
On Error GoTo Handler
'Carico i default

Dim sDefault As String
GetDefaultValue sChiave, sDefault
'Leggo il valore richiesto

sValore = GetSetting(gsNomeApplicativo, "Configurazione", sChiave,
sDefault)
Exit Sub
Handler:
MsgBox Err.Description
sValore = sDefault
End Sub