MS

app/DD-Record-Organiser/frmGoogle.vb

@@ -0,0 +1,79 @@
+Imports System.Web
+Imports System.Text
+Imports DevExpress.XtraMap
+
+Public Class frmGoogle
+
+
+    Private ReadOnly Property SearchLayer() As InformationLayer
+        Get
+            Return CType(MapControl1.Layers("SearchLayer"), InformationLayer)
+        End Get
+    End Property
+    Private ReadOnly Property SearchProvider() As BingSearchDataProvider
+        Get
+            Return CType(SearchLayer.DataProvider, BingSearchDataProvider)
+        End Get
+    End Property
+
+    Private Sub SearchLayer_DataRequestCompleted(ByVal sender As Object, ByVal e As RequestCompletedEventArgs)
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        ' Get the Google maps URL with defult zoom.
+        Dim url = GoogleMapUrl(txtAdress.Text, cmbType.Text, 0)
+
+        ' Display the URL in the WebBrowser control.
+        WebBrowser1.Navigate(url)
+        SearchProvider.Search(txtAdress.Text)
+        MapControl1.ZoomToFitLayerItems()
+    End Sub
+
+    Private Function GoogleMapUrl(query As String, map_type As String, zoom As Integer)
+
+        ' Start with the base map URL.
+        Dim _url As String = "http://maps.google.com/maps?"
+
+        '  Add the query.
+        _url &= "q=" + HttpUtility.UrlEncode(query, Encoding.UTF8)
+
+        'Add the type.
+        map_type = GoogleMapTypeCode(map_type)
+        If Not IsNothing(map_type) Then
+            _url += "&t=" + map_type
+        End If
+
+
+        'Add the zoom level.
+        If (zoom > 0) Then
+            _url += "&z=" + zoom.ToString()
+        End If
+
+
+        Return _url
+    End Function
+    ' Return a Google map type code.
+    Private Function GoogleMapTypeCode(map_type As String)
+        ' Insert the proper type.
+        Select Case map_type
+            Case "Map"
+                Return "m"
+            Case "Satellite"
+                Return "k"
+            Case "Hybrid"
+                Return "h"
+            Case "Terrain"
+                Return "p"
+            Case "Google Earth"
+                Return "e"
+            Case Else
+                Return Nothing
+        End Select
+    End Function
+
+    Private Sub frmGoogle_Load(sender As Object, e As EventArgs) Handles Me.Load
+        InitializeComponent()
+        ' AddHandler SearchLayer.DataRequestCompleted, AddressOf SearchLayer_DataRequestCompleted
+    End Sub
+End Class