MapWinGIS:AxMap DrawLine
From MapWindow GIS
DrawLine
Draws a line on the last drawing layer created using NewDrawing.
See also NewDrawing
VB.NET Usage
Sub DrawLine(x1 As Double, y1 As Double, x2 As Double, y2 As Double, pixelWidth As Integer, Color As System.UInt32)
Parameters
|
x1 | X coordinate of the first point used to draw the line. |
| y1 | Y coordinate of the first point used to draw the line. |
| x2 | X coordinate of the second point used to draw the line. |
| y2 | Y coordinate of the second point used to draw the line. |
| pixelWidth | Width of the line in pixels. |
| color | Color to draw the line with. This is a UInt32 representation of an RGB value. |
Sample Code
Private Sub DrawLine()
Dim draw_hndl As Integer, width As Integer
Dim x1 As Double, y1 As Double, x2 As Double, y2 As Double
'Set point 1 as x = 100, y = 100
x1 = 100
y1 = 100
'Set point2 as x = 500, y = 500
x2 = 500
y2 = 500
'Set pixel width for the line as 1
width = 1
'Create new drawing layer on map
draw_hndl = Map1.NewDrawing(MapWinGIS.tkDrawReferenceList.dlScreenReferencedList)
'Draw green line from point 1 to point 2
Map1.DrawLine(x1, y1, x2, y2, width, System.Convert.ToUInt32(RGB(0, 255, 0)))
End Sub
VB 6 Usage
Sub DrawLine(x1 As Double, y1 As Double, x2 As Double, y2 As Double, pixelWidth As Long, Color As OLE_COLOR)
Parameters
|
x1 | X coordinate of the first point used to draw the line. |
| y1 | Y coordinate of the first point used to draw the line. |
| x2 | X coordinate of the second point used to draw the line. |
| y2 | Y coordinate of the second point used to draw the line. |
| pixelWidth | Width of the line in pixels. |
| color | Color to draw the line with. |
Sample Code
Private Sub DrawLine()
Dim draw_hndl As Long, width As Long
Dim x1 As Double, y1 As Double, x2 As Double, y2 As Double
Dim col As OLE_COLOR
'Set point 1 as x = 100, y = 100
x1 = 100
y1 = 100
'Set point2 as x = 500, y = 500
x2 = 500
y2 = 500
'Set pixel width for the line as 1
width = 1
'Set the color for the line as green
col = RGB(0, 255, 0)
'Create new drawing layer on map
draw_hndl = Map1.NewDrawing(MapWinGIS.tkDrawReferenceList.dlScreenReferencedList)
'Draw green line from point 1 to point 2
Map1.DrawLine x1, y1, x2, y2, width, col
End Sub
