frmdefinecoords.frm

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

               TabIndex        =   54
               Top             =   360
               Width           =   2175
            End
         End
         Begin VB.Frame Fra 
            Caption         =   "TWD97椭球参数"
            Height          =   1215
            Index           =   4
            Left            =   180
            TabIndex        =   46
            Top             =   1545
            Width           =   4455
            Begin VB.TextBox txtTWD97A_3 
               Height          =   285
               Left            =   1800
               TabIndex        =   48
               Text            =   "6378137.000"
               Top             =   360
               Width           =   2415
            End
            Begin VB.TextBox txtTWD97F_3 
               Height          =   285
               Left            =   1800
               TabIndex        =   47
               Text            =   "298.257222101"
               Top             =   720
               Width           =   2415
            End
            Begin VB.Label Label11 
               Caption         =   "椭球长半轴(a)"
               Height          =   255
               Left            =   480
               TabIndex        =   50
               Top             =   360
               Width           =   2175
            End
            Begin VB.Label lblF 
               Caption         =   "椭球扁率(f)"
               Height          =   255
               Index           =   5
               Left            =   480
               TabIndex        =   49
               Top             =   720
               Width           =   1215
            End
         End
         Begin VB.Frame Fra 
            Caption         =   "转换参数"
            Height          =   1815
            Index           =   5
            Left            =   180
            TabIndex        =   31
            Top             =   2880
            Width           =   4455
            Begin VB.TextBox txtDX_3 
               Height          =   285
               Left            =   840
               TabIndex        =   38
               Text            =   "0"
               Top             =   240
               Width           =   1215
            End
            Begin VB.TextBox txtDY_3 
               Height          =   285
               Left            =   840
               TabIndex        =   37
               Text            =   "0"
               Top             =   600
               Width           =   1215
            End
            Begin VB.TextBox txtDZ_3 
               Height          =   285
               Left            =   840
               TabIndex        =   36
               Text            =   "0"
               Top             =   960
               Width           =   1215
            End
            Begin VB.TextBox txtEX_3 
               Height          =   285
               Left            =   3000
               TabIndex        =   35
               Text            =   "0"
               Top             =   240
               Width           =   1215
            End
            Begin VB.TextBox txtEY_3 
               Height          =   285
               Left            =   3000
               TabIndex        =   34
               Text            =   "0"
               Top             =   600
               Width           =   1215
            End
            Begin VB.TextBox txtEZ_3 
               Height          =   285
               Left            =   3000
               TabIndex        =   33
               Text            =   "0"
               Top             =   945
               Width           =   1215
            End
            Begin VB.TextBox txtMSCale_3 
               Height          =   285
               Left            =   840
               TabIndex        =   32
               Text            =   "0"
               Top             =   1320
               Width           =   1215
            End
            Begin VB.Label Label12 
               Caption         =   "Dx"
               Height          =   255
               Left            =   240
               TabIndex        =   45
               Top             =   240
               Width           =   615
            End
            Begin VB.Label Label13 
               Caption         =   "Dy"
               Height          =   255
               Left            =   240
               TabIndex        =   44
               Top             =   600
               Width           =   495
            End
            Begin VB.Label Label14 
               Caption         =   "Dz"
               Height          =   255
               Left            =   240
               TabIndex        =   43
               Top             =   960
               Width           =   495
            End
            Begin VB.Label Label15 
               Caption         =   "Ex"
               Height          =   255
               Left            =   2520
               TabIndex        =   42
               Top             =   240
               Width           =   615
            End
            Begin VB.Label Label16 
               Caption         =   "Ey"
               Height          =   255
               Left            =   2520
               TabIndex        =   41
               Top             =   600
               Width           =   615
            End
            Begin VB.Label lblEz 
               Caption         =   "Ez"
               Height          =   255
               Index           =   2
               Left            =   2520
               TabIndex        =   40
               Top             =   960
               Width           =   615
            End
            Begin VB.Label Label17 
               Caption         =   "mScale"
               Height          =   255
               Left            =   240
               TabIndex        =   39
               Top             =   1320
               Width           =   615
            End
         End
      End
      Begin VB.Frame FraBJ54ToWGS84 
         Caption         =   "北京54到WGS84坐标转换参数设置"
         Height          =   4875
         Left            =   -74880
         TabIndex        =   4
         Top             =   480
         Width           =   4815
         Begin VB.Frame Frame2 
            Caption         =   "北京54椭球参数"
            Height          =   1215
            Left            =   180
            TabIndex        =   25
            Top             =   225
            Width           =   4455
            Begin VB.TextBox txtBJ54F_1 
               Height          =   285
               Left            =   1800
               TabIndex        =   27
               Text            =   "298.3"
               Top             =   720
               Width           =   2415
            End
            Begin VB.TextBox txtBJ54A_1 
               Height          =   285
               Left            =   1800
               TabIndex        =   26
               Text            =   "6378245.0"
               Top             =   360
               Width           =   2415
            End
            Begin VB.Label lblF 
               Caption         =   "椭球扁率(f)"
               Height          =   255
               Index           =   0
               Left            =   480
               TabIndex        =   29
               Top             =   720
               Width           =   1215
            End
            Begin VB.Label lblA 
               AutoSize        =   -1  'True
               Caption         =   "椭球长半轴(a)"
               Height          =   195
               Left            =   480
               TabIndex        =   28
               Top             =   360
               Width           =   1080
            End
         End
         Begin VB.Frame Fra 
            Caption         =   "WGS84椭球参数"
            Height          =   1215
            Index           =   0
            Left            =   180
            TabIndex        =   20
            Top             =   1545
            Width           =   4455
            Begin VB.TextBox txtWGS84A_1 
               Height          =   285
               Left            =   1800
               TabIndex        =   22
               Text            =   "6378137.000"
               Top             =   360
               Width           =   2415
            End
            Begin VB.TextBox txtWGS84F_1 
               Height          =   285
               Left            =   1800
               TabIndex        =   21
               Text            =   "298.257223563"
               Top             =   720
               Width           =   2415
            End
            Begin VB.Label Label10 
               Caption         =   "椭球长半轴(a)"
               Height          =   255
               Left            =   480
               TabIndex        =   24
               Top             =   360
               Width           =   2175
            End
            Begin VB.Label lblF 
               Caption         =   "椭球扁率(f)"
               Height          =   255
               Index           =   1
               Left            =   480
               TabIndex        =   23
               Top             =   720
               Width           =   1215
            End
         End
         Begin VB.Frame Fra 
            Caption         =   "转换参数"
            Height          =   1815
            Index           =   1
            Left            =   180
            TabIndex        =   5
            Top             =   2880
            Width           =   4455
            Begin VB.TextBox txtDx_1 
               Height          =   285
               Left            =   840
               TabIndex        =   12
               Text            =   "0"
               Top             =   240
               Width           =   1215
            End
            Begin VB.TextBox txtDy_1 
               Height          =   285
               Left            =   840
               TabIndex        =   11
               Text            =   "0"
               Top             =   600
               Width           =   1215
            End
            Begin VB.TextBox txtDz_1 
               Height          =   285
               Left            =   840
               TabIndex        =   10
               Text            =   "0"
               Top             =   960
               Width           =   1215
            End
            Begin VB.TextBox txtEx_1 
               Height          =   285
               Left            =   3000
               TabIndex        =   9
               Text            =   "0"
               Top             =   240
               Width           =   1215
            End
            Begin VB.TextBox txtEy_1 
               Height          =   285
               Left            =   3000
               TabIndex        =   8
               Text            =   "0"
               Top             =   600
               Width           =   1215
            End
            Begin VB.TextBox txtEz_1 
               Height          =   285
               Left            =   3000
               TabIndex        =   7
               Text            =   "0"
               Top             =   945
               Width           =   1215
            End
            Begin VB.TextBox txtmScale_1 
               Height          =   285
               Left            =   840
               TabIndex        =   6
               Text            =   "0"
               Top             =   1320
               Width           =   1215
            End
            Begin VB.Label lblDx 
               Caption         =   "Dx"
               Height          =   255
               Left            =   240
               TabIndex        =   19
               Top             =   240
               Width           =   615
            End
            Begin VB.Label lblDy