Please use FireFox to view this page

Visual Basic 6 definition

Declare Function CreateHatchBrush Lib "gdi32.dll" (ByVal nIndex As Long, ByVal crColor As Long) As Long

Visual Basic .NET definition

Declare Function CreateHatchBrush Lib "gdi32" (ByVal nIndex As Integer, ByVal crColor As Integer) As Integer

C# definition

[DllImport("gdi32")] public static extern int CreateHatchBrush(int nIndex, int crColor)

Description

Platforms: Win 32s, Win 95/98, Win NT 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. CreateHatchBrush Creates a brush with a hatch pattern and color. System.Drawing.Drawing2D.HatchBrush constructor CreateHatchBrush Creates a brush with a hatch pattern and color. System.Drawing.Drawing2D.HatchBrush constructor

Parameters

nIndex 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 Horizontal lines. HS_VERTICAL = 1 Vertical lines.

Further Information:

For further information on Windows API functions such as these, and how to use these API's in your C# and VB.NET applications, please refer to the book 'Network programming in .NET' (Buy at Amazon UK) (Buy at Amazon US)

Visual Basic 6 example source code
' Draw a rectangle with corners (10,20) and (175,100) ' on window Form1. Use a yellow brush with a diagonal cross pattern to fill the rectangle. Dim hbrush As Long ' receives handle to the hatched yellow brush Dim holdbrush As Long ' receives handle to Form1's default brush Dim retval As Long ' return value hbrush = CreateHatchBrush(HS_DIAGCROSS, RGB(255, 255, 0)) ' create a hatched 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 hatched 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 hatched yellow brush

Provide a code example

C#
VB.NET
VB6