Hi,
I'm new to developing and have downloaded a trial of the WPF controls.I am trying to follow an example explaining how to use the geocode features. I have tried a few different ways but i always get the same error "Object reference not set to an instance of an object." when it tries to run the code
here is my full code any help would be greatly appreciated.
XAML
VB
Thanks :)
I'm new to developing and have downloaded a trial of the WPF controls.I am trying to follow an example explaining how to use the geocode features. I have tried a few different ways but i always get the same error "Object reference not set to an instance of an object." when it tries to run the code
Me.geocodeProvider.GeocodeAsync(geocodeRequest)here is my full code any help would be greatly appreciated.
XAML
<Window x:Class="MainWindow" xmlns:telerik="http://schemas.telerik.com/2008/xaml/presentation" Title="MainWindow" Height="480" Width="620"> <telerik:RadMap x:Name="RadMap" Height="540" VerticalAlignment="Top" ZoomLevel="7" Center="53.7500, -1.8333" MouseLocationIndicatorVisibility="Visible" NavigationVisibility="Collapsed" MapMouseDoubleClick="radMap1_MapMouseDoubleClick" MouseDoubleClickMode="None"> <telerik:RadMap.Provider> <telerik:BingMapProvider Mode="Aerial" IsLabelVisible="True" IsTileCachingEnabled="True" ApplicationId="MY BING MAPS KEY" /> </telerik:RadMap.Provider> <telerik:InformationLayer x:Name="informationlayer"> </telerik:InformationLayer> ></telerik:RadMap> </Window>VB
Imports Telerik.Windows.Controls.MapPartial Public Class MainWindow Dim geocodeProvider As BingGeocodeProvider Dim geocodeLocation As Location Public Sub New() InitializeComponent() End Sub Private Sub WindowLoaded(ByVal sender As Object, ByVal e As RoutedEventArgs) ' Init geocode provider. geocodeProvider = New BingGeocodeProvider() With { _ .ApplicationId = "MY BING MAPS KEY", _ .MapControl = Me.radMap _ } AddHandler Me.geocodeProvider.GeocodeCompleted, AddressOf Me.Provider_GeocodeCompleted ' Me.geocodeProvider.GeocodeCompleted += New EventHandler(Of GeocodeCompletedEventArgs)(AddressOf Provider_GeocodeCompleted) End Sub Private Sub BeginGeocodingRequest() Dim address As New Address() With { _ .CountryRegion = "UK", _ .PostalCode = "LS17 6HA" _ } Dim geocodeRequest As New GeocodeRequest() With { _ .Address = address _ } Me.geocodeProvider.GeocodeAsync(geocodeRequest) End Sub Private Sub Provider_GeocodeCompleted(ByVal sender As Object, ByVal e As GeocodeCompletedEventArgs) Dim response As GeocodeResponse = e.Response If response.Results.Count > 0 Then Me.radMap.SetView(response.Results(0).BestView) ' Me.informationlayer.ItemsSource = response.Results(0).Locations Me.informationlayer.ItemsSource = response.Results(0).Locations End If End Sub Private Sub radMap1_MapMouseDoubleClick(ByVal sender As System.Object, ByVal eventArgs As Telerik.Windows.Controls.Map.MapMouseRoutedEventArgs) Dim address As New Address() With { _ .CountryRegion = "UK", _ .PostalCode = "LS17 6HA" _ } Dim geocodeRequest As New GeocodeRequest() With { _ .Address = address _ } Me.geocodeProvider.GeocodeAsync(geocodeRequest) End SubEnd ClassThanks :)