📄 frmdefinecoords.frm
字号:
VERSION 5.00
Object = "{DF3AE96F-29A3-44FD-A25E-7278248DBC33}#1.0#0"; "WinXPC_Engine.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "Tabctl32.ocx"
Begin VB.Form frmDefineCoord
BorderStyle = 3 'Fixed Dialog
Caption = "自定义转换参数设置"
ClientHeight = 6180
ClientLeft = 5130
ClientTop = 2595
ClientWidth = 5310
Icon = "frmDefineCoords.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6180
ScaleWidth = 5310
ShowInTaskbar = 0 'False
Begin WinXPC_Engine.WindowsXPC WindowsXPC1
Left = -840
Top = 5640
_ExtentX = 6588
_ExtentY = 1085
ColorScheme = 2
Common_Dialog = 0 'False
FrameControl = 0 'False
End
Begin VB.CommandButton cmdOK
Caption = "确定"
Height = 330
Left = 2760
TabIndex = 83
Top = 5760
Width = 1095
End
Begin VB.CommandButton cmdExit
Caption = "取消"
Height = 330
Left = 3960
TabIndex = 82
Top = 5760
Width = 1095
End
Begin TabDlg.SSTab SSTab1
Height = 5500
Left = 120
TabIndex = 0
Top = 120
Width = 5055
_ExtentX = 8916
_ExtentY = 9710
_Version = 393216
Style = 1
Tabs = 4
TabsPerRow = 4
TabHeight = 520
TabCaption(0) = "转换设置"
TabPicture(0) = "frmDefineCoords.frx":000C
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "54到84坐标"
TabPicture(1) = "frmDefineCoords.frx":0028
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "FraBJ54ToWGS84"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).ControlCount= 1
TabCaption(2) = "54到TWD67"
TabPicture(2) = "frmDefineCoords.frx":0044
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "FraBJ54ToTWD67"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).ControlCount= 1
TabCaption(3) = "TWD67到TWD97"
TabPicture(3) = "frmDefineCoords.frx":0060
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "FraTWD67ToTWD97"
Tab(3).ControlCount= 1
Begin VB.Frame FraBJ54ToTWD67
Caption = "北京54到TWD67转换参数设置"
Height = 4875
Left = -74880
TabIndex = 56
Top = 480
Width = 4815
Begin VB.Frame Frame3
Caption = "北京54椭球参数"
Height = 1215
Left = 180
TabIndex = 77
Top = 225
Width = 4455
Begin VB.TextBox txtBJ54A_2
Height = 285
Left = 1800
TabIndex = 79
Text = "6378245.0"
Top = 360
Width = 2415
End
Begin VB.TextBox txtBJ54F_2
Height = 285
Left = 1800
TabIndex = 78
Text = "298.3"
Top = 720
Width = 2415
End
Begin VB.Label Label8
Caption = "椭球长半轴(a)"
Height = 255
Left = 480
TabIndex = 81
Top = 360
Width = 2175
End
Begin VB.Label lblF
Caption = "椭球扁率(f)"
Height = 255
Index = 3
Left = 480
TabIndex = 80
Top = 720
Width = 1215
End
End
Begin VB.Frame Fra
Caption = "TWD67椭球参数"
Height = 1215
Index = 3
Left = 180
TabIndex = 72
Top = 1545
Width = 4455
Begin VB.TextBox txtTWD67F_2
Height = 285
Left = 1800
TabIndex = 74
Text = "298.2471674273"
Top = 720
Width = 2415
End
Begin VB.TextBox txtTWD67A_2
Height = 285
Left = 1800
TabIndex = 73
Text = "6378160.0"
Top = 360
Width = 2415
End
Begin VB.Label lblF
Caption = "椭球扁率(f)"
Height = 255
Index = 2
Left = 480
TabIndex = 76
Top = 720
Width = 1215
End
Begin VB.Label Label7
Caption = "椭球长半轴(a)"
Height = 255
Left = 480
TabIndex = 75
Top = 360
Width = 2175
End
End
Begin VB.Frame Fra
Caption = "转换参数"
Height = 1815
Index = 2
Left = 180
TabIndex = 57
Top = 2880
Width = 4455
Begin VB.TextBox txtMScale_2
Height = 285
Left = 840
TabIndex = 64
Text = "0"
Top = 1320
Width = 1215
End
Begin VB.TextBox txtEz_2
Height = 285
Left = 3000
TabIndex = 63
Text = "0"
Top = 945
Width = 1215
End
Begin VB.TextBox txtEy_2
Height = 285
Left = 3000
TabIndex = 62
Text = "0"
Top = 600
Width = 1215
End
Begin VB.TextBox txtEx_2
Height = 285
Left = 3000
TabIndex = 61
Text = "0"
Top = 240
Width = 1215
End
Begin VB.TextBox txtDz_2
Height = 285
Left = 840
TabIndex = 60
Text = "0"
Top = 960
Width = 1215
End
Begin VB.TextBox txtDy_2
Height = 285
Left = 840
TabIndex = 59
Text = "0"
Top = 600
Width = 1215
End
Begin VB.TextBox txtDX_2
Height = 285
Left = 840
TabIndex = 58
Text = "0"
Top = 240
Width = 1215
End
Begin VB.Label Label1
Caption = "mScale"
Height = 255
Left = 240
TabIndex = 71
Top = 1320
Width = 615
End
Begin VB.Label lblEz
Caption = "Ez"
Height = 255
Index = 1
Left = 2520
TabIndex = 70
Top = 960
Width = 615
End
Begin VB.Label Label2
Caption = "Ey"
Height = 255
Left = 2520
TabIndex = 69
Top = 600
Width = 615
End
Begin VB.Label Label3
Caption = "Ex"
Height = 255
Left = 2520
TabIndex = 68
Top = 240
Width = 615
End
Begin VB.Label Label4
Caption = "Dz"
Height = 255
Left = 240
TabIndex = 67
Top = 960
Width = 495
End
Begin VB.Label Label5
Caption = "Dy"
Height = 255
Left = 240
TabIndex = 66
Top = 600
Width = 495
End
Begin VB.Label Label6
Caption = "Dx"
Height = 255
Left = 240
TabIndex = 65
Top = 240
Width = 615
End
End
End
Begin VB.Frame FraTWD67ToTWD97
Caption = "TWD67到TWD97转换参数设置"
Height = 4875
Left = -74880
TabIndex = 30
Top = 480
Width = 4815
Begin VB.Frame Frame4
Caption = "TWD67椭球参数"
Height = 1215
Left = 180
TabIndex = 51
Top = 225
Width = 4455
Begin VB.TextBox txtTWD67F_3
Height = 285
Left = 1800
TabIndex = 53
Text = "298.2471674273"
Top = 720
Width = 2415
End
Begin VB.TextBox txtTWD67A_3
Height = 285
Left = 1800
TabIndex = 52
Text = "6378160.0"
Top = 360
Width = 2415
End
Begin VB.Label lblF
Caption = "椭球扁率(f)"
Height = 255
Index = 4
Left = 480
TabIndex = 55
Top = 720
Width = 1215
End
Begin VB.Label Label9
Caption = "椭球长半轴(a)"
Height = 255
Left = 480
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -