Imports System.Windows.Threading
 
 
    Partial Public Class LueftungWindow
 
 
        Private NumPadWindow As NumPad
 
        Private DatenEdited As Boolean = False
 
        Private MyTimer As New DispatcherTimer
 
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
          System.Windows.RoutedEventArgs)
            ' Eingabe öffnen
            Button1_Test()
            DatenEdited = True
        End Sub
 
        Private Sub Button1_Test()
            ' Daten überprüfen
        End Sub
 
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
          System.Windows.RoutedEventArgs)
            ' Eingabe öffnen
            Button2_Test()
            DatenEdited = True
        End Sub
 
 
        Private Sub Button2_Test()
            ' Daten überprüfen
        End Sub
 
        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
          System.Windows.RoutedEventArgs)
            ' Eingabe öffnen
            Button3_Test()
            DatenEdited = True
        End Sub
 
 
        Private Sub Button3_Test()
            ' Daten überprüfen
        End Sub
 
 
        Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
          System.Windows.RoutedEventArgs)
            ' Eingabe öffnen
            Button4_Test()
            DatenEdited = True
        End Sub
 
 
        Private Sub Button4_Test()
            ' Daten überprüfen
        End Sub
 
 
        Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As _
          System.Windows.RoutedEventArgs)
            ' Eingabe öffnen
            Button5_Test()
            DatenEdited = True
        End Sub
 
 
        Private Sub Button5_Test()
            ' Daten überprüfen
        End Sub
 
 
 
 
        Private Sub Window_Loaded(ByVal sender As Object, ByVal e As _
          System.Windows.RoutedEventArgs) Handles Me.Loaded
 
            MyTimer.Interval = TimeSpan.FromSeconds(My.Settings.TimerInterval)
 
            MyTimer(MyTimer.Tick, AddressOf MyTimer_Elapsed)
            MyTimer.IsEnabled = True
        End Sub
 
        Private Sub MyTimer_Elapsed()
            MyTimer.IsEnabled = False
            DatenEdited = False
            GrundAnzeige.Show()
            Me.Close()
        End Sub
 
    End Class

'
'///
'
Es gibt keine dummen Fragen. Dumm ist nur der, der nicht fragt sondern dumme Antworten gibt!