Функция SelectObject

Declare Function SelectObject Lib "gdi32.dll" (ByVal hdc As Long, ByVal hObject As Long) As Long

Платформа: Win 95/98, Win NT

SelectObject выбирает объект для использования его в устройстве.Объект имеет растр,кисть,шрифт,перо,регион и т.д.Выбранный объект может использоваться устройством,сколько это может вам понадобиться.Функция возвращает дескриптор.

hdc
Контекст устройства для устройства,в котором используется объект.
hObject
дескриптор к растру,кисти,шрифту,перу,региону.

Пример:

' Рисуем прямоугольник с координатами
' (10,20) и (175,100) на форме Form1.
'Используем сплошную желтую кисть для заполнения прямоугольника.
Dim hbrush As Long  ' получаем дескриптор к желтой кисти
Dim holdbrush As Long  ' получаем дескриптор к кисти формы по умолчанию
Dim retval As Long  ' возвращаемое значение

hbrush = CreateSolidBrush(RGB(255, 255, 0))  ' создаем сплошную желтую кисть
' Сохраняем кисть формы по умолчанию,
'чтобы восстановить после завершения программы
holdbrush = SelectObject(Form1.hDC, hbrush)  ' выбираем кисть
' Рисуем желтый прямоугольник,используя желтую кисть
retval = Rectangle(Form1.hDC, 10, 20, 175, 100)
' Восстанавливает прежнюю кисть формы прежде уничтожения новой кисти
retval = SelectObject(Form1.hDC, holdbrush)  ' старая кисть
retval = DeleteObject(hbrush)  ' уничтожаем желтую кисть

Схожие функции DeleteObject

Категория: Устройства
В начало.

двухэтажные дома

древо-дом.рф