comunque in questo caso non ho un db!!!!
non l'ho scritto io... non avendo un db o un file di configurazione o il registro di windows.
per documentazione intendo msdn di vb, che se non installato è cmq consultabile online.
per salvare:
SaveSetting "MyApp", "Startup", "Top", "75"
per leggere:
valore = GetSetting("MyApp", "Startup", "Left", "25")
in ordine: AppName, Section, Key, valore
la dichiarazione di GetSetting è:
codice:
Public Function GetSetting( _
ByVal AppName As String, _
ByVal Section As String, _
ByVal Key As String, _
Optional ByVal Default As String = "" _
) As String
ti serve solo per capire come funziona, l'ultimo parametro opzionale è un valore di default nel caso in cui la chiave non abbia alcun valore, per fare in modo che cmq ritorni sempre un risultato.
Nell'esempio precedente se non è assegnato alcun valore alla chiave "Left" la funzione ritorna come valore di default 25.