Oppure

Loading
24/03/07 18:39
FREESTYLE
Ciao sto cercando di creare un piccolo programmino in modo da poter leggere degli appunti scritti in un file txt collegato a un form.. vi posto un immagine per farvi capire meglio:

[img]img71.imageshack.us/…]

come posso creare questo collegamento?
ricordo che devo fare in modo che gli appunti siano modificabili.. grazie anticipatamente

aaa
24/03/07 18:40
FREESTYLE
combinato un pasticcio:

img71.imageshack.us/…
aaa
25/03/07 11:06
Hacker
:-|
non ho capito bene,cosa dovresti fare col form e col .txt ?
aaa
25/03/07 11:14
Ciao sto cercando di creare un piccolo programmino in modo da poter leggere degli appunti scritti in un file txt collegato a un form.. vi posto un immagine per farvi capire meglio:

[img]img71.imageshack.us/… ...

come posso creare questo collegamento?
ricordo che devo fare in modo che gli appunti siano modificabili.. grazie anticipatamente


Dovresti, caricare un file di testo, contenente delle stringhe all'interno e farle comparire nel Form ??

Ho capito bene?

Precisamente, se hai un file di Testo, contenente questa stringa:

ciao

vorresti che il tuo Ciao, comparisse sul Form :-?

Almeno vedendo la Figura!!!
Ultima modifica effettuata da 25/03/07 11:15
25/03/07 12:33
FREESTYLE
si esattamente.. è una cosa semplicissima ma siccome non uso da tempo vb mi sono scordato alcuni paramentri..
aaa
25/03/07 12:51
c.ronaldo
Dovresti aprire il file in modalitàoutput/input così:

Dim dati as string
Open TUOFILE.txt for input as #1
get #1,dati
close #1
LabelDati.caption=dati

...Così dovrebbe andare!
:k:
aaa
25/03/07 13:02
Hacker
Dim Riga As String

Open "C:\file.txt" For Input As #1


Do While Not EOF(1)
Line Input #1, Riga
Label.Caption = Label.Caption & vbCrLf & Riga
Loop


Close #1

se non capisci qualcosa chiedi pure;)
aaa
25/03/07 13:04
Postato originariamente da FREESTYLE:

si esattamente.. è una cosa semplicissima ma siccome non uso da tempo vb mi sono scordato alcuni paramentri..


Io direi più in questo modo:

Nel Form, gli inserisci una label..

nel mio caso, te la chiamo LBL

Open App.Path & "\txt.txt" For Input As 1
'Apre il file TXT..
Do
Input #1, linea
lbl.Caption = linea
Loop Until EOF(1) = True
Close #1

Exit Sub

Se qualcosa non ti é chiaro, Posta..