• 投影转换

三个SuperMap控件中装载的是同一坐标系、相同地理单位、相同地区的数据源，因此在三个SuperMap控件中的相同的点对应相同的位置。这就可以通过代码实现三个控件之间的连接，即时进行主控件的视图定位。

Private Sub cmdTranslate_Click()
  Dim objPrjTranslator As New soPJTranslator
  Dim strPcsSrcName, strPcsDesName As String
  Dim objDatasource As soDataSource
  Dim strDSName As String
  If (MsgBox("选择 确定 设定转换的目标坐标系，选 取消 放弃操作", vbOKCancel, "修改数据源坐标系") = vbOK) Then
'用户决定转换坐标系
    If objPCS.ShowSettingDialog Then
      Set objDatasource = Form1.SuperWorkspace1.Datasources(1)
      strPcsDesName = objPCS.Name
      strPcsSrcName = objDatasource.PJCoordSys.Name
      If MsgBox("源投影：" & strPcsSrcName & Chr(13) & "目标投影:" & strPcsDesName & Chr(13) _
& "选择 确定 转换坐标系，选 取消 放弃操作", vbOKCancel, "转换数据源坐标系") = vbOK Then
        Set objPrjTranslator.PJCoordSysDes = objPCS
        Set objPrjTranslator.PJCoordSysSrc = objDatasource.PJCoordSys
        objPrjTranslator.Create
        If objPrjTranslator.Convert(objDatasource) Then
        MsgBox strPcsSrcName & "==>" & strPcsDesName & " 转换成功！"
        Unload Me
      Else
        MsgBox "转换失败！"
      End If
      Set objPCS = Nothing
      Set objPrjTranslator = Nothing
     End If
   End If
  End If
End Sub