<dxm:BingGeocodeDataProvider x:Name="geocodeProvider" ProcessMouseEvents="False"
BingKey="{Binding Source={StaticResource YourBingKey}}"
LocationInformationReceived="geocodeProvider_LocationInformationReceived"/>
private void geocodeProvider_LocationInformationReceived(object sender, LocationInformationReceivedEventArgs e) {
GeocodeRequestResult result = e.Result;
StringBuilder resultList = new StringBuilder("");
resultList.Append(String.Format("Status: {0}\n", result.ResultCode));
resultList.Append(String.Format("Fault reason: {0}\n", result.FaultReason));
resultList.Append(String.Format("______________________________\n"));
if (result.ResultCode != RequestResultCode.Success) {
tbResults.Text = resultList.ToString();
return;
}
int resCounter = 1;
foreach (LocationInformation locations in result.Locations) {
resultList.Append(String.Format("Request Result {0}:\n", resCounter));
resultList.Append(String.Format("Display Name: {0}\n", locations.DisplayName));
resultList.Append(String.Format("Entity Type: {0}\n", locations.EntityType));
resultList.Append(String.Format("Address: {0}\n", locations.Address));
resultList.Append(String.Format("Location: {0}\n", locations.Location));
resultList.Append(String.Format("______________________________\n"));
resCounter++;
}
tbResults.Text = resultList.ToString();
}
Private Sub geocodeProvider_LocationInformationReceived(ByVal sender As Object, ByVal e As LocationInformationReceivedEventArgs)
Dim result As GeocodeRequestResult = e.Result
Dim resultList As New StringBuilder("")
resultList.Append(String.Format("Status: {0}" & ControlChars.Lf, result.ResultCode))
resultList.Append(String.Format("Fault reason: {0}" & ControlChars.Lf, result.FaultReason))
resultList.Append(String.Format("______________________________" & ControlChars.Lf))
If result.ResultCode <> RequestResultCode.Success Then
tbResults.Text = resultList.ToString()
Return
End If
Dim resCounter As Integer = 1
For Each locations As LocationInformation In result.Locations
resultList.Append(String.Format("Request Result {0}:" & ControlChars.Lf, resCounter))
resultList.Append(String.Format("Display Name: {0}" & ControlChars.Lf, locations.DisplayName))
resultList.Append(String.Format("Entity Type: {0}" & ControlChars.Lf, locations.EntityType))
resultList.Append(String.Format("Address: {0}" & ControlChars.Lf, locations.Address))
resultList.Append(String.Format("Location: {0}" & ControlChars.Lf, locations.Location))
resultList.Append(String.Format("______________________________" & ControlChars.Lf))
resCounter += 1
Next locations
tbResults.Text = resultList.ToString()
End Sub