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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
|
#include "stdafx.h"
#include "WindowsProject3.h"
#include <Windows.h>
#include <CommCtrl.h>
#define MAX_LOADSTRING 100
#define BUTTON_ID 0x12
// Global Variables:
HINSTANCE hInst; // current instance
WCHAR szTitle[MAX_LOADSTRING]; // The title bar text
WCHAR szWindowClass[MAX_LOADSTRING]; // the main window class name
// Forward declarations of functions included in this code module:
ATOM MyRegisterClass(HINSTANCE hInstance);
BOOL InitInstance(HINSTANCE, int);
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
INT_PTR CALLBACK About(HWND, UINT, WPARAM, LPARAM);
HWND CreateToolTip(int toolID, HWND hDlg, LPWSTR pszText);
const wchar_t CLASS_NAME[] = L"Basic Window Class";
#define Debug(x) MessageBox(NULL, (LPCWSTR)x, NULL, NULL);
int APIENTRY wWinMain(_In_ HINSTANCE hInstance,
_In_opt_ HINSTANCE hPrevInstance,
_In_ LPWSTR lpCmdLine,
_In_ int nCmdShow)
{
hInst = hInstance;
WNDCLASS wc = { };
wc.lpfnWndProc = WndProc;
wc.hInstance = hInst;
wc.lpszClassName = CLASS_NAME;
RegisterClass(&wc);
HWND hWnd = CreateWindow(
CLASS_NAME,
L"MainWindowClass",
WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT, CW_USEDEFAULT, 240, 120,
(HWND)NULL,
(HMENU)NULL,
hInst,
NULL
);
if (!hWnd) { Debug(L"Error create MainWindow") }
ShowWindow(hWnd, SW_SHOW);
UpdateWindow(hWnd);
MSG msg;
while (GetMessage(&msg, NULL, 0, 0))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
return (int) msg.wParam;
}
LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{
switch (message)
{
case WM_CREATE:
{
CreateWindow(L"BUTTON", L"Push me !", WS_CHILD | WS_VISIBLE, 10, 10, 80, 60, hWnd, (HMENU)BUTTON_ID, NULL, NULL);
CreateToolTip(BUTTON_ID, hWnd, (LPWSTR)L"My balloon type tooltip");
break;
}
case WM_COMMAND:
{
int wmId = LOWORD(wParam);
// Parse the menu selections:
switch (wmId)
{
case IDM_ABOUT:
DialogBox(hInst, MAKEINTRESOURCE(IDD_ABOUTBOX), hWnd, About);
break;
case IDM_EXIT:
DestroyWindow(hWnd);
break;
default:
return DefWindowProc(hWnd, message, wParam, lParam);
}
}
break;
case WM_PAINT:
{
PAINTSTRUCT ps;
HDC hdc = BeginPaint(hWnd, &ps);
// TODO: Add any drawing code that uses hdc here...
EndPaint(hWnd, &ps);
}
break;
case WM_DESTROY:
PostQuitMessage(0);
break;
default:
return DefWindowProc(hWnd, message, wParam, lParam);
}
return 0;
}
HWND CreateToolTip(int toolID, HWND hDlg, LPWSTR pszText)
{
if (!toolID || !hDlg || !pszText)
{
return FALSE;
}
HWND hwndTool = GetDlgItem(hDlg, toolID);
HWND hwndTTip = CreateWindowEx(NULL, TOOLTIPS_CLASS, NULL,
WS_POPUP | TTS_ALWAYSTIP | TTS_BALLOON,
CW_USEDEFAULT, CW_USEDEFAULT,
CW_USEDEFAULT, CW_USEDEFAULT,
hDlg, NULL,
hInst, NULL);
if (!hwndTool || !hwndTTip)
{
return (HWND)NULL;
}
TOOLINFO toolInfo = { 0 };
toolInfo.cbSize = TTTOOLINFOA_V1_SIZE;
toolInfo.hwnd = hDlg;
toolInfo.uFlags = TTF_IDISHWND | TTF_SUBCLASS;
toolInfo.uId = (UINT_PTR)hwndTool;
toolInfo.lpszText = (LPWSTR)pszText;
SendMessage(hwndTTip, TTM_ACTIVATE, TRUE, 0);
if (!SendMessage(hwndTTip, TTM_ADDTOOL, 0, (LPARAM)&toolInfo))
{
Debug(L"SendMessage ADDTOOL error");
}
return hwndTTip;
} |
[Windows API] Accèder aux ToolTips à partir des Handles de fenêtres
) où j'ai créé un p'tit formulaire sous Excel en VBA avec un bouton ayant un ToolTip en guise de cobaye :
Répondre avec citation
) le tooltip... Pouvez-vous m'aider à corriger le code suivant (inspiré d'exemples de divers forums) :
... merci en tout cas pour ton aide. Disons que mon second message était quelque peu détourné de mon problème initial, mais je vois ça plutôt comme une étape incontournable à résoudre.
...
Partager