彩票走势图

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

翻译|使用教程|编辑:龚雪|2022-09-20 09:59:43.987|阅读 129 次

概述:本文将为大家介绍使用DevExpress WinForms控件开发地图应用时如何实现搜索功能,欢迎下载相关产品体验!

# 慧都年终大促·界面/图表报表/文档/IDE等千款热门软控件火热促销中 >>

相关链接:

DevExpress WinForm拥有180+组件和UI库,能为Windows Forms平台创建具有影响力的业务解决方案。DevExpress WinForms能完美构建流畅、美观且易于使用的应用程序,无论是Office风格的界面,还是分析处理大批量的业务数据,它都能轻松胜任!

获取DevExpress 最新版下载

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

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

和 类代表提供搜索功能的 Bing Search 和 OpenStreetMap Search 数据提供者,在本文中解释了如何在地图控件中使用搜索数据提供程序。

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

启用搜索

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

  • 创建一个并将其添加到地图中,信息层提供了表示从地图控件中的搜索服务获得的 GIS 数据的矢量元素。
  • 创建 或实例并将其分配给属性。
  • 使用 属性为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 = searchProvider
searchProvider.BingKey = yourBingKey
End 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 = 5
End Sub

当Map控件包含提供搜索数据的信息层时,Map控件会自动调用其内置的搜索面板(默认设置为 true)。

使用自定义 UI

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

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

要开始搜索位置,请调用或 方法。

例如,应用程序的 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.Click
searchProvider.Search(tbKeywords.Text)
End Sub

搜索结果

要获取搜索结果,请处理或事件。

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

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

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}: \r\n", resCounter));
resultList.Append(String.Format("Name: {0}\r\n", resultInfo.DisplayName));
resultList.Append(String.Format("Address: {0}\r\n", resultInfo.Address.FormattedAddress));
resultList.Append(String.Format("Confidence level: {0}\r\n", resultInfo.Confidence));
resultList.Append(String.Format("Geographic coordinates: {0}\r\n", resultInfo.Location));
resultList.Append(String.Format("Match code: {0}\r\n", resultInfo.MatchCode));
resultList.Append(String.Format("______________________________\r\n"));
resCounter++;
}
meResult.Text = resultList.ToString();
}

Form1.vb

Private Sub OnSearchCompleted(ByVal sender As Object, ByVal e As BingSearchCompletedEventArgs)
If e.Cancelled Then
Return
End If
If e.RequestResult.ResultCode <> RequestResultCode.Success Then
meResult.Text = "The Bing Search service does not work for this location."
Return
End If

Dim resultList As New StringBuilder("")
Dim resCounter As Integer = 1
For Each resultInfo As BingLocationInformation In e.RequestResult.SearchResults
resultList.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 += 1
Next resultInfo
meResult.Text = resultList.ToString()
End Sub

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

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

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

DevExpress技术套包全新上线,冰点折扣有优惠

标签:

本站文章除注明转载外,均为本站原创或翻译。欢迎任何形式的转载,但请务必注明出处、不得修改原文相关链接,如果存在内容上的异议请邮件反馈至chenjj@pclwef.cn

文章转载自:慧都网

为你推荐

  • 推荐视频
  • 推荐活动
  • 推荐产品
  • 推荐文章
  • 慧都慧问
扫码咨询


添加微信 立即咨询

电话咨询

客服热线
023-68661681

TOP