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

Description

Object containing image memory of this object

Property type

Read-only property

Syntax

Visual Basic
Public Property Parent() As CiImage

Remarks

Parent returns an object that created zone object.   For image object Parent returns itself.

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