Функция SelectObject

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

Возвращаемое значение

Функция возвращает дескриптор предыдущего объекта того же типа. Если объект является регионом, то возвращается одна из констант (SIMPLEREGION, COMPLEXREGION, NULLREGION). В случае ошибки возвращается 0

Параметры

hdc

Контекст устройства, в котором используется объект

hObject

Дескриптор растра, кисти, шрифта, пера или региона

Пример

' смотри также пример icon.zip

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

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

Смотри также

Категория