EternalWindows
タブコントロール / ツールチップの表示

今回は、タブコントロールにツールチップを表示します。 また、タブコントロールをウインドウの下に表示します。

#include <windows.h>
#include <commctrl.h>

#pragma comment (lib, "comctl32.lib")

LRESULT CALLBACK WindowProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam);

int WINAPI WinMain(HINSTANCE hinst, HINSTANCE hinstPrev, LPSTR lpszCmdLine, int nCmdShow)
{
	TCHAR      szAppName[] = TEXT("sample");
	HWND       hwnd;
	MSG        msg;
	WNDCLASSEX wc;

	wc.cbSize        = sizeof(WNDCLASSEX);
	wc.style         = 0;
	wc.lpfnWndProc   = WindowProc;
	wc.cbClsExtra    = 0;
	wc.cbWndExtra    = 0;
	wc.hInstance     = hinst;
	wc.hIcon         = (HICON)LoadImage(NULL, IDI_APPLICATION, IMAGE_ICON, 0, 0, LR_SHARED);
	wc.hCursor       = (HCURSOR)LoadImage(NULL, IDC_ARROW, IMAGE_CURSOR, 0, 0, LR_SHARED);
	wc.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH);
	wc.lpszMenuName  = NULL;
	wc.lpszClassName = szAppName;
	wc.hIconSm       = (HICON)LoadImage(NULL, IDI_APPLICATION, IMAGE_ICON, 0, 0, LR_SHARED);
	
	if (RegisterClassEx(&wc) == 0)
		return 0;

	hwnd = CreateWindowEx(0, szAppName, szAppName, WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, NULL, NULL, hinst, NULL);
	if (hwnd == NULL)
		return 0;

	ShowWindow(hwnd, nCmdShow);
	UpdateWindow(hwnd);
	
	while (GetMessage(&msg, NULL, 0, 0) > 0) {
		TranslateMessage(&msg);
		DispatchMessage(&msg);
	}

	return (int)msg.wParam;
}

LRESULT CALLBACK WindowProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
	static HWND hwndTab = NULL;
	
	switch (uMsg) {
		
	case WM_CREATE: {
		TCITEM               item;
		INITCOMMONCONTROLSEX ic;
		
		ic.dwSize = sizeof(INITCOMMONCONTROLSEX);
		ic.dwICC  = ICC_TAB_CLASSES;
		InitCommonControlsEx(&ic);
		
		hwndTab = CreateWindowEx(0, WC_TABCONTROL, TEXT(""), WS_CHILD | WS_VISIBLE | TCS_TOOLTIPS | TCS_BOTTOM, 0, 0, 0, 0, hwnd, (HMENU)1, ((LPCREATESTRUCT)lParam)->hInstance, NULL);		
		
		item.mask    = TCIF_TEXT;
		item.pszText = TEXT("タブA");
		TabCtrl_InsertItem(hwndTab, 0, &item);
		
		item.mask    = TCIF_TEXT;
		item.pszText = TEXT("タブB");
		TabCtrl_InsertItem(hwndTab, 1, &item);

		return 0;
	}
	
	case WM_PAINT: {
		HDC         hdc;
		PAINTSTRUCT ps;

		hdc = BeginPaint(hwnd, &ps);
		
		if (TabCtrl_GetCurSel(hwndTab) == 0)
			Rectangle(hdc, 0, 0, 30, 30);
		else
			Ellipse(hdc, 0, 0, 30, 30);

		EndPaint(hwnd, &ps);

		return 0;
	}
	
	case WM_NOTIFY:
		if (((LPNMHDR)lParam)->code == TCN_SELCHANGE)
			InvalidateRect(hwnd, NULL, TRUE);
		else if (((LPNMHDR)lParam)->code == TTN_GETDISPINFO) {
			LPTOOLTIPTEXT lpText = (LPTOOLTIPTEXT)lParam;

			if (lpText->hdr.idFrom == 0)
				lpText->lpszText = TEXT("タブA");
			else if (lpText->hdr.idFrom == 1)
				lpText->lpszText = TEXT("タブB");
			else
				;
		}
		else
			;
		return 0;
	
	case WM_SIZE:
		MoveWindow(hwndTab, 0, HIWORD(lParam) - 30, LOWORD(lParam), 30, TRUE);
		return 0;

	case WM_DESTROY:
		PostQuitMessage(0);
		return 0;

	default:
		break;

	}

	return DefWindowProc(hwnd, uMsg, wParam, lParam);
}

タブコントロールにツールチップを表示するためには、 ウインドウスタイルにTCS_TOOLTIPSを指定します。 これにより、カーソルをタブに合した際にTTN_GETDISPINFOが送られるため、 TOOLTIPTEXT構造体のlpszTextにツールチップとして表示したい文字列を指定します。 タブコントロールを下に表示するには、ウインドウスタイルにTCS_BOTTOMを指定し、 WM_SIZEでタブコントロールをウインドウの下に移動させます。


戻る