在VC++6.0中使用气泡提示（转）

最新推荐文章于 2023-05-29 12:47:21 发布

jia162

最新推荐文章于 2023-05-29 12:47:21 发布

阅读量779

点赞数

分类专栏：气泡提示文章标签： vc++ shell ie integer delete string

气泡提示专栏收录该内容

4 篇文章 0 订阅

订阅专栏

首先需要更新一下VC6.0的SDK，方法如下：把ShellAPI.h文件中的关于任务栏提示的函数和常量替换为下面的内容：

Tray notification definitions typedef struct _NOTIFYICONDATAA { DWORD cbSize; HWND hWnd; UINT uID; UINT uFlags; UINT uCallbackMessage; HICON hIcon; #if (_WIN32_IE < 0x0500) CHAR szTip[64]; #else CHAR szTip[128]; #endif #if (_WIN32_IE >= 0x0500) DWORD dwState; DWORD dwStateMask; CHAR szInfo[256]; union { UINT uTimeout; UINT uVersion; } DUMMYUNIONNAME; CHAR szInfoTitle[64]; DWORD dwInfoFlags; #endif #if (_WIN32_IE >= 0x600) GUID guidItem; #endif } NOTIFYICONDATAA, *PNOTIFYICONDATAA; typedef struct _NOTIFYICONDATAW { DWORD cbSize; HWND hWnd; UINT uID; UINT uFlags; UINT uCallbackMessage; HICON hIcon; #if (_WIN32_IE < 0x0500) WCHAR szTip[64]; #else WCHAR szTip[128]; #endif #if (_WIN32_IE >= 0x0500) DWORD dwState; DWORD dwStateMask; WCHAR szInfo[256]; union { UINT uTimeout; UINT uVersion; } DUMMYUNIONNAME; WCHAR szInfoTitle[64]; DWORD dwInfoFlags; #endif #if (_WIN32_IE >= 0x600) GUID guidItem; #endif } NOTIFYICONDATAW, *PNOTIFYICONDATAW; #ifdef UNICODE typedef NOTIFYICONDATAW NOTIFYICONDATA; typedef PNOTIFYICONDATAW PNOTIFYICONDATA; #else typedef NOTIFYICONDATAA NOTIFYICONDATA; typedef PNOTIFYICONDATAA PNOTIFYICONDATA; #endif // UNICODE #define NOTIFYICONDATAA_V1_SIZE FIELD_OFFSET(NOTIFYICONDATAA, szTip[64]) #define NOTIFYICONDATAW_V1_SIZE FIELD_OFFSET(NOTIFYICONDATAW, szTip[64]) #ifdef UNICODE #define NOTIFYICONDATA_V1_SIZE NOTIFYICONDATAW_V1_SIZE #else #define NOTIFYICONDATA_V1_SIZE NOTIFYICONDATAA_V1_SIZE #endif #define NOTIFYICONDATAA_V2_SIZE FIELD_OFFSET(NOTIFYICONDATAA, guidItem) #define NOTIFYICONDATAW_V2_SIZE FIELD_OFFSET(NOTIFYICONDATAW, guidItem) #ifdef UNICODE #define NOTIFYICONDATA_V2_SIZE NOTIFYICONDATAW_V2_SIZE #else #define NOTIFYICONDATA_V2_SIZE NOTIFYICONDATAA_V2_SIZE #endif #if (_WIN32_IE >= 0x0500) #define NIN_SELECT (WM_USER + 0) #define NINF_KEY 0x1 #define NIN_KEYSELECT (NIN_SELECT | NINF_KEY) #endif #if (_WIN32_IE >= 0x0501) #define NIN_BALLOONSHOW (WM_USER + 2) #define NIN_BALLOONHIDE (WM_USER + 3) #define NIN_BALLOONTIMEOUT (WM_USER + 4) #define NIN_BALLOONUSERCLICK (WM_USER + 5) #endif #define NIM_ADD 0x00000000 #define NIM_MODIFY 0x00000001 #define NIM_DELETE 0x00000002 #if (_WIN32_IE >= 0x0500) #define NIM_SETFOCUS 0x00000003 #define NIM_SETVERSION 0x00000004 #define NOTIFYICON_VERSION 3 #endif #define NIF_MESSAGE 0x00000001 #define NIF_ICON 0x00000002 #define NIF_TIP 0x00000004 #if (_WIN32_IE >= 0x0500) #define NIF_STATE 0x00000008 #define NIF_INFO 0x00000010 #endif #if (_WIN32_IE >= 0x600) #define NIF_GUID 0x00000020 #endif #if (_WIN32_IE >= 0x0500) #define NIS_HIDDEN 0x00000001 #define NIS_SHAREDICON 0x00000002 // says this is the source of a shared icon // Notify Icon Infotip flags #define NIIF_NONE 0x00000000 // icon flags are mutually exclusive // and take only the lowest 2 bits #define NIIF_INFO 0x00000001 #define NIIF_WARNING 0x00000002 #define NIIF_ERROR 0x00000003 #define NIIF_ICON_MASK 0x0000000F #if (_WIN32_IE >= 0x0501) #define NIIF_NOSOUND 0x00000010 #endif #endif SHSTDAPI_(BOOL) Shell_NotifyIconA(DWORD dwMessage, PNOTIFYICONDATAA lpData); SHSTDAPI_(BOOL) Shell_NotifyIconW(DWORD dwMessage, PNOTIFYICONDATAW lpData); #ifdef UNICODE #define Shell_NotifyIcon Shell_NotifyIconW #else #define Shell_NotifyIcon Shell_NotifyIconA #endif // !UNICODE End Tray Notification Icons

在stdafx.h文件中添加以下内容： #ifndef _WIN32_IE // 允许使用 IE 4.0 或更高版本的特定功能。 #define _WIN32_IE 0x0500 //为 IE 5.0 及更新版本改变为适当的值。 #endif 自定义消息及处理函数：

#define MYWM_NOTIFYICON WM_USER+1 afx_msg void OnMyIconNotify(WPARAM wParam,LPARAM lParam); ON_MESSAGE(MYWM_NOTIFYICON,OnMyIconNotify)

添加变量： NOTIFYICONDATA m_nData;

在任务栏通知区添加图标和提示的代码：

m_nData.cbSize=sizeof(NOTIFYICONDATA); m_nData.hWnd=GetSafeHwnd(); m_nData.uFlags=NIF_MESSAGE|NIF_INFO|NIF_ICON; m_nData.uCallbackMessage=MYWM_NOTIFYICON; m_nData.uID=IDR_MAINFRAME; m_nData.hIcon=AfxGetApp()->LoadIcon(IDR_MAINFRAME); m_nData.dwInfoFlags=NIIF_INFO; _tcscpy(m_nData.szInfoTitle,"管理员"); _tcscpy(m_nData.szInfo,"欢迎使用"); Shell_NotifyIcon(NIM_ADD,&m_nData);

修改气泡提示的代码： void CTipDlg::OnButton1() { _tcscpy(m_nData.szInfoTitle,"提醒你"); _tcscpy(m_nData.szInfo,"内容改变"); m_nData.uTimeout=1000; m_nData.uVersion=NOTIFYICON_VERSION; Shell_NotifyIcon(NIM_MODIFY,&m_nData); }

删除的代码： BOOL CTipDlg::DestroyWindow() { Shell_NotifyIcon(NIM_DELETE,&m_nData); return CDialog::DestroyWindow(); }

消息处理函数： void CTipDlg::OnMyIconNotify(WPARAM wParam,LPARAM lParam) { UINT uMouseMsg=LOWORD(lParam); switch(uMouseMsg) { case WM_LBUTTONDBLCLK: SendMessage(WM_CLOSE,0,0); break; case WM_LBUTTONDOWN: Shell_NotifyIcon(NIM_MODIFY,&m_nData); break; } }

具体使用方法请参考源代码和相关资料!

顺便提供一下在VB中的使用方法：

'添加两个菜单'注意：要运行本全程，您必须安装 Win2000/XP 或更高版本的操作系统（Shell version 5 or better）
'在窗口中添加菜单如下：
'        标题                  名称
'        测试                  mnuTest
'        ...关于            mnuabout
'        ...退出            mnuexit
'然后将以下代码复制到窗体代码区：
Option Explicit
'向窗口发送消息
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long , ByVal wMsg As Long , ByVal wParam As Long , lparam As Any ) As Long
'获取鼠标坐标（全屏幕）
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI ) As Long
Private Type POINTAPI
       X As Long
       Y As Long
