Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Ciao a tutti!
Ecco la domanda che vi pongo oggi. L'applicazione che stò creando richiede una variabile di tipo Integer che aumenti progressivamente di 1 ogni volta che apro il programma.
Quindi alla prima apertura del programma la variabile xyz deve essere 1, alla sesta apertura deve essere 6.
Avevo pensato di creare un file di testo, per poi incrementare il numore all'interno ad ogni avvio, quindi come posso trasferire il testo di un file .txt in un TextBox?
Se avete soluzioni meno macchinose sarebbe ancora meglio.
Ciao,
se vuoi restare nell'ipotesi del file di Txt, allora potresti utilizzare le seguenti routines, che naturalmente porrai per Save nella routine di chiusura del prog. ed Open in quella di apertura:
Codice sorgente - presumibilmente VB.NET
Dim FileNum AsInteger
Dim FileName AsString
'-----------------------------------------
PrivateSub cmdsave_Click()
' Nome e perorso del file:
FileName = App.Path&"\Prova1.txt"
' Numero del file disponibile:
FileNum =FreeFile()
Open FileName For Append As FileNum
' Ad ogni salvataggio incrementa di 1:
Print #FileNum, Val(Text1.Text)+ 1
Close #FileNum
EndSub
'-----------------------------------------
PrivateSub cmdopen_Click()
Dim lgData AsLong
FileName = App.Path&"\Prova1.txt"
FileNum =FreeFile()
Open FileName ForInputAs FileNum
Do Until EOF(FileNum)
Input #FileNum, lgData
Text1.Text= lgData
EOF(FileNum)
Loop
Close #FileNum
EndSub
PS: ho modificato in quanto c'erano delle inesattezze. Ora funziona!
Ultima modifica effettuata da Louis il 25/08/2009 alle 12:39
qui ci sono elencate le api per gestire il registro di sistema e anche il progetto di un membro del sito. E' un modulo .bas con delle funzioni semplificate. Prova a darci un'occhiata.
