2006年9月11第四版程序修改

1，修改地方：浏览停车轨迹，双击停车列表后直接转到停车点位置，修改了视野的限制。
      要不然的话视野老是800那么大。

        Private Sub VsfGrdStopInfo_DblClick()Sub VsfGrdStopInfo_DblClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles VsfGrdStopInfo.DblClick
            '//*-   转到停车点  -*//'
            '-----双击鼠标转到节点所在位置
            Dim DlbLongtitude As Double '---经度
            Dim DlbLatitude As Double  '---纬度
            If g_MouseRow = IntCurrentRow Then
                DlbLongtitude = VsfGrdStopInfo.get_Cell(VSFlex7.CellPropertySettings.flexcpText, g_MouseRow, 3, g_MouseRow, 3)
                DlbLatitude = VsfGrdStopInfo.get_Cell(VSFlex7.CellPropertySettings.flexcpText, g_MouseRow, 4, g_MouseRow, 4)

            Else
                DlbLongtitude = VsfGrdStopInfo.get_Cell(VSFlex7.CellPropertySettings.flexcpText, IntCurrentRow, 3, IntCurrentRow, 3)
                DlbLatitude = VsfGrdStopInfo.get_Cell(VSFlex7.CellPropertySettings.flexcpText, IntCurrentRow, 4, IntCurrentRow, 4)

            End If

            Try
                FrmNHistory.MapCtr.CenterX = DlbLongtitude
                FrmNHistory.MapCtr.CenterY = DlbLatitude
                FrmNHistory.Activate()
                'FrmNHistory.MapCtr.Zoom = 800
            Catch ex As Exception
                WriteErrToFile(Microsoft.VisualBasic.Format(Now, "HH:mm:ss") + " " + ex.StackTrace + ex.Message)
            End Try

        End Sub

转载于:https://www.cnblogs.com/shanghaif/archive/2006/09/11/MAPX.html