Visualizza wikitesto di Ottenere la Latitudine e la Longitudine del punto sulla mappa cliccato con il puntatore del mouse

Per ottenere la Latitudine e la Longitudine del punto sulla mappa, ove si è cliccato con il puntatore del mouse, è necessario usare il Metodo ".PixelToMapPointRel()" della Classe "Map" del Componente "gb.map", al quale va passato un Oggetto di tipo "Point" che dovrà contenere i valori delle Proprietà ".X" e ".Y" della Classe "Mouse".
<BR>Infatti detto Metodo converte le coordinate della superficie grafica, utilizzata per mostrare la mappa, in coordinate geografiche e restituisce un Oggetto di tipo della Classe "MapPoint", dalle cui Proprietà ".Lat" e ".Lon" si otterranno i valori dunque rispettivamente della Latitudine e della Longitudine del punto della mappa ove si è cliccato.

Mostriamo un semplice esempio:
 Private MapView1 As MapView
 
 
 Public Sub Form_Open()
 
  With Me
   .W = Screen.AvailableWidth
   .H = Screen.AvailableHeight
   .Arrangement = Arrange.Fill
  End With
  With MapView1 = New MapView(Me) As "MapView1"
    .Map.AddTile("GoogleMap", "https&#058;//mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
    .Map.Zoom = 15
    .Map.Center = New MapPoint(41.89018, 12.49230)
  End With
 
 End
 
 
 Public Sub MapView1_MouseUp()
 
  Dim <FONT Color=darkgreen>pt</font> As New <FONT Color=darkgreen><B>Point</b></font>(<FONT Color=darkorange>Mouse.X</font>, <FONT Color=darkorange>Mouse.Y</font>)
  Dim mp As MapPoint
 
  <FONT Color=red>mp</font> = MapView1<FONT Color=#B22222>.Map<B>.PixelToMapPointRel</b></font>(<FONT Color=darkgreen>pt</font>)
 
 <FONT Color=gray>' ''Mostra nell'intestazione della finestra principale il valore della Latitudine e della Longitudine:''</font>
  Me.Text = Format(<FONT Color=red>mp</font><FONT Color=blue><B>.Lat</b></font>, "0.000000") & "   " & Format(<FONT Color=red>mp</font><FONT Color=blue><B>.Lon</b></font>, "0.000000")
 
 End