Функция DeleteObject

Declare Function DeleteObject Lib "gdi32.dll" (ByVal hObject As Long) As Long

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

hObject
Дескриптор объекта

Пример:

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

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

Категория: Устройства

В начало.