SetRegion Method
Syntax
CWIMAQRegion.SetRegion Shape, XPointArray, YPointArray [, External = True]
Purpose
Obsolete Programmatically modifies many region properties with one method call.
Remarks
To add a region, create a shape object of the appropriate type, set its properties, and then use the appropriate CWIMAQRegions.Add method. The example below illustrates how to convert from the old code to the new code.
This method is valid only for the following shapes :
| cwimaqRegionBrokenline |
| cwimaqRegionFreeline |
| cwimaqRegionFreeregion |
| cwimaqRegionLine |
| cwimaqRegionOval |
| cwimaqRegionPoint |
| cwimaqRegionPolygon |
| cwimaqRegionRect |
Parameters
Shape As CWIMAQRegionShapes
The new shape of the region. The following are valid values for this parameter:
| cwimaqRegionBrokenline |
| cwimaqRegionFreeline |
| cwimaqRegionFreeregion |
| cwimaqRegionLine |
| cwimaqRegionOval |
| cwimaqRegionPoint |
| cwimaqRegionPolygon |
| cwimaqRegionRect |
XPointArray As Variant
The array of new x-coordinates for the region.
YPointArray As Variant
The array of new y-coordinates for the region.
External As Variant
[Optional] The new contour identifier for the region.
This parameter has a default value of True.
Example
Private Sub Run_Click()
' Add a red rectangular region to the viewer using 1.0 functions
CWIMAQViewer1.Regions.DefaultRegionColor = vbRed
Dim Region As CWIMAQRegion
Set Region = CWIMAQViewer1.Regions.Add
Region.SetRegion cwimaqRegionRect, Array(10, 99), Array(10, 99)
' Add a green rectangular region to the viewer using 6.0 functions
CWIMAQViewer1.Regions.DefaultRegionColor = vbGreen
CWIMAQViewer1.Regions.AddRectangle CWIMAQVision1.MakeRectangle(10, 10, 90, 90)
End Sub