Google Maps

Questa funzione genera una mappa di Google Maps a partire dalle coordinate (latitudine e longitudine) passate come argomento.
La funzione è facilmente integrabile in un componente WebBrowser.

Codice

Private Function GoogleMaps(ByVal latitudine As String, ByVal longitudine As String) As String

         Return "<html>" & _
                "<body bgcolor=""#E0DFE3"" marginwidth=""0"" marginheight=""0"">" & _
                "<iframe width=""425"" " & _
                "height=""350"" " & _
                "frameborder=""0"" " & _
                "scrolling=""no"" " & _
                "marginheight=""0"" " & _
                "marginwidth=""0"" " & _
                "src=""http://maps.google.it/maps?f=q&sll=" & latitudine & "," & longitudine & _
                "&ie=UTF8&" & _
                "ll=" & latitudine & "," & longitudine & _
                "&z=17&output=embed"">" & _
                "</iframe>" & _
                "</body>" & _
                "</html>"

End Function

Utilizzo

Volendo visualizzare in una applicazione Windows form una mappa di Google Maps centrata su Piazza del Duomo di Milano, è sufficiente utilizzare un controllo WebBrowser ed impostarne la proprietà DocumentText() attraverso la nostra funzione a cui avremo passato le coordinate appropriate.

Ovviamente per poter funzionare correttamente occorre essere collegati ad internet.

Public Class frmTest

   Private Sub frmTest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      ' Mostra una mappa di Google Maps
      ' centrata sulle coordinate di Piazza del Duomo di Milano
      ' Latitudine = 45.464164
      ' Longitudine = 9.190321

      WebBrowser1.DocumentText = GoogleMaps("45.464164", "9.190321")

   End Sub

   Private Function GoogleMaps(ByVal latitudine As String, ByVal longitudine As String) As String

         Return "<html>" & _
                "<body bgcolor=""#E0DFE3"" marginwidth=""0"" marginheight=""0"">" & _
                "<iframe width=""425"" " & _
                "height=""350"" " & _
                "frameborder=""0"" " & _
                "scrolling=""no"" " & _
                "marginheight=""0"" " & _
                "marginwidth=""0"" " & _
                "src=""http://maps.google.it/maps?f=q&sll=" & latitudine & "," & longitudine & _
                "&ie=UTF8&" & _
                "ll=" & latitudine & "," & longitudine & _
                "&z=17&output=embed"">" & _
                "</iframe>" & _
                "</body>" & _
                "</html>"

   End Function

End Class

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *