界面控件DevExpress WinForms – 如何实现地图搜索功能？

DevExpress Map控件支持Microsoft的Bing搜索和OpenStreetMap搜索服务，允许您在应用程序中嵌入搜索功能。 启用此功能后，您可以在Search Panel（或使用自定义UI）中输入搜索条件，实现请求，并在地图和搜索面板中查看结果。

重要提示：由于Bing于 2017 年 7 月 30 日取消 SOAP 服务，地图控件的Bing搜索提供程序在 16.1 版和早期版本中无法正常工作。

启用搜索

执行以下操作以在Map控件中启用搜索：

• 创建一个信息层并将其添加到地图中，信息层提供了表示从地图控件中的搜索服务获得的 GIS 数据的矢量元素。
• 创建BingSearchDataProvider 或OsmSearchDataProvider实例并将其分配给InformationLayer.DataProvider属性。
• 使用BingMapDataProviderBase.BingKey 属性为Bing Data Provider指定Bing Maps key。

下面的代码片段显示了如何执行此操作。

C#

private void Form1_Load(object sender, System.EventArgs e) {// ...InformationLayer infoLayer = new InformationLayer();map.Layers.Add(infoLayer);BingSearchDataProvider searchProvider = new BingSearchDataProvider();infoLayer.DataProvider = searchProvider;searchProvider.BingKey = yourBingKey;}

VB.NET

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load' ....Dim infoLayer As New InformationLayer()map.Layers.Add(infoLayer)Dim searchProvider As New BingSearchDataProvider()infoLayer.DataProvider = searchProvidersearchProvider.BingKey = yourBingKeyEnd Sub

您还可以自定义搜索结果计数：

C#

private void Form1_Load(object sender, System.EventArgs e) {// ...searchProvider.SearchOptions.ResultsCount = 5;}

VB.NET

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load' ....searchProvider.SearchOptions.ResultsCount = 5End Sub

当Map控件包含提供搜索数据的信息层时，Map控件会自动调用其内置的搜索面板（MapControl.ShowSearchPanel默认设置为 true）。

使用自定义 UI

Map控件提供带有附加参数的搜索功能，例如国家地区或邮政编码。 使用这种方法，您可以构建自定义搜索面板以从搜索服务中获取额外的搜索结果。

注意：将MapControl.ShowSearchPanel属性设置为 false 以在使用此方法时禁用默认搜索面板。

要开始搜索位置，请调用BingSearchDataProvider.Search或 OsmSearchDataProvider.Search方法。

例如，应用程序的 UI 包含一个名为“tbKeywords”的文本框和一个名为“btnSearch”的按钮。 要开始搜索，请单击调用以下 Search 方法重载的 Search 按钮：

C#

private void OnClick(object sender, EventArgs e) {searchProvider.Search(tbKeywords.Text);}

VB.NET

Private Sub OnClick(ByVal sender As Object, ByVal e As EventArgs) Handles btnSearch.ClicksearchProvider.Search(tbKeywords.Text)End Sub

搜索结果

要获取搜索结果，请处理BingSearchDataProvider.SearchCompleted或OsmSearchDataProvider.SearchCompleted事件。

SearchCompleted 事件处理程序参数的SearchCompletedEventArgs.RequestResult提供SearchRequestResult后代类实例来存储搜索结果。

结果包含与搜索位置关联的显示名称、地址和地理坐标（纬度和经度）。

Form1.cs

void OnSearchCompleted(object sender, BingSearchCompletedEventArgs e) {if(e.Cancelled) return;if(e.RequestResult.ResultCode != RequestResultCode.Success) {meResult.Text = "The Bing Search service does not work for this location.";return;}StringBuilder resultList = new StringBuilder("");int resCounter = 1;foreach(BingLocationInformation resultInfo in e.RequestResult.SearchResults) {resultList.Append(String.Format("Result {0}: rn", resCounter));resultList.Append(String.Format("Name: {0}rn", resultInfo.DisplayName));resultList.Append(String.Format("Address: {0}rn", resultInfo.Address.FormattedAddress));resultList.Append(String.Format("Confidence level: {0}rn", resultInfo.Confidence));resultList.Append(String.Format("Geographic coordinates: {0}rn", resultInfo.Location));resultList.Append(String.Format("Match code: {0}rn", resultInfo.MatchCode));resultList.Append(String.Format("______________________________rn"));resCounter++;}meResult.Text = resultList.ToString();}

Form1.vb

Private Sub OnSearchCompleted(ByVal sender As Object, ByVal e As BingSearchCompletedEventArgs)If e.Cancelled ThenReturnEnd IfIf e.RequestResult.ResultCode <> RequestResultCode.Success ThenmeResult.Text = "The Bing Search service does not work for this location."ReturnEnd IfDim resultList As New StringBuilder("")Dim resCounter As Integer = 1For Each resultInfo As BingLocationInformation In e.RequestResult.SearchResultsresultList.Append(String.Format("Result {0}: " & ControlChars.CrLf, resCounter))resultList.Append(String.Format("Name: {0}" & ControlChars.CrLf, resultInfo.DisplayName))resultList.Append(String.Format("Address: {0}" & ControlChars.CrLf, resultInfo.Address.FormattedAddress))resultList.Append(String.Format("Confidence level: {0}" & ControlChars.CrLf, resultInfo.Confidence))resultList.Append(String.Format("Geographic coordinates: {0}" & ControlChars.CrLf, resultInfo.Location))resultList.Append(String.Format("Match code: {0}" & ControlChars.CrLf, resultInfo.MatchCode))resultList.Append(String.Format("______________________________" & ControlChars.CrLf))resCounter += 1Next resultInfomeResult.Text = resultList.ToString()End Sub

“New York”关键字的搜索结果如下图所示。

DevExpress技术交流群6：600715373      欢迎一起进群讨论