Citat:
djpero.84: Da li mislis samo na zadnje racunanje prosjeka ocijena ili za sve ucenike ?
ja mislim da je mislio sve :D
u drugom slucaju ako zelis samo poslednje upisano ides 'vako
Code:
On Error Resume Next
Open App.Path + "\\podaci.txt" for Input as #1
Write #1, Text1.Text
Write #1, Text2.Text
Write #1, Text3.Text
Gde su ti Text1,2 i 3 podaci koje unosis,ukoliko ti treba vishe samo dodaj kao sto ti je napisano.....a logicno ako hoces manje obrishi ove sto imaju,ovo stavis na tvoje dugme Save :D
a ovo ti je ucitavanje,to stavi na Form_Load...
Code:
Dim a, s, d As String
On Error Resume Next
Open App.Path + "\\podaci.txt" For Input As #1
Input #1, a
Input #1, s
Input #1, d
Close #1
Text1.Text = a
Text2.Text = s
Text3.Text = d
[Ovu poruku je menjao The_End_is_close dana 13.01.2008. u 16:07 GMT+1]
[Ovu poruku je menjao The_End_is_close dana 13.01.2008. u 16:07 GMT+1]