vb.net - 必应地图中图钉的 AddHandler

Question

[VB2012] 我使用以下代码重复地将图钉从数据库添加到 Bing Maps WPF MapLayer (ml)：

Dim pp As New Pushpin()
pp.Location = New Location(utm.Latitude.GetDecimalCoordinate, utm.Longitude.GetDecimalCoordinate)
pp.PositionOrigin = PositionOrigin.BottomCenter
pp.Content = PinLabel
pp.ToolTip = PinLabel
pp.FontSize = 6.0R
' need to put an AddHandler in here
ml.Children.Add(pp)

图钉被添加并显示在地图播放器上。我不明白的是如何为每个图钉添加 AddHandler 以便我可以确定何时单击图钉。我真的很感激一些见解。我只是没有从我找到的在线示例中得到我需要做的事情。

Answer 1

在 WPF 中，Addhandler 语句与其他 VB.Net 应用程序中的构造相同。由于所有图钉都被路由到此事件，发送者对象将为您提供正确的图钉。

Addhandler pp.MouseDown, AddressOf pp_MouseDown

您必须使用与事件匹配的签名来制作子例程。

Private Sub pp_MouseDown(sender As Object, e As RoutedEventArgs)
  'sender is the PushPin in question
  Dim pp as PushPin = DirectCast(sender, PushPin)
End Sub