ClearImage COM Server Send comments on this topic.
MeasureVertHistogram Method
See Also  Example

Description

Measure vertical histogram

Syntax

Visual Basic
Public Function MeasureVertHistogram() As Variant

Remarks

This method generates an error if Image is not bi-tonal.

Example

Measure Vertical and Horizontal Histograms
VB Example (Visual Basic)Copy Code
Public Sub T_MeasureHistogram(ByRef Tools As CiTools)
  Dim Hist, i, start

  Hist = Tools.MeasureHorzHistogram
  For i = LBound(Hist) To UBound(Hist)
    start = 0: If (Tools.Image.IsZone) Then start = Tools.Image.Zone.top
    Debug.Print "Row=" & start + i & " Pixels=" & Hist(i)
  Next

  Hist = Tools.MeasureVertHistogram
  For i = LBound(Hist) To UBound(Hist)
    start = 0: If (Tools.Image.IsZone) Then start = Tools.Image.Zone.left
    Debug.Print "Col=" & start + i & " Pixels=" & Hist(i)
  Next
End Sub

See Also