FC2ブログ

タスクトレイへのアイコン登録について

タスクトレイへのアイコンの追加・削除方法

常駐アプリケーションでは,非常に重宝します。

'=======================================================================
'
' タスクトレイ関連
'
'=======================================================================

'--------------------
' API宣言
'--------------------
'---アイコンをシステムトレイへ表示
  Public Declare Function Shell_NotifyIcon Lib "SHELL32" _
  (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Integer

'---構造体
  Public Type NOTIFYICONDATA
    cbSize As Long 'NOTIFYCONDATAのサイズ
    hwnd As Long 'ウィンドウハンドル
    uID As Long 'ID
    uFlags As Long 'フラグ
    uCallbackMessage As Long '処理するメッセージ
    hIcon As Long 'アイコンのハンドル
    szTip As String * 64 'ToolTipテキスト
  End Type

'---定数
  Public Const NIM_ADD = 0 '登録
  Public Const NIM_MODIFY = 1 '変更
  Public Const NIM_DELETE = 2 '削除
  Public Const NIF_MESSAGE = 1
  Public Const NIF_ICON = 2
  Public Const NIF_TIP = 4

  Public Const WM_MOUSEMOVE = &H200
  Public Const WM_LBUTTONDOWN = &H201
  Public Const WM_LBUTTONUP = &H202
  Public Const WM_LBUTTONDBLCLK = &H203
  Public Const WM_RBUTTONDOWN = &H204
  Public Const WM_RBUTTONUP = &H205
  Public Const WM_RBUTTONDBLCLK = &H206
  Public Const WM_MBUTTONDOWN = &H207
  Public Const WM_MBUTTONUP = &H208
  Public Const WM_MBUTTONDBLCLK = &H209

  Public TND As NOTIFYICONDATA '構造体定義


'--------------------
' API呼出関数
'--------------------
'---タスクトレイアイコン表示・非表示関数
  Public Sub SysTrayIcon(GetPic As PictureBox, GetTip As String, GetMode As Long)

    TND.cbSize = Len(TND)
    TND.hwnd = Form1.Picture1.hwnd
    TND.uID = 1&
    TND.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    TND.hIcon = GetPic.Picture
    TND.uCallbackMessage = WM_MOUSEMOVE
    TND.szTip = GetTip & Chr$(0)
    Shell_NotifyIcon GetMode, TND

  End Sub


'---------------------------------------------------
' 利用方法(以下必要に応じてプロシージャに貼り付けて下さい。)
'---------------------------------------------------

'---アイコン登録
  Call SysTrayIcon(Picture1, App.Title, NIM_ADD)

'---アイコン表示文字内容変更
  Call SysTrayIcon(Picture1, "好きな言葉!", NIM_MODIFY)

'---アイコン削除
  Shell_NotifyIcon NIM_DELETE, TND



【宣伝・・・(*´ω`)】

タイトルロゴ3

 システム葵では、個人様向けでも企業様向けでも、パソコン修理から、パソコン設定、パソコンの使い方、LAN環境構築、ソフトウェア開発まで、様々な実績がありますので、困ったことがあれば、お気軽にご相談下さい。
関連記事

テーマ : プログラミング
ジャンル : コンピュータ

コメントの投稿

非公開コメント

検索フォーム
最新記事
カテゴリ
全記事表示リンク

全ての記事を表示する

最新コメント
プロフィール

ITLife

Author:ITLife
システム葵新井聡太です。
東京都東村山市に生まれ、ここで育ち、ここで結婚し、システムエンジニア一筋で十数年やってきました。
ここでは主に、パソコンを中心にITに関わることを備忘録として残していきたいと思います。
少しでも来ていただいた方のお役に立てたら幸いです。
m(_ _)m

p.s
ここで紹介している内容は一例です。すべては、自己責任でお願いします。

カレンダー
07 | 2019/08 | 09
- - - - 1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31
訪問数
月別アーカイブ
リンク