psycho85 (Ex-Member)
Pro
 
Messaggi: 72
Iscritto: 20/08/2006
|
Che problema, sto impazzendo...ho 5 textbox e 5 cmd per intenderci...
devo memorizzare il contenuto nelle textbox in un file INI alla pressione di un dei tasti...
Questo è il codice presente in ogni textbox, le variabili sono pubbliche e quindi visibili...
----Inizio Code----
Var1 = txtVar1.Text
Var2 = txtVar2.Text
Var3 = txtVar3.Text
Var4 = txtVar4.Text
Var5 = txtVar5.Text
Open App.Path + "\Impo.ini" For Output As #1
Write #1, Var1
Write #1, Var2
Write #1, Var3
Write #1, Var4
Write #1, Var5
Close #1
----Fine CODE----
Il problema è in lettura
----Inizio Code----
Open App.Path + "\Impo.ini" For Input As #1
Input #1, Var1
Input #1, Var2
Input #1, Var3
Input #1, Var4
Input #1, Var5
Close #1
txtVar1.Text = Var1
txtVar2.Text = Var2
txtVar3.Text = Var3
txtVar4.Text = Var4
txtVar5.Text = Var5
----Fine Code -----
Il code è giusto l'ho controllato per ore solo che in lettura le prime due textbox hanno lo stesso valore che sarebbe quello riferito a
Input #1, Var2
Come diavolo è possibile???????
|
|
|
Reese (Ex-Member)
Pro
Messaggi: 179
Iscritto: 09/08/2006
|
Si potrebbe solo dire che anche nell'ini ci sono gli stessi valori. Non vedo errori.
Solo un paio di domande: è una tua scelta non usare textbox indexati? Risparmieresti molto spazio...
E quando usi write, lo fai perché hai bisogno delle virgolette "?
|
|
|
Fr3d3R!K (Ex-Member)
Expert
Messaggi: 589
Iscritto: 17/08/2006
|
Ultima modifica effettuata da Fr3d3R!K il 09/09/2006 alle 21:01 |
|
|
psycho85 (Ex-Member)
Pro
Messaggi: 72
Iscritto: 20/08/2006
|
Reese:
Per quanto riguarda write e le virgolette non è che mi servono è stata una scelta sul momento, tanto le virgolette poi non vengono prese dall' Input.
Per quanto riguarda le textbox da indexare hai proprio ragione...purtroppo faccio fatica a cambiare i metodi...
Fr3d3R!K :
HO provato a cambiare WRITE in PRINT e INPUT in Line Input ma non ho avuto successo...
Ti ringrazio per i link corro a dare un'occhiata...
Il problema quindi rimane...ma nelle altre prove che ho fatto non si presenta, questo è proprio un'arcano...vi faro cmq sapere...
GRAZIE RAGA
|
|
|
Fr3d3R!K (Ex-Member)
Expert
Messaggi: 589
Iscritto: 17/08/2006
|
ma nelle altre prove che ho fatto non si presenta, questo è proprio un'arcano |
cosa vuoi dire? che hai provato su altri computer e funziona e che hai provato sul tuo pc altre volte funziona e altre no?? perchè forse il problema è qui...
edit: ma perchè non posti direttamente il sorgente (su megaupload.com o yousendit.com insomma in posto dove si possa scaricare...)??? magari c'è qualche distrazione o qualcosa della quale non ti accorgi...(ipotizzo... ) Ultima modifica effettuata da Fr3d3R!K il 09/09/2006 alle 22:25 |
|
|
psycho85 (Ex-Member)
Pro
Messaggi: 72
Iscritto: 20/08/2006
|
Non su altri computer sul mio...ho fatto un programma di prova molto simile al mio e....scrive e legge che è un piacere...
Ho provato a cancellare il code e a riscriverlo ma nada...
domani pubblico il sorgente integrale...nel frattempo
ecco come legge i dati, non ci sono errori e in più controllo il file INI prima di avviare il programma per verificare che i dati siano giusti:::
----code-----
Private Sub Form_Load()
Open App.Path + "\Impostazioni.ini" For Input As #1
Line Input #1, ValEuroDollaro
Line Input #1, ValEuroLira
Line Input #1, ValEuroYen
Line Input #1, ValEuroRublo
Line Input #1, ValEuroSterlina
Close #1
txtEuroDollaro.Text = ValEuroDollaro
txtEuroLira.Text = ValEuroLira
txtEuroYen.Text = ValEuroYen
txtEuroRublo.Text = ValEuroRublo
txtEuroSterlina.Text = ValEuroSterlina
End Sub
----fine code lettura----
----inizio code salva1----
Private Sub cmdSalva2_Click()
ValEuroDollaro = txtEuroDollaro.Text
Open App.Path + "\Impostazioni.ini" For Output As #1
Print #1, ValEuroDollaro
Print #1, ValEuroLira
Print #1, ValEuroYen
Print #1, ValEuroRublo
Print #1, ValEuroSterlina
Close #1
txtEuroDollaro.Locked = True
cmdModifica2.Enabled = True
cmdSalva2.Enabled = False
End Sub
----------------
posto un'altro comando salva
----inizio----
Private Sub cmdSalva3_Click()
ValEuroYen = txtEuroYen.Text
Open App.Path + "\Impostazioni.ini" For Output As #1
Print #1, ValEuroDollaro
Print #1, ValEuroLira
Print #1, ValEuroYen
Print #1, ValEuroRublo
Print #1, ValEuroSterlina
Close #1
txtEuroYen.Locked = True
cmdModifica3.Enabled = True
cmdSalva3.Enabled = False
End Sub
non fate commenti sul codice, so che è di ....
----fine---
|
|
|
psycho85 (Ex-Member)
Pro
Messaggi: 72
Iscritto: 20/08/2006
|
RAGAZZI...sembra impossibile ma proprio adesso ho avviato il programma per vedere se riuscivo a risolvere l'errore...e con grande sorpresa e gioia IL PROGRAMMA FUNZIONA.........
TRA POCO LO PUBBLICO SUL SITO SI CHIAMA
"CONVERTER 1.0"
date un'occhiata al code e fatemi sapere...
|
|
|
Fr3d3R!K (Ex-Member)
Expert
Messaggi: 589
Iscritto: 17/08/2006
|
meglio così!!! 
|
|
|
psycho85 (Ex-Member)
Pro
Messaggi: 72
Iscritto: 20/08/2006
|
|
|
|
| 
