ClearImage COM Server Send comments on this topic.
Zone Property
See Also  Example

Description

Current zone coordinates

Property type

Read-only property

Syntax

Visual Basic
Public Property Zone() As CiRect

Remarks

Use Zone property to read or modify zone coordinates of zone object.  It has no effect on image object.

Example

VB Example (Visual Basic)Copy Code
Public Sub T_Zone(ByRef Img As CiImage)
    ' Create zone on image
  Dim ImgZone As CiImage, ImgZone1 As CiImage
    ' Create zone
  Set ImgZone = Img.CreateZone(Img.Width / 3, Img.Height / 3, _
                               Img.Width * 2 / 3, Img.Height * 2 / 3)
    ' Inverts zo1ne
  ImgZone.Invert
    ' Use CreateZoneRect to create another zone
  Set ImgZone1 = Img.CreateZoneRect(ImgZone.Zone)
    ' Use Zone property to expand zone
  ImgZone1.Zone.left = ImgZone1.Zone.left - 100
  ImgZone1.Zone.right = ImgZone1.Zone.right + 100
  ImgZone1.Zone.top = ImgZone1.Zone.top - 50
  ImgZone1.Zone.bottom = ImgZone1.Zone.bottom + 50
    ' Inverts expanded zone
  ImgZone1.Invert
    ' Use IsZone property
  Debug.Print "Img is '" & IIf(Img.IsZone, "zone", "image") & "' object"
  Debug.Print "ImgZone1 is '" & IIf(ImgZone1.IsZone, "zone", "image") & "' object"
    ' Use Parent property
  If (Not ImgZone1.Parent.IsZone) Then
    ImgZone1.Parent.Invert
  End If
End Sub

See Also