frmdefinecoords.frm

Shape 坐标转换程序 Shape 坐标转换程序

        MsgBox "北京54椭球体长半轴输入值非法,请返回检查.", vbOKOnly + vbInformation, "提示"
        txtBJ54A_2.SetFocus '返回到对应的Tab页面
        Exit Function
      End If
    End If
    If Trim$(txtBJ54F_2.Text) = "" Then
      MsgBox "北京54椭球体扁率不能为空值.", vbOKOnly + vbInformation, "提示"
      SetCurTab 2
      txtBJ54F_1.SetFocus '返回到对应的Tab页面
      Exit Function
    Else
      If Not IsNumeric(Trim$(txtBJ54F_1.Text)) Then
        MsgBox "北京54椭球体扁率输入值非法,请返回检查.", vbOKOnly + vbInformation, "提示"
        txtBJ54F_2.SetFocus '返回到对应的Tab页面
        Exit Function
      End If
    End If
    If Trim$(txtTWD67A_2.Text) = "" Then
      MsgBox "TWD67椭球体长半轴不能为空值.", vbOKOnly + vbInformation, "提示"
      SetCurTab 2
      txtTWD67A_2.SetFocus '返回到对应的Tab页面
      Exit Function
    Else
      If Not IsNumeric(Trim$(txtTWD67A_2.Text)) Then
        MsgBox "TWD67椭球体长半轴输入值非法,请返回检查.", vbOKOnly + vbInformation, "提示"
        txtBJ54A_2.SetFocus '返回到对应的Tab页面
        Exit Function
      End If
    End If
    If Trim$(txtTWD67F_2.Text) = "" Then
      MsgBox "TWD67椭球体扁率不能为空值.", vbOKOnly + vbInformation, "提示"
      SetCurTab 2
      txtTWD67F_2.SetFocus '返回到对应的Tab页面
      Exit Function
    Else
      If Not IsNumeric(Trim$(txtTWD67F_2.Text)) Then
        MsgBox "TWD67椭球体扁率输入值非法,请返回检查.", vbOKOnly + vbInformation, "提示"
        SetCurTab 2 '返回到对应的Tab页面
        txtTWD67F_2.SetFocus
        Exit Function
      End If
    End If
    If Trim$(txtDX_2.Text) = "" Then
      MsgBox "DX值不能为空.", vbOKOnly + vbInformation, "提示"
      txtDX_2.SetFocus
      Exit Function
    Else
      If Not IsNumeric(txtDX_2.Text) Then
        MsgBox "DX输入值非法,请检查输入.", vbOKOnly + vbInformation, "提示"
        SetCurTab 2 '返回到对应的Tab页面
        txtDX_2.SetFocus
        Exit Function
      End If
    End If
    If Trim$(txtDy_2.Text) = "" Then
      MsgBox "DY值不能为空.", vbOKOnly + vbInformation, "提示"
      SetCurTab 2
      txtEy_2.SetFocus
      Exit Function
    Else
      If Not IsNumeric(txtDy_2.Text) Then
        MsgBox "DY值不能为空.", vbOKOnly + vbInformation, "提示"
        SetCurTab 2
        txtDy_2.SetFocus '返回到对应的Tab页面
        Exit Function
      End If
    End If
    If Trim$(txtDz_2.Text) = "" Then
      MsgBox "DY值不能为空.", vbOKOnly + vbInformation, "提示"
      txtDz_2.SetFocus
      Exit Function
    Else
      If Not IsNumeric(txtEz_2.Text) Then
        MsgBox "EZ值不能为空.", vbOKOnly + vbInformation, "提示"
        SetCurTab 2
        txtEz_2.SetFocus '返回到对应的Tab页面
        Exit Function
      End If
    End If
    If Trim$(txtEx_2.Text) = "" Then
      MsgBox "EX值不能为空.", vbOKOnly + vbInformation, "提示"
      txtEx_2.SetFocus '返回到对应的Tab页面
      Exit Function
    Else
      If Not IsNumeric(txtEx_2.Text) Then
        MsgBox "EX输入值非法,请检查输入.", vbOKOnly + vbInformation, "提示"
        SetCurTab 2
        txtEx_2.SetFocus '返回到对应的Tab页面
        Exit Function
      End If
    End If
    If Trim$(txtEy_2.Text) = "" Then
      MsgBox "EY值不能为空.", vbOKOnly + vbInformation, "提示"
      SetCurTab 2
      txtEy_2.SetFocus
      Exit Function
    Else
      If Not IsNumeric(txtEy_2.Text) Then
        MsgBox "EY值不能为空.", vbOKOnly + vbInformation, "提示"
        txtEy_2.SetFocus '返回到对应的Tab页面
        Exit Function
      End If
    End If
    If Trim$(txtEz_2.Text) = "" Then
      MsgBox "EY值不能为空.", vbOKOnly + vbInformation, "提示"
      SetCurTab 2
      txtEz_2.SetFocus '返回到对应的Tab页面
      Exit Function
    Else
      If Not IsNumeric(txtEz_2.Text) Then
        MsgBox "EZ值不能为空.", vbOKOnly + vbInformation, "提示"
        txtEz_2.SetFocus
        Exit Function
      End If
    End If
    If Trim$(txtMScale_2.Text) = "" Then
      MsgBox "mScale值不能为空.", vbOKOnly + vbInformation, "提示"
      SetCurTab 2
      txtMScale_2.SetFocus
      Exit Function
    Else
      If Not IsNumeric(txtMScale_2.Text) Then
        MsgBox "mScale值不能为空.", vbOKOnly + vbInformation, "提示"
        SetCurTab 2
        txtMScale_2.SetFocus
        Exit Function
      End If
    End If
    'TWD67-TWD97
    If Trim$(txtTWD67A_3.Text) = "" Then
      MsgBox "北京54椭球体长半轴不能为空值.", vbOKOnly + vbInformation, "提示"
      SetCurTab 3
      txtTWD67A_3.SetFocus
      Exit Function
    Else
      If Not IsNumeric(Trim$(txtTWD67A_3.Text)) Then
        MsgBox "北京54椭球体长半轴输入值非法,请返回检查.", vbOKOnly + vbInformation, "提示"
        SetCurTab 3
        txtTWD67A_3.SetFocus '返回到对应的Tab页面
        Exit Function
      End If
    End If
    If Trim$(txtTWD67F_3.Text) = "" Then
      MsgBox "北京54椭球体扁率不能为空值.", vbOKOnly + vbInformation, "提示"
      txtTWD67F_3.SetFocus '返回到对应的Tab页面
      Exit Function
    Else
      If Not IsNumeric(Trim$(txtTWD67F_3.Text)) Then
        MsgBox "北京54椭球体扁率输入值非法,请返回检查.", vbOKOnly + vbInformation, "提示"
        SetCurTab 3
        txtTWD67F_3.SetFocus '返回到对应的Tab页面
        Exit Function
      End If
    End If
    If Trim$(txtTWD97A_3.Text) = "" Then
      MsgBox "TWD97椭球体长半轴不能为空值.", vbOKOnly + vbInformation, "提示"
      SetCurTab 3
      txtTWD97A_3.SetFocus '返回到对应的Tab页面
      Exit Function
    Else
      If Not IsNumeric(Trim$(txtTWD97A_3.Text)) Then
        MsgBox "TWD97椭球体长半轴输入值非法,请返回检查.", vbOKOnly + vbInformation, "提示"
        SetCurTab 3
        txtTWD97A_3.SetFocus '返回到对应的Tab页面
        Exit Function
      End If
    End If
    If Trim$(txtTWD97F_3.Text) = "" Then
      MsgBox "TWD67椭球体扁率不能为空值.", vbOKOnly + vbInformation, "提示"
      txtTWD97F_3.SetFocus '返回到对应的Tab页面
      Exit Function
    Else
      If Not IsNumeric(Trim$(txtTWD97F_3.Text)) Then
        MsgBox "TWD67椭球体扁率输入值非法,请返回检查.", vbOKOnly + vbInformation, "提示"
        SetCurTab 3
        txtTWD97F_3.SetFocus
        Exit Function
      End If
    End If
    If Trim$(txtDX_3.Text) = "" Then
      MsgBox "DX值不能为空.", vbOKOnly + vbInformation, "提示"
      SetCurTab 3
      txtDX_3.SetFocus
      Exit Function
    Else
      If Not IsNumeric(txtDX_3.Text) Then
        MsgBox "DX输入值非法,请检查输入.", vbOKOnly + vbInformation, "提示"
        SetCurTab 3
        txtDX_3.SetFocus '返回到对应的Tab页面
        Exit Function
      End If
    End If
    If Trim$(txtDY_3.Text) = "" Then
      MsgBox "DY值不能为空.", vbOKOnly + vbInformation, "提示"
      SetCurTab 3
      txtEY_3.SetFocus '返回到对应的Tab页面
      Exit Function
    Else
      If Not IsNumeric(txtDY_3.Text) Then
        MsgBox "DY值不能为空.", vbOKOnly + vbInformation, "提示"
        SetCurTab 3
        txtDY_3.SetFocus '返回到对应的Tab页面
        Exit Function
      End If
    End If
    If Trim$(txtDZ_3.Text) = "" Then
      MsgBox "DY值不能为空.", vbOKOnly + vbInformation, "提示"
      SetCurTab 3
      txtDZ_3.SetFocus
      Exit Function
    Else
      If Not IsNumeric(txtEZ_3.Text) Then
        MsgBox "EZ值不能为空.", vbOKOnly + vbInformation, "提示"
        SetCurTab 3
        txtEZ_3.SetFocus '返回到对应的Tab页面
        Exit Function
      End If
    End If
    If Trim$(txtEX_3.Text) = "" Then
      MsgBox "EX值不能为空.", vbOKOnly + vbInformation, "提示"
      SetCurTab 3
      txtEX_3.SetFocus
      Exit Function
    Else
      If Not IsNumeric(txtEX_3.Text) Then
        MsgBox "EX输入值非法,请检查输入.", vbOKOnly + vbInformation, "提示"
        SetCurTab 3
        txtEX_3.SetFocus '返回到对应的Tab页面
        Exit Function
      End If
    End If
    If Trim$(txtEY_3.Text) = "" Then
      MsgBox "EY值不能为空.", vbOKOnly + vbInformation, "提示"
      SetCurTab 3
      txtEY_3.SetFocus
      Exit Function
    Else
      If Not IsNumeric(txtEY_3.Text) Then
        MsgBox "EY值不能为空.", vbOKOnly + vbInformation, "提示"
        SetCurTab 3
        txtEY_3.SetFocus '返回到对应的Tab页面
        Exit Function
      End If
    End If
    If Trim$(txtEZ_3.Text) = "" Then
      MsgBox "EY值不能为空.", vbOKOnly + vbInformation, "提示"
      SetCurTab 3
      txtEZ_3.SetFocus '返回到对应的Tab页面
      Exit Function
    Else
      If Not IsNumeric(txtEZ_3.Text) Then
        MsgBox "EZ值不能为空.", vbOKOnly + vbInformation, "提示"
        SetCurTab 3
        txtEZ_3.SetFocus '返回到对应的Tab页面
        Exit Function
      End If
    End If
    If Trim$(txtMSCale_3.Text) = "" Then
      MsgBox "mScale值不能为空.", vbOKOnly + vbInformation, "提示"
      SetCurTab 3
      txtMSCale_3.SetFocus '返回到对应的Tab页面
      Exit Function
    Else
      If Not IsNumeric(txtMSCale_3.Text) Then
        MsgBox "mScale值不能为空.", vbOKOnly + vbInformation, "提示"
        SetCurTab 3
        txtMSCale_3.SetFocus '返回到对应的Tab页面
        Exit Function
      End If
    End If
  End If
  CheckValid = True
  Exit Function
