１０７．タスクトレイのアイコンを操作（追加、削除、変更）する

＜　使用用途　＞
タスクトレイ常駐型のプログラムをつくる時に使用

サンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・説明文を大量に書いています。

　＜　説明　＞
ＡＰＩ関数のShell_NotifyIconを使用します
Shell_NotifyIcon ＝＞タスクトレイのアイコンを操作する
　　＜引数＞
　　　　　dwMessage:定数（NIM_×××参照）
　　　　　lpData: NOTIFYICONDATA構造体　　　　　　　
　　＠戻り値＠
　　　　　 正常終了0以外

<　ＳＡＭＰＬＥ　＞

’ここでは関数だけにさせてもらいます。
'-------------------------------------------------------------------------------
'■関数名 AddIcon
'■用途 タスクトレイにアイコンを追加する
'■引数 nHwnd：ウインドウのハンドル、nIcon： アイコンのハンドル、nString： ツールチップの文字列
'-------------------------------------------------------------------------------
Public Function AddIcon(nHwnd As Long, nIcon As Long, nString As String)

　　Dim Ret As Long

　　　nString = nString & Chr(0)

　　 With NID
　　　.cbSize = Len(NID)　　　　　　　　　　　　　
　　　.hIcon = nIcon　　　　　　　　　　　　　　　　
　 　 .hWnd = nHwnd　　　　　　　　　　　　　　　
　　　.szTip = nString & Chr(0)　　　　　　　　　
　　　.uCallbackMessage = WM_MOUSEMOVE
　　　.uFlags = NIF_ICON Or _
　　　　　　　　NIF　_TIP Or _
　　　　　　　　NIF_MESSAGE 　　　　　　　　　　
　　　.uID = 1　　　　　　　　　　　　　　　　　　　
　　 End With
　　　
　　Ret = Shell_NotifyIcon(NIM_ADD, NID)

End Function

'---------------------------------
'■関数名 DeleteIcon
'■用途 タスクトレイのアイコンを削除する
'---------------------------------

Public Function DeleteIcon()
　
　 Dim Ret As Long
　　　Ret = Shell_NotifyIcon(NIM_DELETE, NID)

End Function