Questa funzione VB.net 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