MapWinGIS:AxMap DrawCircle
From MapWindow GIS
DrawCircle
Draws a circle on the last drawing layer created by NewDrawing.
See also NewDrawing
VB.NET Usage
Sub DrawCircle(x As Double, y As Double, pixelRadius As Double, Color As System.UInt32, fill As Boolean)
Parameters
|
x | Center x coordinate for the circle to be drawn. |
| y | Center y coordinate for the circle to be drawn. |
| pixelRadius | Radius in pixels of the circle to be drawn. |
| Color | Color of the circle to be drawn. This is a UInt32 representation of an RGB color. |
| fill | Boolean value which determines whether the circle will be drawn with a fill or not. |
Sample Code
Private Sub DrawCircle()
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)
End Sub
VB 6 Usage
Sub DrawCircle(x As Double, y As Double, pixelRadius As Double, Color As OLE_COLOR, fill As Boolean)
Parameters
|
x | Center x coordinate for the circle to be drawn. |
| y | Center y coordinate for the circle to be drawn. |
| pixelRadius | Radius in pixels of the circle to be drawn. |
| Color | Color of the circle to be drawn. |
| fill | Boolean value which determines whether the circle will be drawn with a fill or not. |
Sample Code
Private Sub DrawCircle()
Dim draw_hndl As Long
'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, RGB(255, 0, 0), True
End Sub
