Головна

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

  1. ActiveX-компонент WebBrowser і об'єкт InternetExplorer для роботи в WWW з проектів Visual Basic.
  2. B. Приклад аналізу.
  3. CRM-системи. Визначення, призначення та особливості.
  4. Do і Make: правила вживання, переклад, приклад, відміну, різниця в значенні
  5. ERP -, MRP - системи. Визначення, призначення та особливості
  6. FDDI. Кадр. Процедури управління доступом до кільця і ??ініціалізації роботи кільця.
  7. I Загальна характеристика роботи

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




© 2016-2022  um.co.ua - учбові матеріали та реферати