pass a list of address eg addresses As List(Of String)

Regards,
Dess | Tech Support Engineer, Sr.
Progress Telerik

Thank you for your reply

Unfortunately it wont work given the example you have offered

For index = 0 To addresses.Count - 1
            request.Query = addresses(index)
            request.SearchOptions.QueryParse = True
            bingProvider.SearchAsync(request)
        Next

This will only display the last address

Please also take note that I mentioned I dont have geo-coordinates for each address, I only have the  street address

It would appear that the radmap control as implemented cannot  search and display multiple address on a map

This is a serous shortcoming

Should you have further questions please let me know.

Regards,
Dess | Tech Support Engineer, Sr.
Progress Telerik

Thanks Very Much

I have gone with querying the bing api diectly and getting the geo coordinates for each address.

Having got those, I iterate through a datable  add each pin according to the row data 

This then allows me to customize the pins 

There is one problem with this approach , and that seems to be one of zoom on the map. I get the attached screen shot issue when doing the following

 If JobListBindingSource IsNot Nothing Then
            Dim allPoints = New Telerik.WinControls.UI.Map.RectangleG(Double.MinValue, Double.MaxValue, Double.MaxValue, Double.MinValue)
            Dim pinsLayer As Telerik.WinControls.UI.MapLayer = New MapLayer("Pins")

            Me.RadMap3.Layers.Add(pinsLayer)
            Dim location As BingMapsRESTToolkit.Location = Nothing
            For Each RV As DataRowView In JobListBindingSource
                location = TryCast(RV("GPS"), BingMapsRESTToolkit.Location)
                If location IsNot Nothing Then
                    Dim point As New Telerik.WinControls.UI.Map.PointG(location.Point.Coordinates(0), location.Point.Coordinates(1))
                    Dim pin As New Telerik.WinControls.UI.MapPin(point)
                    pin.Size = New System.Drawing.Size(20, 40)

                    pin.BackColor = Color.DeepPink

                    pin.ToolTipText = location.Address.FormattedAddress
                    Me.RadMap3.MapElement.Layers("Pins").Add(pin)
                    Dim callout As New MapCallout(pin)
                    callout.Text = RV("StageName").ToString
                    Me.RadMap3.MapElement.Layers("Pins").Add(callout)
                    allPoints.North = Math.Max(allPoints.North, point.Latitude)
                    allPoints.South = Math.Min(allPoints.South, point.Latitude)
                    allPoints.West = Math.Min(allPoints.West, point.Longitude)
                    allPoints.East = Math.Max(allPoints.East, point.Longitude)
                End If
            Next

            RadMap3.MapElement.ZoomLevel = 17
            If JobListBindingSource.Count = 1 AndAlso location IsNot Nothing Then
                Me.RadMap3.BringIntoView(New Telerik.WinControls.UI.Map.PointG(location.Point.Coordinates(0), location.Point.Coordinates(1)))
            ElseIf JobListBindingSource.Count > 1 Then
                Me.RadMap3.MapElement.BringIntoView(allPoints)
                'Me.RadMap3.Zoom(Me.RadMap3.MapElement.ZoomLevel - 1)
            End If
        Else
            Telerik.WinControls.RadMessageBox.Show("No result found for the provided search query!")
        End If

Regards,
Dess | Tech Support Engineer, Sr.
Progress Telerik

Thanks

For some reason the mapcontrol doesn't respond to setting zoom inside the code sample I sent.

If i set the zoom level in the calling method it works BUT if the zoom level is 20 or higher (which seems to be some sort of default...even though the zoom level in the properties  time is set to 17 at design) the issue occurs

PS There doesn't seem to be any event which traps a zoom event i fthe zoom is done via the on map zoom buttons

I tired the RadMap3.ZoomGesture but it doesn't get hit if I zoom the map via the zoom buttons

What am i missing here?

Hello, Andre, 

    Private Sub BingProvider_SearchCompleted(sender As Object, e As SearchCompletedEventArgs)
        Dim allPoints As New Telerik.WinControls.UI.Map.RectangleG(Double.MinValue, Double.MaxValue, Double.MaxValue, Double.MinValue)

        For Each location As Telerik.WinControls.UI.Map.Bing.Location In e.Locations
            Dim point As New Telerik.WinControls.UI.Map.PointG(location.Point.Coordinates(0), location.Point.Coordinates(1))
            Dim pin As New MapPin(point)
            pin.Size = New System.Drawing.Size(20, 40)
            pin.BackColor = Color.Red
            pin.ToolTipText = location.Address.FormattedAddress
            Me.RadMap1.MapElement.Layers("Pins").Add(pin)
            allPoints.North = Math.Max(allPoints.North, point.Latitude)
            allPoints.South = Math.Min(allPoints.South, point.Latitude)
            allPoints.West = Math.Min(allPoints.West, point.Longitude)
            allPoints.East = Math.Max(allPoints.East, point.Longitude)
        Next
        If e.Locations.Length > 0 Then

            If e.Locations.Length = 1 Then
                Me.RadMap1.BringIntoView(New Telerik.WinControls.UI.Map.PointG(e.Locations(0).Point.Coordinates(0), e.Locations(0).Point.Coordinates(1)))
            Else
                Me.RadMap1.MapElement.BringIntoView(allPoints)
                Me.RadMap1.Zoom(Me.RadMap1.MapElement.ZoomLevel - 1)
            End If
        Else
            RadMessageBox.Show("No result found for the provided search query!")
        End If 
    End Sub

When setting the ZoomLevel, please make sure that it is valid according to the provider's MaxZoomLevel.

        AddHandler Me.RadMap1.MapElement.NavigationBarElement.ZoomInButton.Click, AddressOf ZoomInButton_Click
        AddHandler Me.RadMap1.MapElement.NavigationBarElement.ZoomOutButton.Click, AddressOf ZoomOutButton_Click

Regards,
Dess | Tech Support Engineer, Sr.
Progress Telerik