errHandler:
  Debug.Print "CheckValid()函数发生错误!错误内容为:" & err.Description
End Function
'--------------------------------
'函数说明:设置显示的Tab页
'iTabIndex - 要切换到的Tab页
'--------------------------------
Public Sub SetCurTab(iTabIndex As Integer)
'On Error GoTo hErr
    SSTab1.Tab = iTabIndex
End Sub
'*******************************************************
'函数名称：InitializeMe
'函数描述：初始化窗体时将上次设置的参数显示在窗体上
'参数说明：
'返回值：
'*******************************************************
Private Sub InitializeMe()
On Error Resume Next
    If miConvMode = 1 Then
         '北京54到WGS84之间的转换参数
        OptBJ54ToWGS84.Value = True
        txtDx_1.Text = m_dDx_1
        txtDy_1.Text = m_dDy_1
        txtDz_1.Text = m_dDz_1
        txtEx_1.Text = m_dEx_1
        txtEy_1.Text = m_dEy_1
        txtEz_1.Text = m_dEz_1
        txtmScale_1.Text = m_dm_1
        txtBJ54A_1.Text = m_dBJ54A_1
        txtBJ54F_1.Text = m_dBJ54F_1
        txtWGS84A_1.Text = m_dWGS84A_1
        txtWGS84F_1.Text = m_dWGS84F_1
    ElseIf miConvMode = 2 Then
        OptBJ54ToTWD67ToTWD97.Value = True
         '北京54到TWD67转换的参数
        txtDX_2.Text = m_dDx_2
        txtDy_2.Text = m_dDy_2
        txtDz_2.Text = m_dDz_2
        txtEx_2.Text = m_dEx_2
        txtEy_2.Text = m_dEy_2
        txtEz_2.Text = m_dEz_2
        txtMScale_2.Text = m_dm_2
        txtBJ54A_2.Text = m_dBJ54A_2
        txtBJ54F_2.Text = m_dBJ54F_2
        txtTWD67A_2.Text = m_dTWD67A_2
        txtTWD67F_2.Text = m_dTWD67F_2
         
        'TWD67再到TWD97转换的参数
        txtDX_3.Text = m_dDx_3
        txtDY_3.Text = m_dDy_3
        txtDZ_3.Text = m_dDz_3
        txtMSCale_3.Text = m_dm_3
        txtTWD67A_3.Text = m_dTwd67A_3
        txtTWD67F_3.Text = m_dTwd67F_3
        txtTWD97A_3.Text = m_dTwd97A_3
        txtTWD97F_3.Text = m_dTwd97F_3
    End If
End Sub