MapWinGIS:Shapefile EditInsertShape
From MapWindow GIS
EditInsertShape
Inserts a shape into the shapefile. Note: Both the shapefile and the attribute table must be in editing mode to insert a shape.
See also Shape
VB.NET Usage
Function EditInsertShape(Shape As MapWinGIS.Shape, ByRef ShapeIndex As Integer) As Boolean
Parameters
|
Shape | The shape object to be inserted into the shapefile. |
| ShapeIndex | Reference parameter. The desired shape index to place the shape into the shapefile. If this desired index is invalid or unavailable, the actual index will be returned. |
| ReturnValue | A boolean value representing the success or failure of inserting the shape into the shapefile. |
Sample Code
Private Sub EditInsertShape()
Dim sf As New MapWinGIS.Shapefile()
Dim shape As New MapWinGIS.Shape()
Dim shapeindex As Integer
'Set the shape index
shapeindex = 0
'Switch the shapefile into editing mode
sf.StartEditingShapes()
'Insert the shape into the shapefile at index 0 if available
sf.EditInsertShape(shape, shapeindex)
End Sub
VB 6 Usage
Function EditInsertShape(Shape As Shape, ByRef ShapeIndex As Long) As Boolean
Parameters
|
Shape | The shape object to be inserted into the shapefile. |
| ShapeIndex | Reference parameter. The desired shape index to place the shape into the shapefile. If this desired index is invalid or unavailable, the actual index will be returned. |
| ReturnValue | A boolean value representing the success or failure of inserting the shape into the shapefile. |
Sample Code
Private Sub EditInsertShape()
Dim sf As New MapWinGIS.Shapefile
Dim shape As New MapWinGIS.shape
Dim shapeindex As Long
'Set the shape index
shapeindex = 0
'Switch the shapefile into editing mode
sf.StartEditingShapes
'Insert the shape into the shapefile at index 0 if available
sf.EditInsertShape shape, shapeindex
End Sub
