VB.NET 버튼 애니메이션 Timer로 간단하게 하기 (Button Animation) / Timer 사용법

 

VB.NET 

<Button Animation>

Public Sub New()

    InitializeComponent()

    Timer1.Interval = 600

End Sub

Private Sub when_lstbox_addeditem(sender As Object, e As EventArgs) Handles lst_up.MouseHover

    If lst.Items.Count > 0 Then ' ListBox에 아이템이 있으면 깜빡거리기
        Timer1.Enabled = True
    Else
        Timer1.Enabled = False
    End If

End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

    If btn_ex_up.BackColor = Color.White Then
        btn_ex_up.BackColor = Color.HotPink
    Else
        btn_ex_up.BackColor = Color.White
    End If

    If lst.Items.Count > 0 Then
        Timer1.Enabled = True
    Else
        ' 추가 된 아이템이 없다면 Timer를 Enable = False 한다.
        Timer1.Enabled = False
        btn_ex_up.BackColor = Color.White
    End If

End Sub