📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text36
Height = 270
Left = 840
TabIndex = 136
Top = 840
Width = 615
End
Begin VB.Frame Frame14
Caption = "波长计算"
Height = 1215
Left = 240
TabIndex = 134
Top = 480
Width = 3615
Begin VB.CommandButton Command31
Caption = "退出"
Height = 255
Left = 2400
TabIndex = 142
Top = 840
Width = 735
End
Begin VB.CommandButton Command30
Caption = "计算"
Height = 255
Left = 1560
TabIndex = 141
Top = 840
Width = 735
End
Begin VB.TextBox Text38
Height = 270
Left = 600
TabIndex = 140
Top = 840
Width = 615
End
Begin VB.TextBox Text37
Height = 270
Left = 2520
TabIndex = 138
Top = 360
Width = 615
End
Begin VB.Label Label55
Caption = "L ="
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 139
Top = 840
Width = 375
End
Begin VB.Label Label54
Caption = "T ="
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2040
TabIndex = 137
Top = 360
Width = 375
End
Begin VB.Label Label53
Caption = "h ="
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 135
Top = 360
Width = 375
End
End
Begin VB.TextBox Text33
Height = 270
Left = 10560
TabIndex = 123
Top = 1320
Width = 615
End
Begin VB.CommandButton Command26
Caption = "退 出"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 8520
TabIndex = 120
Top = 8760
Width = 3975
End
Begin VB.CommandButton Command25
Caption = "清空所有数据"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 8520
TabIndex = 119
Top = 7680
Width = 3975
End
Begin VB.Frame Frame13
Caption = "Vsn der meer et al(2004)公式"
Height = 1455
Left = 8520
TabIndex = 107
Top = 4800
Width = 3975
Begin VB.CommandButton Command24
Caption = "退出"
Height = 255
Left = 2880
TabIndex = 118
Top = 1080
Width = 735
End
Begin VB.CommandButton Command23
Caption = "计算"
Height = 255
Left = 1920
TabIndex = 117
Top = 1080
Width = 735
End
Begin VB.TextBox Text32
Height = 270
Left = 480
TabIndex = 116
Top = 1080
Width = 735
End
Begin VB.TextBox Text31
Height = 270
Left = 2880
TabIndex = 114
Top = 720
Width = 735
End
Begin VB.TextBox Text30
Height = 270
Left = 1680
TabIndex = 112
Top = 720
Width = 735
End
Begin VB.TextBox Text29
Height = 270
Left = 480
TabIndex = 110
Top = 720
Width = 735
End
Begin VB.Label Label47
Caption = "Kt="
Height = 255
Left = 120
TabIndex = 115
Top = 1080
Width = 375
End
Begin VB.Label Label46
Caption = "β="
Height = 255
Left = 2520
TabIndex = 113
Top = 720
Width = 375
End
Begin VB.Label Label45
Caption = "m ="
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1320
TabIndex = 111
Top = 720
Width = 375
End
Begin VB.Label Label44
Caption = "Tp="
Height = 255
Left = 120
TabIndex = 109
Top = 720
Width = 255
End
Begin VB.Label Label43
Caption = "取值范围:1<ξ<3,0≤β≤70,1<Wc/Hi<4"
Height = 375
Left = 120
TabIndex = 108
Top = 360
Width = 3495
End
End
Begin VB.CommandButton Command20
Caption = "退出"
Height = 255
Left = 11400
TabIndex = 98
Top = 3960
Width = 735
End
Begin VB.CommandButton Command19
Caption = "计算"
Height = 255
Left = 10440
TabIndex = 97
Top = 3960
Width = 735
End
Begin VB.TextBox Text24
Height = 270
Left = 9120
TabIndex = 96
Top = 3960
Width = 855
End
Begin VB.OptionButton Option5
Height = 255
Left = 11280
TabIndex = 94
Top = 3000
Width = 255
End
Begin VB.OptionButton Option4
Height = 180
Left = 11280
TabIndex = 93
Top = 2640
Width = 255
End
Begin VB.OptionButton Option3
Height = 255
Left = 11280
TabIndex = 92
Top = 960
Width = 255
End
Begin VB.Frame Frame12
Caption = "Briganti et al(2003)公式"
Height = 4095
Left = 8520
TabIndex = 87
Top = 480
Width = 3975
Begin VB.CommandButton Command28
Caption = "退出"
Height = 255
Left = 2760
TabIndex = 130
Top = 1680
Width = 735
End
Begin VB.CommandButton Command27
Caption = "计算"
Height = 255
Left = 2760
TabIndex = 129
Top = 840
Width = 735
End
Begin VB.TextBox Text35
Height = 270
Left = 2040
TabIndex = 125
Top = 1680
Width = 615
End
Begin VB.TextBox Text34
Height = 270
Left = 2040
TabIndex = 124
Top = 1320
Width = 615
End
Begin VB.TextBox Text28
Height = 270
Left = 2400
TabIndex = 106
Top = 3000
Width = 855
End
Begin VB.TextBox Text27
Height = 270
Left = 600
TabIndex = 104
Top = 3000
Width = 855
End
Begin VB.Label Label52
Caption = "Wc="
Height = 255
Left = 1680
TabIndex = 128
Top = 1320
Width = 255
End
Begin VB.Label Label51
Caption = "Kt="
Height = 255
Left = 1680
TabIndex = 127
Top = 1680
Width = 375
End
Begin VB.Label Label50
Caption = "Kt="
Height = 255
Left = 1680
TabIndex = 126
Top = 840
Width = 375
End
Begin VB.Label Label49
Caption = "Upper boundary:"
Height = 255
Left = 240
TabIndex = 122
Top = 1320
Width = 1455
End
Begin VB.Label Label48
Caption = "Lower boundary:"
Height = 255
Left = 240
TabIndex = 121
Top = 840
Width = 1455
End
Begin VB.Label Label42
Caption = "m ="
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2040
TabIndex = 105
Top = 3000
Width = 375
End
Begin VB.Label Label41
Caption = "Tp="
Height = 255
Left = 240
TabIndex = 103
Top = 3000
Width = 255
End
Begin VB.Label Label38
Caption = "Kt="
Height = 255
Left = 240
TabIndex = 95
Top = 3480
Width = 255
End
Begin VB.Label Label37
Caption = "Smooth structure:"
Height = 255
Left = 240
TabIndex = 91
Top = 2520
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -