CreateHatchBrush creates a hatched brush object. When used to fill an area or shape, this brush produces a pattern of lines (a "hatch pattern") in a single color using an 8x8 unit cell. After the program finishes using the hatched brush, it should use DeleteObject to delete the brush and free system resources. The function returns a handle to the newly created hatched brush if successful, or 0 if an error occured.
Declare Function CreateHatchBrush Lib "gdi32.dll" (ByVal nIndex As Long, _
ByVal crColor As Long) As Long
Exactly one of the following flags specifying which hatch pattern to use to make the brush:
HS_BDIAGONAL = 3
Diagonal lines from the bottom-left to the upper-right.
HS_CROSS = 4
Cross pattern of horizontal and vertical lines.
HS_DIAGCROSS = 5
Cross pattern of perpendicular diagonal lines.
HS_FDIAGONAL = 2
Diagonal lines from the upper-left to the bottom-right.
HS_HORIZONTAL = 0
HS_VERTICAL = 1
The RGB value of the color to give the hatched brush. Visual Basic users can use the RGB() function to generate this value.
Dim hbrush As Long
Dim holdbrush As Long
Dim retval As Long
hbrush = CreateHatchBrush(HS_DIAGCROSS, RGB(255, 255, 0))
holdbrush = SelectObject(Form1.hDC, hbrush)
retval = Rectangle(Form1.hDC, 10, 20, 175, 100)
retval = SelectObject(Form1.hDC, holdbrush)
retval = DeleteObject(hbrush)