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.
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