如何将信息添加到 Bing Maps WPF 图钉

Question

我想为我的每个图钉添加一个自定义信息选项卡，当单击或光标滑过它时会出现。这对我来说是第一次，我想知道我将如何制作一个非常基本的代码，并且由于我当前使用 VB 的代码布局，我宁愿在 VB 中使用它而不是 XAML.

目前我正在使用循环在地图上实现多个图钉。

Dim CountyLocations(3) As Location
CountyLocations(0) = New Location(55.852663, -2.3889276)
CountyLocations(1) = New Location(55.956023, -3.1607265) 
CountyLocations(2) = New Location(54.840279, -3.2886766) 
CountyLocations(3) = New Location(52.819511, -1.8851815)

For index = 0 to  CountyLocations.Length - 1
Dim Pin = New Microsoft.Maps.MapControl.WPF.Pushpin()
Pin.Location =  CountyLocations(index)
UserControl11.BingMap.Children.Add(Pin)
Next

Q1。如何在图钉上创建基本信息选项卡（资源材料）

Q2。我将如何添加到我当前的代码中？

Answer 1

是的，我就是这么想的。只需使用 ToolTips。也许您必须将 Location 的字符串表示形式调整为您想要的坐标格式。这是一个完整的工作示例。

XAML:

<Window x:Class="MainWindow"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:wpf="clr-namespace:Microsoft.Maps.MapControl.WPF;assembly=Microsoft.Maps.MapControl.WPF"
    Title="MainWindow" Height="350" Width="525">
    <Grid>
        <wpf:Map x:Name="myMap" ZoomLevel="5" CredentialsProvider="My Key" 
                 Mode="Aerial" Center="55.852663, -2.3889276"></wpf:Map>
    </Grid>
</Window>

隐藏代码：

Imports Microsoft.Maps.MapControl.WPF

Class MainWindow

    Public Sub New()
        InitializeComponent()
        CreatePushPinsWithToolTip()
    End Sub

    Private Sub CreatePushPinsWithToolTip()
        Dim CountyLocations(3) As Location
        CountyLocations(0) = New Location(55.852663, -2.3889276)
        CountyLocations(1) = New Location(55.956023, -3.1607265)
        CountyLocations(2) = New Location(54.840279, -3.2886766)
        CountyLocations(3) = New Location(52.819511, -1.8851815)

        For index = 0 To CountyLocations.Length - 1
            Dim Pin = New Microsoft.Maps.MapControl.WPF.Pushpin()

            Dim CoordinateTip As ToolTip = New ToolTip()
            CoordinateTip.Content = CountyLocations(index).ToString

            Pin.Location = CountyLocations(index)
            Pin.ToolTip = CoordinateTip
            myMap.Children.Add(Pin)
        Next
    End Sub

End Class

现在，如果您将鼠标悬停在 PushPin 上，则会出现带有坐标的工具提示。

编辑： 要显示不同的名称，只需创建 Strings 的集合，并在创建 Pushpins 及其 ToolTips 的同一循环中使用它。这是一个例子：

Private Sub CreatePushPinsWithToolTip()
    Dim CountyLocations(3) As Location
    CountyLocations(0) = New Location(55.852663, -2.3889276)
    CountyLocations(1) = New Location(55.956023, -3.1607265)
    CountyLocations(2) = New Location(54.840279, -3.2886766)
    CountyLocations(3) = New Location(52.819511, -1.8851815)

    Dim names = New String() {"sam", "tom", "leon", "eddy"}

    For index = 0 To CountyLocations.Length - 1
        Dim Pin = New Microsoft.Maps.MapControl.WPF.Pushpin()

        Dim CoordinateTip = New ToolTip()
        CoordinateTip.Content = names(index)

        Pin.Location = CountyLocations(index)
        Pin.ToolTip = CoordinateTip
        myMap.Children.Add(Pin)
    Next
End Sub

如何将信息添加到 Bing Maps WPF 图钉

How to add information to Bing Maps WPF Pushpin

wpf

vb.net

maps

bing-maps

bing