VB タスクトレイのアイコンをアニメーションさせる

タスクトレイのアイコンをアニメーションさせる

以下の例では、タスクトレイにアイコンC:\Sample1.icoおよびC:\Sample2.icoを交互に表示することで、アイコンをアニメーション表示する。

Dim Index As Integer = 1
Dim Icon1 As New Icon("C:\Sample1.ico")
Dim Icon2 As New Icon("C:\Sample2.ico")
Dim TaskIcon As New NotifyIcon

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Timer1.Interval = 500
    Timer1.Enabled = True

    TaskIcon.Visible = True

End Sub

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

    If Index = 1 Then
        TaskIcon.Icon = Icon1
        Index = 2
    Else
        TaskIcon.Icon = Icon2
        Index = 1
    End If

End Sub

メモ：NotifyIconはデザイン時にフォームに貼り付けて使用することもできます。