ヘッダー

VB.NET2002対応 VB.NET2003対応 VB2005対応

 

Visual Basic 中学校 > VB.NET サンプル >

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

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

VB.NET2002対応 VB.NET2003対応 VB2005対応

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はデザイン時にフォームに貼り付けて使用することもできます。