MapWinGIS:AxMap DrawPoint
From MapWindow GIS
DrawPoint
Draws a point on the last drawing layer created by NewDrawing.
See also NewDrawing
VB.NET Usage
Sub DrawPoint(x As Double, y As Double, pixelSize As Integer, color As System.UInt32)
Parameters
|
x | The x coordinate of the point to draw. |
| y | The x coordinate of the point to draw. |
| pixelSize | The size in pixels of the point to be drawn. |
| color | The color of the point to be drawn. This is a UInt32 representation of an RGB color. |
Sample Code
Private Sub DrawPoint()
Dim draw_hndl As Integer, size As Integer
Dim x1 As Double, y1 As Double
'Set point as x = 100, y = 100
x1 = 100
y1 = 100
'Set pixel size for point
size = 5
'Create new drawing layer on map
draw_hndl = Map1.NewDrawing(MapWinGIS.tkDrawReferenceList.dlScreenReferencedList)
'Draw black point on map
Map1.DrawPoint(x1, y1, size, System.Convert.ToUInt32(RGB(0, 0, 0)))
End Sub
VB 6 Usage
Sub DrawPoint(x As Double, y As Double, pixelSize As Long, color As OLE_COLOR)
Parameters
|
x | The x coordinate of the point to draw. |
| y | The x coordinate of the point to draw. |
| pixelSize | The size in pixels of the point to be drawn. |
| color | The color of the point to be drawn. |
Sample Code
Private Sub DrawPoint()
Dim draw_hndl As Long, size As Long
Dim x1 As Double, y1 As Double
'Set point as x = 100, y = 100
x1 = 100
y1 = 100
'Set pixel size for point
size = 5
'Create new drawing layer on map
draw_hndl = Map1.NewDrawing(MapWinGIS.tkDrawReferenceList.dlScreenReferencedList)
'Draw black point on map
Map1.DrawPoint x1, y1, size, RGB(0, 0, 0)
End Sub
