MapWinGIS:AxMap ClearDrawing
From MapWindow GIS
ClearDrawing
Clears all drawings on the drawing layer specified.
VB.NET Usage
Sub ClearDrawing(DrawHandle As Integer)
Parameters
|
DrawHandle | Drawing handle of the drawing layer for which all drawings are to be cleared. |
Sample Code
Private Sub ClearDrawing()
Dim draw_hndl As Integer
'Create new drawing layer on map
draw_hndl = Map1.NewDrawing(MapWinGIS.tkDrawReferenceList.dlScreenReferencedList)
'Draw filled red circle at x = 100, y = 100, with radius 50
Map1.DrawCircle(100, 100, 50, System.Convert.ToUInt32(RGB(255, 0, 0)), True)
'Allow user to see circle before it is cleared
MsgBox ("Circle drawn")
'Clear drawing we just made above
Map1.ClearDrawing(draw_hndl)
End Sub
VB 6 Usage
Sub ClearDrawing(DrawHandle As Long)
Parameters
|
DrawHandle | Drawing handle of the drawing layer for which all drawings are to be cleared. |
Sample Code
Private Sub ClearDrawing()
Dim draw_hndl As Long
Dim fill As Boolean
Dim col As OLE_COLOR
'Set color to be red
col = RGB(255, 0, 0)
'Set circle to be filled
fill = True
'Create new drawing layer on map
draw_hndl = Map1.NewDrawing(dlSpatiallyReferencedList)
'Draw filled red circle at x = 100, y = 100, with radius 50
Map1.DrawCircle 100, 100, 50, col, True
'Allow user to see circle before it is cleared
MsgBox ("Circle drawn")
'Clear drawing we just made above
Map1.ClearDrawing (draw_hndl)
End Sub
