Private Sub ShowMistake(ByVal sender As Object, ByVal e As EventArgs)
    labShow.Text = session.CurrentVocable.Translation(0)
    labShow.ForeColor = Properties.Settings.[Default].TranslationColor
    
    Select Case Properties.Settings.[Default].DisplayTimeout
        Case 0
            ' 0sec
            timMistake.Interval = 1
            Exit Select
        Case 1
            ' 1sec
            timMistake.Interval = 1000
            Exit Select
        Case 2
            ' 2sec
            timMistake.Interval = 2000
            Exit Select
        Case 3
            ' 3sec
            timMistake.Interval = 3000
            Exit Select
        Case 4
            ' TODO: wait for key
            Exit Select
    End Select
    
    timMistake.Start()
End Sub
 
Private Sub timMistake_Tick(ByVal sender As Object, ByVal e As EventArgs)
    timMistake.Stop()
    labShow.ForeColor = Properties.Settings.[Default].VocableColor
    session.SetNextVocable()
End Sub

---
Woher soll ich wissen, was ich denke, bevor ich h?re, was ich sage?

Beitrag wurde zuletzt am 09.08.09 um 00:52:06 editiert.