Windows API Guide: CloseHandle Function


Declare Function CreateSolidBrush Lib "gdi32.dll" (ByVal crColor As Long) As Long

Platforms: Win 32s, Win 95/98, Win NT

CreateSolidBrush creates a solid brush object. When used to fill an area or shape, this brush creates a solid fill of a single color. After it is finished using the brush, the program should use DeleteObject to delete the brush and free up system resources. The function returns a handle to the newly created solid brush if successful, or 0 if an error occured.

crColor
The RGB value of the color to give the solid brush. Visual Basic users can use the intrinsic RGB() function to calculate this value.

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 brush

See Also: CreateHatchBrush
Category: Brushes

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/c/createsolidbrush.html



Windows API Guide
Windows API Guide - Reference - Volume 1: Version 3.0 For the MS-DOS and PC-DOS Operating Systems
ISBN: B001V0KQIY
EAN: N/A
Year: 1998
Pages: 610

flylib.com © 2008-2017.
If you may any questions please contact us: flylib@qtcs.net