タスクトレーアイコンについて (ID:106112)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 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 'ユーザーIDの設定 End With 'タスクトレイにアイコンを追加 Ret = Shell_NotifyIcon(NIM_ADD, NID) 'Ret = Shell_NotifyIcon(NIM_MODIFY, NID) End Function でアイコンが追加されますよね 次に Public Function MODIFYIcon(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 'ユーザーIDの設定 End With 'タスクトレイにアイコンを追加 Ret = Shell_NotifyIcon(NIM_MODIFY, NID) End Function ハンドルについて勉強してみます。 でもなんで難しいんだろ＜VB (>o<")