Hi,
I'm trying to get a slight variation on one of your demos working, but I'm somewhat stumped. I'm returning a description, latiitude and longitude list and while it is adding the Location objects to the list box (it moves to them when they are clicked on), the description is left blank. Any ideas why my code is not working? By the way, I tried figuring out my problem in the documentation, but since it is all in C#, it's useless. Thanks ahead.
I'm trying to get a slight variation on one of your demos working, but I'm somewhat stumped. I'm returning a description, latiitude and longitude list and while it is adding the Location objects to the list box (it moves to them when they are clicked on), the description is left blank. Any ideas why my code is not working? By the way, I tried figuring out my problem in the documentation, but since it is all in C#, it's useless. Thanks ahead.
Private
Sub
DoIT(
ByVal
sender
As
Object
,
ByVal
e
As
ProjectsListCompletedEventArgs)
Dim
providerMode
As
MapMode = MapMode.Aerial
Dim
isLabelVisible
As
Boolean
=
True
Dim
provider
As
MapProviderBase
provider =
New
BingMapProvider(providerMode, isLabelVisible,
"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
)
With
RadMap1
.ZoomBarVisibility = Windows.Visibility.Collapsed
.DistanceUnit = DistanceUnit.Mile
.NavigationVisibility = Windows.Visibility.Collapsed
.ScaleVisibility = Windows.Visibility.Collapsed
.CommandBarVisibility = Windows.Visibility.Collapsed
.Provider = provider
End
With
For
Each
result
In
e.Result
Dim
pinPoint
As
MapPinPoint =
New
MapPinPoint
With
pinPoint
.Background =
New
SolidColorBrush(Colors.White)
.Foreground =
New
SolidColorBrush(Colors.Blue)
.FontSize = 10
.Text = result.ProjectName
End
With
MapLayer.SetLocation(pinPoint,
New
Location(result.ProjectLat, result.ProjectLong))
Me
.InformationLayer.Items.Add(pinPoint)
'*****Location works but description is not shown for some reason*********
Dim
loc
As
New
Location
With
loc
.Description =
"TEST"
.Latitude = result.ProjectLat
.Longitude = result.ProjectLong
End
With
ProjectBox.Items.Add(loc)
Next
'*****Displays name, but of course, location doesn't work*********
'ProjectBox.ItemsSource = e.Result
'ProjectBox.DisplayMemberPath = "ProjectName"
End
Sub