io mi trovo molto bene con il file ini
ti metto qui di seguito il code
metti in un module questo code:
codice:
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Function ReadINI(Section As String, KeyName As String, FileName As String) As String
Dim sRet As String
sRet = String(255, Chr(0))
ReadINI = Left(sRet, GetPrivateProfileString(Section, ByVal KeyName$, "", sRet, Len(sRet), FileName))
End Function
Sub WriteINI(sSection As String, sKeyName As String, sNewString As String, sFilename)
Call WritePrivateProfileString(sSection, sKeyName, sNewString, sFilename)
End Sub
all'inizio metti
codice:
Dim ini_path As String
nel form_load
codice:
ini_path = "percorso\Settings.ini"
poi per salvare
codice:
Call WriteINI("Titolo", "Testo", text1.text, ini_path)
e per recuperarli all'apertura, quindi sempre nel form_load
codice:
text1.text = ReadINI("Text1", "text1", ini_path)
poi ovviamente cambi quello che devi cambiare in questi code
il file .ini, in base al mio code (anche questo poi lo modifichi come meglio credi), dovrebbe essere così
[Titolo]
Testo=va bene? (^_^)
Rispondi quotando
