Please use FireFox to view this page

Visual Basic 6 definition

Declare Function CreatePenIndirect Lib "gdi32.dll" (lpLogPen As LOGPEN) As Long

Visual Basic .NET definition

Declare Function CreatePenIndirect Lib "gdi32" (ByRef lpLogPen As LOGPEN) As Integer

C# definition

[DllImport("gdi32")] public static extern int CreatePenIndirect(ref LOGPEN lpLogPen)

Description

CreatePenIndirect creates a pen object. The pen created is the one which is described by the logical pen information in the structure passed to the function. After your program is finished using the pen, it should be deleted via the DeleteObject function.

Return Value

If an error occured, the function returns 0 (Windows NT, 2000: use GetLastError to get the error code). If successful, the function returns a handle to the newly created pen.

Parameters

lpLogPen The description of the attributes to give to the newly created pen.

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 an ellipse on window Form1 using a one-pixel-wide ' square dashed green pen. Dim hPen As Long ' handle to the pen created Dim hOldPen As Long ' handle to Form1's previously selected pen Dim lpinfo As LOGPEN ' holds description of the pen Dim retval As Long ' return value ' Create the square dashed green pen with a width of zero (always one pixel). lpinfo.lopnStyle = PS_DASH ' dashed line lpinfo.lopnWidth.x = 0 ' minimum width lpinfo.lopnWidth.y = 0 ' this member is ignored lpinfo.lopnColor = RGB(0, 255, 0) ' green hPen = CreatePenIndirect(lpinfo) ' Select the pen for use by window Form1. hOldPen = SelectObject(Form1.hDC, hPen) ' Draw an ellipse with bounding rectangle (100,150)-(350,300). retval = Ellipse(Form1.hDC, 100, 150, 350, 300) ' Select the old pen for use by Form1. retval = SelectObject(Form1.hDC, hOldPen) ' Delete the pen we created to free up resources. retval = DeleteObject(hPen)

Provide a code example

C#
VB.NET
VB6