Операционная система Microsoft Windows 3.1 для программиста -том 2


Листинг 2.26. Файл listbox\listbox.cpp - часть 2


BOOL InitApp(HINSTANCE hInstance) { ATOM aWndClass; // атом для кода возврата WNDCLASS wc; // структура для регистрации // класса окна

memset(&wc, 0, sizeof(wc));

wc.style = 0; wc.lpfnWndProc = (WNDPROC) WndProc; wc.cbClsExtra = 0; wc.cbWndExtra = 0; wc.hInstance = hInstance; wc.hIcon = LoadIcon(NULL, IDI_APPLICATION); wc.hCursor = LoadCursor(NULL, IDC_ARROW); wc.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1); wc.lpszMenuName = (LPSTR)NULL; wc.lpszClassName = (LPSTR)szClassName;

// Регистрация класса aWndClass = RegisterClass(&wc);

return (aWndClass != 0); }

// ===================================== // Функция WndProc // =====================================

LRESULT CALLBACK _export WndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) { // Идентификатор органа управления "listbox" static HWND hListBox;

// Идентификатор кнопки static HWND hButton;

switch (msg) { case WM_CREATE: { // Создаем список hListBox = CreateWindow("listbox", NULL, WS_CHILD | WS_VISIBLE | LBS_STANDARD | LBS_WANTKEYBOARDINPUT, 30, 30, 200, 100, hwnd, (HMENU) ID_LIST, hInst, NULL);

// Отменяем режим перерисовки списка SendMessage(hListBox, WM_SETREDRAW, FALSE, 0L);

// Добавляем в список несколько строк

SendMessage(hListBox, LB_ADDSTRING, 0, (LPARAM)(LPSTR)"Зеленый");

SendMessage(hListBox, LB_ADDSTRING, 0, (LPARAM)(LPSTR)"Красный");

SendMessage(hListBox, LB_ADDSTRING, 0, (LPARAM)(LPSTR)"Розовый");

SendMessage(hListBox, LB_ADDSTRING, 0, (LPARAM)(LPSTR)"Пурпурный");

SendMessage(hListBox, LB_ADDSTRING, 0, (LPARAM)(LPSTR)"Синий");

SendMessage(hListBox, LB_ADDSTRING, 0, (LPARAM)(LPSTR)"Желтый");

SendMessage(hListBox, LB_ADDSTRING, 0, (LPARAM)(LPSTR)"Фиолетовый");

SendMessage(hListBox, LB_ADDSTRING, 0, (LPARAM)(LPSTR)"Черный");

SendMessage(hListBox, LB_ADDSTRING, 0, (LPARAM)(LPSTR)"Белый");

// Включаем режим перерисовки списка SendMessage(hListBox, WM_SETREDRAW, TRUE, 0L);




Начало  Назад  Вперед