Document.GetUserArea method - Developer Area

API Documentation > Corel DESIGNER > 20.1 > Document > IVGDocument

Document.GetUserArea method

Allows a user to specify a rectangular area by dragging. Returns top left and bottom right x,y coordinatesa and information about the state of the modifier keys, CTRL, ALT and SHIFT keys at the moment of click

Syntax:

Function GetUserArea(ByRef x1 As Double, ByRef y1 As Double, ByRef x2 As Double, ByRef y2 As Double, ByRef ShiftState As Long, ByVal TimeOut As Long, ByVal Snap As Boolean, ByVal CursorShape As cdrCursorShape) As Long

Parameters:

Name	Type	Description
x1	Double	Specifies the x-coordinate for the upper-left corner of a rectangle shape on the active page that defines the user area. This value is measured in document units.
y1	Double	Specifies the y-coordinate for the upper-left corner of a rectangle shape on the active page that defines the user area. This value is measured in document units.
x2	Double	Specifies the x-coordinate for the lower-right corner of a rectangle shape on the active page that defines the user area. This value is measured in document units.
y2	Double	Specifies the y-coordinate for the lower-right corner of a rectangle shape on the active page that defines the user area. This value is measured in document units.
ShiftState	Long	Specifies the shift state
TimeOut	Long	Specifies the amount of time, in seconds, to wait for the user to click The default value for this parameter is 10.
Snap	Boolean	Specifies whether to recognize the snap The default value for this parameter is True. 0 recognizes the snap, while 1 ignores the snap.
CursorShape	cdrCursorShape	Specifies the shape of the cursor This value returns cdrCursorShape.

Remarks:

The GetUserArea method allows the user to specify a rectangular area in the document window (marquee selection). It also retrieves information about the state of the Ctrl, Shift, and Alt keys at the time of the selection.

Examples:

The following VBA example allows the user to select a rectangular area and then creates a rectangle with dimensions specified by the selection. If the user pressed Shift while making the selection, the rectangle receives round corners

Sub Test()
  Dim x1 As Double, y1 As Double, x2 As Double, y2 As Double
  Dim Shift As Long
  Dim b As Boolean
  Dim s As Shape
  Dim cr As Long, cg As Long, cb As Long
  b = ActiveDocument.GetUserArea(x1, y1, x2, y2, Shift, 10, False, cdrCursorEyeDrop)
  If Not b Then
    Set s = ActiveDocument.ActiveLayer.CreateRectangle(x1, y1, x2, y2)
    If (Shift And 1) <> 0 Then ' Shift pressed
      s.Rectangle.SetRoundness 50
    End If
  End If
End Sub

Version Information:

CorelDRAW:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER:	X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25