Лекция: Особенности работы с логическим инструментом. Пример отображения в окне прямоугольника заданного размера, толщины и цвета.

Используя функции API, нарисовать красный прямоугольник с толщиной линии в 30 пикселей. DimPenAsLong, OldPenAsLongConstLightRed= &HFF' Идентификатора цветаPrivateSubCommand1_Click()DimhDcAsLonghDc= GetDC(Form1.hWnd)'Получаем дескриптор контекста формы 'Создаем сплошное перо красногоцвета' шириной 30 пикселей Pen= CreatePen(ps_Solid, 30, LightRed)'vbRed' Вставляем перо в контексте OldPen= SelectObject(hDc, Pen)'Pисуем прямоугольник CallRectangle(hDc, 30, 30, 300, 200)

CallSelectObject(hDc, OldPen)'Восстанавливаем контекст CallDeleteObject(Pen) 'Удаляем нестандартное перо'Освобождаем контекст окна CallReleaseDC(hWnd, hDc)EndSubPrivateSubForm_Load()Caption= «Пример использования контекста»Command1.Caption = «Rectangle»BackColor= &HFFFFFF'Белый цвет фона окнаEndSub