Aus Text aus Textdatei auslesen ausgelagert.
Hallo,
ich habe eine ähnliche Aufgabenstellung. Eine Textbo soll
den Inhalt eines Textdatei ausgeben und bei Veränderung (last change)
sich ändern
Soweit - so gut. Der Text wird angezeigt, aber Änderungen werden überhaupt nicht übernommen... was mache ich falsch?
Hallo,
ich habe eine ähnliche Aufgabenstellung. Eine Textbo soll
den Inhalt eines Textdatei ausgeben und bei Veränderung (last change)
sich ändern
VB.NET-Quellcode
- ' Alarmticker TEST
- Private Sub TextBox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- On Error GoTo ErrorHandler
- TextBox1.Text = IO.File.ReadAllText("C:\Temp\elw\alarmticker.txt", System.Text.Encoding.Default)
- Exit Sub
- ErrorHandler:
- TextBox1.Text = IO.File.ReadAllText("res\connectbrdd.txt", System.Text.Encoding.Default)
- Dim watched As String = System.IO.Path.GetDirectoryName("C:\Temp\elw")
- Dim fsw As New FileSystemWatcher(watched)
- Me.Text = "Monitoring: " & fsw.Path
- fsw.IncludeSubdirectories = False
- fsw.NotifyFilter = NotifyFilters.LastWrite
- AddHandler fsw.Changed, AddressOf fsw_Changed
- fsw.EnableRaisingEvents = True
- End Sub
- Private Sub fsw_Changed(ByVal sender As Object, ByVal e As FileSystemEventArgs)
- TextBox1.Text = System.IO.Path.GetFileName("C:\Temp\elw\alarmticker.txt")
- End Sub
- ' Test Ende
Soweit - so gut. Der Text wird angezeigt, aber Änderungen werden überhaupt nicht übernommen... was mache ich falsch?
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()