Salvare "stats"

Buna,

Dupa ce am facut un program ce trebuie sa fac sa imi ramana setarile care le-am facut in el?

De exemplu daca scriu ceva intrun textbox sau bifez un checkbox si ies din el cand intru inapoi sa fie bifat checkbox-ul si textbox-ul sa afiseze textul care era inainte sa ies din el.

Daca stie careva sa imi dea un link unde scrie cum sa fac.Sau daca este ceva cod sa il scrie sau link.

Sau cum se numeste procedura asta ca sa stiu ce sa caut, deoarece eu am cautat si nu am gasit ce am vrut sa fac, sunt incepator si nu stiu toate notiunile.

Folosesc Visual Studio 2010.

Multumesc anticipat.

Orice textbox sau checkbox au asociate cate o variabila. Tot ce trebuie sa faci e sa pastrezi informatia din variabile nealterata.

in 2010 (.NET) nu stiu
dar in cel clasic aveam o chestie Save Settings, care se folosea de registri

daca este vorba strict despre variabilele introduse sau procesate, functie de complexitatea programului se pot stoca intr-un fisier txt sau daca se impune intr-o baza de date.
ele vor fi incarcate si atribuite unor controale sau variabile functie de necesitati, la pornirea programului.
daca este vorba despre setari ale aplicatiei, un fisier de tip .ini este ceea ce ai nevoie.
pentru prima situatie totul depinde de tine, pentru cealalta cauta si tu pe net lucrul cu "ini files in vb2010" si gasesti tot ceea ce vrei sa stii.
uite si un link de inceput
http://msdn.microsof...613(VS.80).aspx

Multumesc de ajutor.

Am gasit ceva folositor , nu exact ce cautam, dar merge .

nexusm, on 27 februarie 2013 - 15:04, said:

O sa mai sap in link-ul dat de tine ca pare interesant poate gasesc cea ce caut.
Multumesc inca o data pentru raspunsuri.
O zi buna.

Foloseste-te de functiile astea doua:

Salveaza valoarea unui control intr-un fisier
Parametrii: srcFisier=Destinatia fisierului unde sa salveze datele, srcNumeControl=numele controlului, srcValoareControl=valoarea controlului
Public Sub SalveazaDate(srcFisier As String, srcNumeControl As String, srcValoareControl As String)
Dim fdata As String
If Dir(srcFisier) = "" Then Open srcFisier For Output As #1: Close #1
Open srcFisier For Input As #1
fdata = Input(LOF(1), #1)
Close #1
If InStrB(1, fdata, srcNumeControl & "=" & srcValoareControl, vbBinaryCompare) = 0 Then
Open srcFisier For Append As #1
Print #1, srcNumeControl & "=" & srcValoareControl
Close #1
End If
End Sub

Returneaza valoarea controlului specificat in parametrul srcNumeControl
Public Function CitesteDate(srcFisier As String, srcNumeControl As String) As String
Dim ldata As String
Open srcFisier For Input As #1
Do Until EOF(1)
	 Line Input #1, ldata
	 If InStrB(1, ldata, srcNumeControl, vbBinaryCompare) > 0 Then CitesteDate = Split(ldata, "=")(1): Exit Do
Loop
Close #1
End Function

Exemplu:

Command1_Click()
  SalveazaDate "saveme.txt", "TextBox1", "Ur Not In Danger!"
End Sub

Private Sub Form_Load()
 Text1.Text = CitesteDate("saveme.txt", TextBox1)
End Sub

Pot sa le mai stochezi si in registri, sa le bindezi in aplicatia ta sau cu API pentru fisiere de configurare (*.ini) daca folosesti Win

Edited by horohoro, 07 March 2013 - 03:49.