Головна |
Використовуючи функції 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