📄 xjjjs.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmXjjjs
AutoRedraw = -1 'True
BackColor = &H00C0C0FF&
Caption = " "
ClientHeight = 6480
ClientLeft = 60
ClientTop = 345
ClientWidth = 8850
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
LinkTopic = "Form1"
ScaleHeight = 6480
ScaleMode = 0 'User
ScaleWidth = 8850
StartUpPosition = 1 '所有者中心
WhatsThisHelp = -1 'True
Begin MSComDlg.CommonDialog CommonDialog1
Left = 4920
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Timer Timer1
Left = 3690
Top = 30
End
Begin VB.Frame Frame1
BackColor = &H8000000A&
Caption = "两线线间距计算参数"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1155
Left = 240
TabIndex = 54
Top = 240
Width = 5385
Begin VB.ComboBox Combo1
Height = 330
Left = 1200
TabIndex = 61
Top = 600
Width = 855
End
Begin VB.TextBox Text6
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 4140
TabIndex = 57
Top = 270
Width = 1095
End
Begin VB.TextBox Text7
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 4140
TabIndex = 56
Top = 720
Width = 1095
End
Begin VB.CheckBox Check1
Caption = "结果存盘"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 55
Top = 360
Width = 675
End
Begin VB.Label Label6
Caption = "计算起点两线线间距 "
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 2385
TabIndex = 60
Top = 330
Width = 1635
End
Begin VB.Label Label7
Caption = "计算起点不平行角度"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 2400
TabIndex = 59
Top = 765
Width = 1635
End
Begin VB.Label Label14
Caption = "计算精度"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 1200
TabIndex = 58
Top = 330
Width = 735
End
End
Begin VB.Frame Frame2
BackColor = &H8000000A&
Caption = "Ⅰ线计算参数"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3375
Index = 0
Left = 210
TabIndex = 41
Top = 1680
Width = 2595
Begin VB.OptionButton Option3
Caption = "里程倒算"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 0
Left = 1440
TabIndex = 48
Top = 300
Value = -1 'True
Width = 1035
End
Begin VB.OptionButton Option3
Caption = "里程正算"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 2
Left = 180
TabIndex = 47
Top = 285
Width = 1035
End
Begin VB.TextBox Text5
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 0
Left = 1350
TabIndex = 46
Top = 2805
Width = 1095
End
Begin VB.TextBox Text4
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 0
Left = 1350
TabIndex = 45
Top = 2280
Width = 1095
End
Begin VB.TextBox Text3
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 0
Left = 1350
TabIndex = 44
Top = 1740
Width = 1095
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 0
Left = 1350
TabIndex = 43
Top = 660
Width = 1095
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 0
Left = 1350
TabIndex = 42
Top = 1200
Width = 1095
End
Begin VB.Label Label5
Caption = "缓和曲线"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 0
Left = 345
TabIndex = 53
Top = 2880
Width = 780
End
Begin VB.Label Label4
Caption = "曲线半径"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 0
Left = 330
TabIndex = 52
Top = 2325
Width = 750
End
Begin VB.Label Label3
Caption = "曲线偏角"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 0
Left = 315
TabIndex = 51
Top = 1785
Width = 735
End
Begin VB.Label Label1
Caption = "计算起点里程"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 180
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -