Inserire un'immagine come marcatore di coordinate su una MapView

Per inserire un'immagine come marcatore di coordinate su una MapView al posto della classica forma a goccia rossa, è necessario utilizzare il Metodo ".AddPoint( )" del Metodo ".AddShape( )" della Classe "Map".

Mostriamo un semplice esempio, nel quale all'apertura del programma sarà inserito sulla mappa un marcatore di coordinate rappresentato dall'immagine prescelta. Successivamente il marcatore potrà essere inserito sul punto della mappa, ove si clicca con il mouse: ^{[Nota 1]}

Private im As Image
Private mp As New MapPoint

Public Sub _New()
 
 MapView1.Map.AddTile("GoogleMap", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "904"]).SubDomains = ["0", "1", "2"]   '[Nota 1]
 
End


Public Sub Form_Open()
 
 im = Image.Load("/percorso/del/file/immagine")
 
' Imposta il centro della mappa specificandone preliminarmente le coordinate geografiche:
 mp.Lat = 41.8902142
 mp.Lon = 12.4900422
 With MapView1.Map
   .Center = mp
   .Zoom = 15
 End With
 
' Mostra l'immagine prescelta come marcatore delle coordinate:
 MapView1.Map.AddShape("immagine").AddPoint("immagine", mp, Color.Default, im)
 
End


Public Sub MapView1_MouseUp()
 
 Dim pt As New Point(Mouse.X, Mouse.Y)
  
 With MapView1
   mp = .Map.PixelToMapPointRel(pt)
   .Map.AddShape("immagine").AddPoint("immagine", mp, Color.Default, im)
   .Refresh()
   .Map.Refresh()
 End With
 
 Print mp.Lat, mp.Lon
 
End

Disegnare un'immagine su una MapView usando l'Oggetto "Figlio" DrawingArea

L'Oggetto "MapView" mostra la mappa su una "DrawingArea", che è un Oggetto "Figlio" di un "Panel", "Figlio" a sua volta dell'Oggetto "MapView".
Pertanto, sarà possibile utilizzare tale "DrawingArea" per disegnare qualsiasi cosa, facendola apparire al di sopra della mappa.

Mostriamo un semplice codice esemplificativo:

Private MapView1 As MapView
Private pn As Panel
Private im As Image
Private mmpp As New MapPoint[]


Public Sub Form_Open()
 
 With MapView1 = New MapView(Me) As "MapView1"
   .X = 0
   .Y = 0
   .W = Me.W
   .H = Me.H
   .Map.AddTile("topo", "https://a.tile.opentopomap.org/{z}/{x}/{y}.png")
' Individua dapprima l'Oggetto "Figlio" della "MapView", che è un "Panel":
   pn = .Children[0]
 End With
 
 im = Image.Load("/percorso/del/file/immagine")
 
End


Public Sub MapView1_MouseUp()
 
 Dim pt As New Point(Mouse.X, Mouse.Y)
 
' Si usa l'Oggetto "MapPoint" per garantire la coerenza del puntamento su un punto della mappa anche nel caso di spostamento o variazione dello zoom della mappa medesima:
 mmpp.Push(MapView1.Map.PixelToMapPointRel(pt))
 
 Me.Caption = CStr(mmpp[mmpp.Max].Lat) & "  -  " & CStr(mmpp[mmpp.Max].Lon)
 
 MapView1.Refresh
 
End


Public Sub MapView1_Draw()
 
 Dim i As Integer
 
 With Paint
' Disegna sull'Oggetto "Figlio" del "Panel", che è una "DrawingArea", la stessa che la Classe "MapView" usa per mostrare la mappa:
   .Begin(pn.Children[0])
   For i = 0 to mmpp.Max
' (x / 2) e (y / 2) per centrare l'immagine nel punto dove si clicca con il mouse:
     .DrawImage(im, MapView1.Map.MapPointToPixelRel(mmpp[i]).X - (im.W / 2), MapView1.Map.MapPointToPixelRel(mmpp[i]).Y - (im.H / 2), im.W, im.H, 0.6, Null)
   Next
   .End
 End With
 
End

Note

[1] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "904"]
Al riguardo vedere: Conoscere la versione più recente di Google Maps satellite