добавление точки по координатам

Question

Всем привет, столкнулся с такой проблеммой, как в mapObject

добавить точку по координатам(широта, долгота), тоесть есть два поля широта, долгота вносим в них значения и точка готова

админам просьба не блокировать эту тему

Answer 1

Примерно вот так:

Dim newpoint As New MapObjects2.Point



newpoint.X = 1

newpoint.Y = 2

newpoint.Z = 3

'Задать стиль отображения, взято из хелпа почти 1:1

 Dim g_symShape As New MapObjects2.Symbol

 With g_symShape

   .SymbolType = moPointSymbol

   .Style = moSolidFill

   .Color = moBlue

 End With

Потом в событие afterlayerdraw самой карты поставить рисование этой точки при index=0 (т.е. после отрисовки всего, что есть на карте, взято из хелпа):

Private Sub Map1_AfterLayerDraw(ByVal index As Integer, ByVal canceled As Boolean, ByVal hDC As stdole.OLE_HANDLE)

  If Not index = 0 Then Exit Sub

  If (Not newpoint Is Nothing) And (Not g_symShape Is Nothing) Then

    Map1.DrawShape newpoint, g_symShape

  End If

End Sub