End Type
'设置窗口为前景窗口
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long ) As Long
'***********************最小化到任务栏要使用的API、常数、枚举等开始*************************
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long , lpData As NOTIFYICONDATA ) As Long
Private Type NOTIFYICONDATA
       cbSize As Long   'NOTIFYICONDATA类型的大小，用Len(变量名)获得即可
       hwnd As Long   '窗体的名柄
       uId As Long   '图标资源的ID号，通常使用 vbNull
       uFlags As Long   '使哪些参数有效它是以下枚举类型中的 NIF_INFO Or NIF_ICON Or NIF_TIP Or NIF_MESSAGE 四个常数的组合
       uCallBackMessage As Long   '接受消息的事件
       hIcon As Long   '图标名柄
       szTip As String * 128     '当鼠标停留在图标上时显示的Tip文本
       dwState As Long   '通常为 0
       dwStateMask As Long   '通常为 0
       szInfo As String * 256     'Tip文本正文
       uTimeoutOrVersion As Long       '由于VB中没有Union类型，只能用Long型代替
       szInfoTitle As String * 64     'Tip文本的标题
       dwInfoFlags As Long
End Type
Private Const NOTIFYICON_VERSION = 3
Private Const NOTIFYICON_OLDVERSION = 0
'操作任务栏图标的常数
Private Const NIM_ADD = &H0      '添加图标
Private Const NIM_MODIFY = &H1      '修改图标
Private Const NIM_DELETE = &H2      '删除图标
Private Const NIM_SETFOCUS = &H3
Private Const NIM_SETVERSION = &H4
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const NIF_STATE = &H8
Private Const NIF_INFO = &H10
Private Const NIS_HIDDEN = &H1
Private Const NIS_SHAREDICON = &H2
'Tip上的图标
Private Const NIIF_NONE = &H0      '没有图标
Private Const NIIF_WARNING = &H2      '“警告”图标（黄色的“！”）
Private Const NIIF_ERROR = &H3      '“错误”图标（红色的“X”）
Private Const NIIF_INFO = &H1      '“消息”图标（蓝色的“i”）
Private Const WM_MOUSEMOVE = &H200                '在图标上移动鼠标
Private Const WM_LBUTTONDOWN = &H201            '鼠标左键按下
Private Const WM_LBUTTONUP = &H202                '鼠标左键释放
Private Const WM_LBUTTONDBLCLK = &H203        '双击鼠标左键
Private Const WM_RBUTTONDOWN = &H204            '鼠标右键按下
Private Const WM_RBUTTONUP = &H205                '鼠标右键释放
Private Const WM_RBUTTONDBLCLK = &H206        '双击鼠标右键
Private Const WM_SETHOTKEY = &H32                  '响应您定义的热键
Private Const SC_RESTORE = &HF120 &      '还原窗口
Private Const WM_SYSCOMMAND = &H112      '系统消息
Private nfIconData   As NOTIFYICONDATA
Public Enum TipType
   [ttAdd] = NIM_ADD
   [ttModify] = NIM_MODIFY
   [ttDelete] = NIM_DELETE
