PatternCanvases.Count property - Developer Area

API Documentation > CorelDRAW > X7.6 > PatternCanvases > IVGPatternCanvases

PatternCanvases.Count property

Gets the number of PatternCanvas in the PatternCanvases collection

Syntax:

Property Get Count() As Long

Remarks:

The Count property returns the number of pattern canvases available in the PatternCanvases collection.

Examples:

The following VBA example creates a sample tile of each available two-color pattern fill.

Sub Test()
  Const cx As Long = 8
  Const cy As Long = 10
  Dim i As Long
  Dim nx As Long, ny As Long
  Dim x As Double, y As Double
  Dim sx As Double, sy As Double
  Dim s As Shape
  sx = ActivePage.SizeWidth / cx
  sy = ActivePage.SizeHeight / cy
  nx = 0
  ny = 0
  For i = 1 To PatternCanvases.Count
    x = nx * sx
    y = ny * sy
    Set s = ActiveLayer.CreateRectangle2(x, y, sx, sy)
    s.Fill.ApplyPatternFill cdrTwoColorPattern, , i
    nx = nx + 1
    If nx >= cx Then
      nx = 0
      ny = ny + 1
    End If
  Next i
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