📄 jdjb.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form jdjb
BorderStyle = 3 'Fixed Dialog
Caption = "单交点基本型平曲线设计"
ClientHeight = 6555
ClientLeft = 2310
ClientTop = 330
ClientWidth = 8820
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6555
ScaleWidth = 8820
ShowInTaskbar = 0 'False
Begin VB.CommandButton sm
Caption = "软件说明"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 4503
TabIndex = 44
Top = 6000
Width = 1335
End
Begin VB.CommandButton exit
Caption = "退出"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 6023
TabIndex = 39
Top = 6000
Width = 1335
End
Begin VB.CommandButton save
Caption = "结果保存"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 2983
TabIndex = 38
Top = 6000
Width = 1335
End
Begin VB.CommandButton rejs
Caption = "重新计算"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 1463
TabIndex = 37
Top = 6000
Width = 1335
End
Begin VB.Frame Frame2
Caption = "结果输出"
BeginProperty Font
Name = "幼圆"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 4815
Left = 3240
TabIndex = 6
Top = 1080
Width = 5415
Begin VB.Frame Fzdlc
Height = 1935
Left = 240
TabIndex = 24
Top = 2640
Width = 4935
Begin VB.TextBox outhz
BackColor = &H80000004&
BorderStyle = 0 'None
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 285
Left = 720
TabIndex = 34
Text = "Text1"
Top = 1560
Width = 1695
End
Begin VB.TextBox outyh
BackColor = &H80000004&
BorderStyle = 0 'None
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 285
Left = 3000
TabIndex = 32
Text = "Text1"
Top = 960
Width = 1815
End
Begin VB.TextBox outqz
BackColor = &H80000004&
BorderStyle = 0 'None
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 285
Left = 720
TabIndex = 30
Text = "Text1"
Top = 960
Width = 1215
End
Begin VB.TextBox outhy
BackColor = &H80000004&
BorderStyle = 0 'None
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 285
Left = 3000
TabIndex = 28
Text = "Text1"
Top = 360
Width = 1815
End
Begin VB.TextBox outzh
BackColor = &H80000004&
BorderStyle = 0 'None
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 285
Left = 720
TabIndex = 26
Text = "Text1"
Top = 360
Width = 1575
End
Begin VB.Label Label19
Caption = "HZ点:"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 33
Top = 1560
Width = 735
End
Begin VB.Label Label18
Caption = "YH点:"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2400
TabIndex = 31
Top = 960
Width = 735
End
Begin VB.Label Label17
Caption = "QZ点:"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 29
Top = 960
Width = 735
End
Begin VB.Label Label16
Caption = "HY点:"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2400
TabIndex = 27
Top = 360
Width = 735
End
Begin VB.Label Label15
Caption = "ZH点:"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 25
Top = 360
Width = 975
End
End
Begin VB.Frame Fqxjz
Height = 1935
Left = 240
TabIndex = 35
Top = 2640
Visible = 0 'False
Width = 4935
Begin VB.ListBox qxjzb
BackColor = &H80000004&
BeginProperty Font
Name = "幼圆"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 1530
ItemData = "jdjb.frx":0000
Left = 120
List = "jdjb.frx":0002
TabIndex = 36
Top = 360
Width = 4695
End
Begin VB.Label Label22
Caption = "支距Y值"
BeginProperty Font
Name = "幼圆"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 3600
TabIndex = 42
Top = 120
Width = 855
End
Begin VB.Label Label21
Caption = "支距X值"
BeginProperty Font
Name = "幼圆"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 2040
TabIndex = 41
Top = 120
Width = 735
End
Begin VB.Label Label20
Caption = "桩点里程"
BeginProperty Font
Name = "幼圆"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 360
TabIndex = 40
Top = 120
Width = 975
End
End
Begin ComctlLib.TabStrip TabStrip1
Height = 2415
Left = 120
TabIndex = 45
Top = 2280
Width = 5175
_ExtentX = 9128
_ExtentY = 4260
_Version = 327682
BeginProperty Tabs {0713E432-850A-101B-AFC0-4210102A8DA7}
NumTabs = 2
BeginProperty Tab1 {0713F341-850A-101B-AFC0-4210102A8DA7}
Caption = "主点里程"
Key = "tzdlc"
Object.Tag = ""
ImageVarType = 2
EndProperty
BeginProperty Tab2 {0713F341-850A-101B-AFC0-4210102A8DA7}
Caption = "路线加桩一览表"
Key = "tqxjz"
Object.Tag = ""
ImageVarType = 2
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "幼圆"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.TextBox outls
BackColor = &H80000004&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 285
Left = 3840
TabIndex = 23
Text = "Text1"
Top = 960
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -