我想要一個警告標簽（這是一個帶有文本的影像）顯示 800 毫秒，然后閃爍 200 毫秒，而不僅僅是標準相同的開/關間隔。還有其他標簽，我需要這個來脫穎而出。如果它閃爍得太快，我發現它很難閱讀，如果我只用一個計時器將它保持幾秒鐘，它就會關閉太久。來自不同的headerflag函式來表示是否需要它。
這樣的事情可能嗎？我有 2 個計時器認為這很容易，但是當我玩間隔時，標簽有點嚇壞了。也許我的代碼對于我需要的來說太簡單了？間隔不好？更多計時器？
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
uj5u.com熱心網友回復：
使用一個計時器是個好建議。
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
uj5u.com熱心網友回復：
只需使用單個Timer. Timer如果你能僥幸逃脫，請始終使用單個。在您的情況下，將 設定Interval為 200 然后等待四個Ticks隱藏Label，例如
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Static tickCount As Integer = 1
If Not Label1.Visible OrElse tickCount = 4 Then
Label1.Visible = Not Label1.Visible
tickCount = 1
Else
tickCount = 1
End If
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/492040.html