[VB6] Programmare un sondaggio

[akus]

Salve a tutti come da oggetto vorrei riuscire ad implementare una specie di sondaggio ovvero un form con una comboBox quando seleziono uno degli oggetti in lista nella comboBox si deve aprire un secondo form con lo stesso elenco di quello del comboBox ma con accanto i risultati che viene incrementato di 1

[alka]

Con quale linguaggio (e versione)?
Hai letto il Regolamento di quest'area?

Ciao!

[akus]

scusami mi ero dimenticato di mettere il linguaggio
in Visual Basic 6
La prossima volta posto secondo le regole del forum...promesso

[akus]

Sono riuscito ad implementare qualcosina ma vorrei spiegato come posso richiamare un valore salvato in un file di testo per un textbox in modo tale che nelle successive scelte incrementi partendo dal valore scitto nel file di testo

[MdE2005]

Per aprire il file potresti fare così:

Open "c:\miofile.txt" For Input As #1
Do While Not (EOF(1) = True)
Line Input #1, Text1.text
loop

e nella casella di testo text1.text viene caricato il contenuto del file..
Se magari sei più preciso, allora ti potremo aiutare di più..

ciao

[akus]

Si cerchero di spiegarmi meglio....
Allora ho un form con un CommanBotton un e un TextBox
Devo fare in modo che ad ogni pressione del bottone il valore nel textbox incrementi di 1 e che quando chiudo il form il valore del textbox non venga perduto in modo tale che quando riapro il form posso ripartire dal valore che avevo lasciato....

spero di essermi spiegato bene...attendo consigli in quanto non sono molto esperto in ambiente Visual Basic

[multijet]

dichiara una variabile tipo
Globar RetVal as double in un modulo generale

Nella form1 posiziona il botton1 e la text1.
Nell'evento click del botton scrivi
text1.text=retval+1
In questo modo ad ogni click nella text1 avrai un valore maggiore di uno rispetto a quello precedente

Nell'evento load della form scrivi
text1.text=retval cosi' ogni volta che apri la form ti scrive il valore.

Chiaro che se chiudi il programma il tutto torna a zero.

Se vuoi matenere i dati o li scarichi in un db tipo access oaltro di equivalente

[Boolean]

un DB per salvare un numero, fose è eccessivo... un file di testo probabilmente andrebbe benissimo...

Boolean

[multijet]

lo so ,era solo per dare una linea guida.

[MdE2005]

Potresti fare una cosa del genere:

dim Valore as Long

private sub command1_click()
Open "c:\miofile.txt" For Input As #1
  Do While Not (EOF(1) = True)
    Line Input #1, valore
  loop
text1.text = valore 'solo se lo vuoi visualizzare
close #1
valore = valore + 1
Open "c:\miofile.txt" For output As #1
  print #1, valore
close #1

fammi sapere cosa ne pensi..

ciao