Code:
Imports System.IO
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim Zeile As String
Dim sreader = New StreamReader("C:\time.txt")
sreader.ReadLine()
For i = 0 To 1
Zeile = sreader.ReadLine()
Next
If TextBox1.Text = "0" Then
MsgBox("Zeit abgelaufen")
End If
TextBox1.Text = Zeile.ToString
Catch ex As Exception
End Try
Timer1.Start()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim down As Integer = CType(TextBox1.Text, Integer)
TextBox1.Text = CType(down - 1, Integer)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim timewriter = New StreamWriter("C:\Time.txt")
timewriter.WriteLine(TextBox1.Text)
timewriter.Close()
End
End Sub
End Class
Es kommt noch ein Fehler habe aber grade keine Lust den zu beheben
Aber ich denke der Code sollte dir schon helfen.
Wenn der benutzer auf beenden klickt wird die verbleibende Zeit in eine .txt Datei geschrieben und beim nächsten neustart des Programms wird sie wieder ausgelesen.
mfG