superbury
13-03-2015, 21:57
Ciao a tutti!!
Avrei bisogno di sapere come fare per leggere un file riga x riga in una textbox ma che passi alla riga successiva in automatico dopo un tot di secondi!
Il cod che ho legge la riga successiva solo dopo la pressione delle frecce e non so proprio come fare!!!:muro: :muro: :muro: :muro:
Imports System.IO
Imports System.IO.File
Public Class Form1
Dim fullPath As String = "C:\test7.txt"
Dim linee As New List(Of String)
Dim linea As String
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If Not IO.File.Exists(fullPath) Then
MessageBox.Show("Il non esiste!")
Exit Sub
End If
Using SR As New IO.StreamReader(fullPath)
linea = SR.ReadLine
Do Until linea Is Nothing
linee.Add(linea)
linea = SR.ReadLine
Loop
TextBox1.Text = String.Join(Environment.NewLine, linee)
End Using
End Sub
End Class
Avrei bisogno di sapere come fare per leggere un file riga x riga in una textbox ma che passi alla riga successiva in automatico dopo un tot di secondi!
Il cod che ho legge la riga successiva solo dopo la pressione delle frecce e non so proprio come fare!!!:muro: :muro: :muro: :muro:
Imports System.IO
Imports System.IO.File
Public Class Form1
Dim fullPath As String = "C:\test7.txt"
Dim linee As New List(Of String)
Dim linea As String
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If Not IO.File.Exists(fullPath) Then
MessageBox.Show("Il non esiste!")
Exit Sub
End If
Using SR As New IO.StreamReader(fullPath)
linea = SR.ReadLine
Do Until linea Is Nothing
linee.Add(linea)
linea = SR.ReadLine
Loop
TextBox1.Text = String.Join(Environment.NewLine, linee)
End Using
End Sub
End Class