您好
我下载WPF地图应用
然后我补充MapImage_MouseLeftButtonUp的事件为单击和标记点
这个公式是续集非常变焦'15'
但不好在其他变焦
我的代码是:

 Private Sub MapImage_MouseLeftButtonUp(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles MapImage.MouseLeftButtonUp

        If (location IsNot Nothing) Then

            '===========================================

            'Left Or Right

            Dim LRMove As Double = ((((e.GetPosition(MapImage).X) / (MapImage.ActualWidth / 100)) - 50) / 10000) * (2.15 * ((15 - zoom) + 1))

            'MsgBox(LRMove)

            Dim diffLeft As Double

            Dim shiftLeft As Double

            If (lng < 178) Then

                If (zoom = 15) Then

                    lng += LRMove

                ElseIf (zoom > 15) Then

                    diffLeft = zoom - 15

                    shiftLeft = ((15 - diffLeft) * LRMove) / 15

                    lng += shiftLeft

                Else

                    diffLeft = 15 - zoom

                    shiftLeft = ((15 + diffLeft) * LRMove) / 15

                    lng += shiftLeft

                End If

            Else

                lng = -180

            End If

            '===============================================

            'Top or Down

            Dim TDMove As Double = ((((e.GetPosition(MapImage).Y) / (MapImage.ActualHeight / 100)) - 50) / 10000) * (1.5 * ((15 - zoom) + 1))

            Dim diffTop As Double

            Dim shiftTop As Double

            If (lat > -88) Then

                If (zoom = 15) Then

                    lat -= TDMove

                ElseIf (zoom > 15) Then

                    diffTop = zoom - 15

                    shiftTop = ((15 + diffTop) * TDMove) / 15

                    lat += shiftTop

                Else

                    diffTop = 15 - zoom

                    shiftTop = ((15 - diffTop) * TDMove) / 15

                    lat -= shiftTop

                End If

            Else

                lat = -90

            End If

            '===============================================

            'ShowMapUsingLatLng()

            ShowMapUsingLatLng()

            '=====================================================

        End If

    End Sub

和ShowMapUsingLatLng小组是:
{C}
WPF地图应用项目地址是:

请帮我
thanx