Resolved: (VB.NET) How To Make a Label Blink, But Be On longer than Off For Easier Reading?

Question:

I want a warning label (which is an image with text on it) to be on say for 800ms then blink off for 200ms rather than just the standard same interval for on/off. There are other labels and I need this one to stand out. I find it hard to read if it is blinking too fast and it would be off too long if I kept it on for say a few seconds with just a single timer. The headerflag comes from a different function to signify if it is needed.
Would something like this be possible? I have 2 timers thinking it would be easy, but the label just kind of freaks out as I play with the intervals. Maybe my code is just too simple for what I need? Bad intervals? More timers?

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer_ON.Tick
    Timer_ON.Interval = 800     ' Blink on for 800ms
    If HeaderFlag = 1 Then
        Warning_Header.Visible = Not Warning_Header.Visible
    End If
End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer_OFF.Tick
    Timer_OFF.Interval = 200    ' Blink off for 200ms
    If HeaderFlag = 1 Then
        Warning_Header.Visible = Not Warning_Header.Visible
    End If
End Sub

Answer:

Using one timer is good advice.

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    If headerflag = 1 Then
        Warning_Header.Visible = Not Warning_Header.Visible
        Select Case Timer1.Interval
            Case 200
                Timer1.Interval = 800
            Case Else
                Timer1.Interval = 200
        End Select
    End If
End Sub

If you have better answer, please add a comment about this, thank you!

Resolved: (VB.NET) How To Make a Label Blink, But Be On longer than Off For Easier Reading?

Resolved: How can I write CSS selector(s) that apply to table rows for all td elements on that row after a td with a certain class?

Resolved: How do I use SetWindowText with Unicode in Win32 using PowerShell?

Resolved: Shopware 400 Status Error “This value is too long. It should have 255 character or less.” When I Try Updating Database Table

Leave A Reply