Visualizare Contenuto di un File Txt in un Textbox

[[-Blade-]]

:gren:

Ciao a tutti ho seguente problemino

non riesco a far visualizare il contenuto di un File di testo .txt
dentro ad una textbox (multiline) qualcuno potrebbe spiegarmi come
posso fare ?

Saluti

[Boldan]

Puoi usare il seguente codice:

Private Sub Command1_Click()
Dim riga As String
'Apro il file in Input (Lettura)
Open "c:\prova.txt" For Input As #1 'il numero 1 indica il 'canale' 1
'(nelle successive istruzioni il file sarà indicato con 1)
While Not EOF(1) ' ciclo fino a fine file (EOF- End of File)
Input #1, riga 'Leggo una riga (e ne inserisco il valore nella variabile 'riga')
Text1.Text = Text1.Text & vbCrLf & riga 'aggiungo al textbox la riga
Wend
End Sub

Ovviamente il codice prevede che nel form siano presenti un commandButton (Command1) e un textBox (Text1).

Spero sia abbastanza chiaro, fammi sapere...
Ciao!!:quipy:

[[-Blade-]]

Ciao Boldan grazie della risposta

A visualizare il contenuto funziona pero ora ce un altro problemino

nel txt ho scritto questo per provare facendo 2 Rige

1)ciao
2)come va ?


pero nel text box melo mette uno dietro l altro cosi:

Ciao come va ?sto bene e tu ?

come facio a fare che li visualizza uguale come nel txt uno sotto l altro.

[[-Blade-]]

Ah no ora va avevo dimenticato di abilitare Multiline alla textbox ecco perche non chambiava riga )

[[-Blade-]]

Ho un altro problema ora

Come facio a fare che se il file e piu grande che fa il "Scroll" da solo facendo vedermi sempre la fine del file ?

[Boldan]

Puoi posizionare il cursore del TextBox a fine testo (vedi blocco in grassetto):

Private Sub Command1_Click()
Dim riga As String
'Apro il file in Input (Lettura)
Open "c:\prova.txt" For Input As #1 'il numero 1 indica il 'canale' 1
'(nelle successive istruzioni il file sarà indicato con 1)
While Not EOF(1) ' ciclo fino a fine file (EOF- End of File)
Input #1, riga 'Leggo una riga (e ne inserisco il valore nella variabile 'riga')
Text1.Text = Text1.Text & vbCrLf & riga 'aggiungo al textbox la riga
Wend
'Imposti la posizione del cursore nel textbox alla fine del testo
Text1.SelStart = Len(Text1.Text)
Text1.SelLength = 0
End Sub

Spero funzioni, tienimi aggiornato...

Ciao!!

[[-Blade-]]

Perfetto Funziona Grazie Mille :gren: :gren: :gren: