Declare Function DeleteObject Lib "gdi32.dll" (ByVal hObject As Long) As Long
DeleteObject deletes an object after the program has finished using it. These objects include bitmaps, brushes, fonts, palettes, pens, and regions. Of course the object should never be deleted until it is no longer in use by any devices (see the example for a demonstration). Deleting the object frees up system resources associated with it. The function returns 1 if successful, or 0 if an error occured.
Example:
' Draw a rectangle with corners (10,20) and (175,100)
' on window Form1. Use a solid yellow brush to fill the rectangle.
Dim hbrush As Long ' receives handle to the solid yellow brush
Dim holdbrush As Long ' receives handle to Form1's default brush
Dim retval As Long ' return value
hbrush = CreateSolidBrush(RGB(255, 255, 0)) ' create a solid yellow brush
' Save Form1's default brush so we can restore it after the program is finished
holdbrush = SelectObject(Form1.hDC, hbrush) ' select the brush
' Draw the rectangle filled using the solid yellow brush
retval = Rectangle(Form1.hDC, 10, 20, 175, 100)
' Restore Form1's previous brush before destroying the created one
retval = SelectObject(Form1.hDC, holdbrush) ' select old brush
retval = DeleteObject(hbrush) ' destroy the solid yellow brushCategory: Devices
Go back to the alphabetical Function listing.
Go back to the Reference section index.
This page is copyright © 2000 Paul Kuliniewicz. Copyright Information.
Go back to the Windows API Guide home page.
E-mail: vbapi@vbapi.com Send Encrypted E-Mail
This page is at http://www.vbapi.com/ref/d/deleteobject.html