In questo articolo insegnerò come poter riportare il testo di un file di testo in una TextBox in pochi e semplici passi.

Inanzitutto, creiamo una textbox (si chiamerà Text1) ,adesso dobbiamo inserire il controllo per far aprire la finestra per selezionare il file.Andiamo nella barra a sinistra dove ci sono tutti gli strumenti e clicchiamo col destro e dopodichè selezioniamo componenti:

Aggiungiamo il componente “Microsoft Commond Dialog Control 6.0“

Una volta aggiunto rinominiamo il componente (dal pannello proprietà) da “Commondialog1” a “Cd1“

Clicchiamo col destro sul componente e selezioniamo “Proprietà”.Impostatele come nell’immagine sottostante:

Non ci resta che aggiungere un Button (Bottone,Tasto),cliccarci due volte sopra e inserire queste righe di codice sotto la scritta:

“Private Sub Command1_Click()” cd1.ShowOpen
If cd1.FileName = vbNullString Then Exit Sub Else
Open cd1.FileName For Input As #1
While Not EOF(1)
Line Input #1, Testo
Text1.Text = Text1
Testo
vbNewLine
Wend
Close #1

Ed il gioco è fatto!

Popularity: 38% [?]