End Enum
'***********************最小化到任务栏要使用的API、常数、枚举等结束*************************
'显示、修改或删除 Balloon ToolTip
Private Sub ShowToolTip (frmName As Form , ttTipType As TipType , Optional strTip As String = "" , Optional strTitle As String = "" , Optional strInfo As String = "" )
If ttTipType = ttDelete Then
   Call Shell_NotifyIcon (NIM_DELETE , nfIconData )
   Exit Sub
End If
With nfIconData
       .cbSize = Len (nfIconData )
       .hwnd = frmName .hwnd
       .uId = vbNull
       .uFlags = NIF_INFO Or NIF_ICON Or NIF_TIP Or NIF_MESSAGE
       .hIcon = frmName .Icon
       .szTip = strTip & vbNullChar
       .dwState = 0
       .dwStateMask = 0
       .szInfo = strInfo & vbNullChar
       .uTimeoutOrVersion = 5000
       .szInfoTitle = strTitle & vbNullChar
       .dwInfoFlags = NIIF_INFO
       .uCallBackMessage = WM_LBUTTONUP
End With
Call Shell_NotifyIcon (ttTipType , nfIconData )
End Sub

Private Sub Form_Load ()
Call ShowToolTip ( Me , ttAdd , "Hello!" , "Hello!" , "看到了吗？这个就是 Balloon ToolTip！" )
End Sub
Private Sub Form_Unload (Cancel As Integer )
Call ShowToolTip ( Me , ttDelete )
End Sub
Private Sub Form_MouseUp (Button As Integer , Shift As Integer , X As Single , Y As Single )
Dim Result   As Long
Dim Msg   As Long
'X的值依赖与显示模式的设置
If Me .ScaleMode = vbPixels Then
   Msg = X
Else
   Msg = X / Screen .TwipsPerPixelX
End If
Select Case Msg
   Case WM_LBUTTONDOWN
       '在这里加入鼠标左键释放时你想做的操作
       If Me .WindowState = vbMinimized Then
           Me .Show
           SendMessage Me .hwnd , WM_SYSCOMMAND , SC_RESTORE , 0      '还原窗口大小
       Else
           Me .WindowState = vbMinimized
           Me .Hide
       End If
End Select
End Sub