📄 first.frm
字号:
Width = 3015
WordWrap = -1 'True
End
Begin VB.Label Label18
BackColor = &H00C0C0C0&
Caption = "从"
Height = 255
Left = 120
TabIndex = 59
Top = 2430
Width = 495
End
Begin VB.Label Label8
BackColor = &H00C0C0C0&
Caption = "m"
Height = 255
Index = 4
Left = 1950
TabIndex = 58
Top = 3120
Width = 255
End
Begin VB.Label Label8
BackColor = &H00C0C0C0&
Caption = "m"
Height = 255
Index = 3
Left = 1950
TabIndex = 57
Top = 2760
Width = 255
End
Begin VB.Label Label8
BackColor = &H00C0C0C0&
Caption = "m"
Height = 255
Index = 2
Left = 1950
TabIndex = 56
Top = 2400
Width = 255
End
Begin VB.Label Label8
BackColor = &H00C0C0C0&
Caption = "m"
Height = 255
Index = 1
Left = 1950
TabIndex = 55
Top = 1320
Width = 255
End
Begin VB.Label Label17
BackColor = &H00C0C0C0&
Caption = "m"
Height = 255
Index = 4
Left = 2100
TabIndex = 54
Top = 4830
Width = 255
End
Begin VB.Label Label17
BackColor = &H00C0C0C0&
Caption = "m3/s"
Height = 252
Index = 3
Left = 2100
TabIndex = 53
Top = 4116
Width = 500
End
Begin VB.Label Label17
BackColor = &H00C0C0C0&
Caption = "m"
Height = 255
Index = 2
Left = 2100
TabIndex = 52
Top = 4470
Width = 255
End
Begin VB.Label Label17
BackColor = &H00C0C0C0&
Caption = "m"
Height = 252
Index = 1
Left = 4680
TabIndex = 51
Top = 4440
Width = 252
End
Begin VB.Label Label17
BackColor = &H00C0C0C0&
Caption = "m"
Height = 252
Index = 0
Left = 4680
TabIndex = 50
Top = 4116
Width = 252
End
Begin VB.Line Line1
X1 = 0
X2 = 2520
Y1 = 3840
Y2 = 3840
End
Begin VB.Label Label15
BackColor = &H00C0C0C0&
Caption = "："
Height = 252
Left = 4200
TabIndex = 46
Top = 4800
Width = 132
End
Begin VB.Label Label14
BackColor = &H00C0C0C0&
Caption = "龙口边坡"
Height = 312
Left = 2640
TabIndex = 45
Top = 4830
Width = 732
End
Begin VB.Label Label13
BackColor = &H00C0C0C0&
Caption = "堤顶高程"
Height = 312
Left = 2640
TabIndex = 44
Top = 4470
Width = 852
End
Begin VB.Label Label12
BackColor = &H00C0C0C0&
Caption = "护底厚度"
Height = 312
Left = 2640
TabIndex = 43
Top = 4110
Width = 852
End
Begin VB.Label Label11
BackColor = &H00C0C0C0&
Caption = "河底高程"
Height = 315
Left = 120
TabIndex = 42
Top = 4830
Width = 735
End
Begin VB.Label Label10
BackColor = &H00C0C0C0&
Caption = "下游水位"
Height = 320
Left = 100
TabIndex = 40
Top = 4470
Width = 735
End
Begin VB.Label Label9
BackColor = &H00C0C0C0&
Caption = "设计流量"
Height = 320
Left = 100
TabIndex = 39
Top = 4110
Width = 735
End
Begin VB.Label Label16
BackColor = &H00C0C0C0&
Caption = "上游水位"
Height = 320
Left = 100
TabIndex = 47
Top = 1350
Width = 735
End
Begin VB.Label Label1
BackColor = &H00C0C0C0&
Caption = "龙口均宽"
Height = 320
Left = 100
TabIndex = 33
Top = 630
Width = 735
End
Begin VB.Label Label2
BackColor = &H00C0C0C0&
Caption = "m"
Height = 255
Left = 1950
TabIndex = 32
Top = 600
Width = 255
End
Begin VB.Label Label4
BackColor = &H00C0C0C0&
Caption = "到"
Height = 315
Left = 120
TabIndex = 31
Top = 2790
Width = 255
End
Begin VB.Label Label5
BackColor = &H00C0C0C0&
Caption = "递增"
Height = 315
Left = 105
TabIndex = 30
Top = 3150
Width = 495
End
Begin VB.Label Label6
BackColor = &H00C0C0C0&
Caption = "误差"
Height = 315
Left = 105
TabIndex = 29
Top = 3510
Width = 615
End
Begin VB.Label Label7
BackColor = &H00C0C0C0&
Caption = "龙口流速"
Height = 320
Left = 100
TabIndex = 28
Top = 990
Width = 735
End
Begin VB.Label Label8
BackColor = &H00C0C0C0&
Caption = "m"
Height = 255
Index = 0
Left = 1950
TabIndex = 27
Top = 960
Width = 255
End
Begin VB.Label Label3
BackColor = &H00C0C0C0&
Caption = "龙口均宽"
Height = 195
Left = 120
TabIndex = 26
Top = 2070
Width = 735
End
End
Begin VB.CommandButton Command3
Caption = "开始计算"
Default = -1 'True
Height = 450
Left = 3930
TabIndex = 15
Top = 6000
Width = 1125
End
Begin VB.CommandButton Command4
Caption = "保存结果"
Height = 450
Left = 5055
TabIndex = 16
Top = 6000
Width = 1125
End
Begin VB.CommandButton Command5
Caption = "清空数据"
Height = 450
Left = 7260
TabIndex = 18
Top = 6000
Width = 1125
End
Begin VB.CommandButton Command6
Cancel = -1 'True
Caption = "退出程序"
Height = 450
Left = 9480
TabIndex = 20
Top = 6000
Width = 1125
End
Begin VB.Label LbMsg
BackColor = &H00C0C0C0&
Caption = "即时提示："
ForeColor = &H00C000C0&
Height = 255
Left = 120
TabIndex = 61
Top = 6360
Width = 3495
End
Begin VB.Label lblTitle
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "单戗堤截流图解法计算程序 BY 飘叶它乡 Email:pyeye@126.com"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 120
TabIndex = 1
Top = 0
Width = 6660
End
Begin VB.Image imgTitleMaxRestore
Height = 195
Left = 6120
ToolTipText = "Maximize (Disabled)"
Top = 0
Width = 195
End
Begin VB.Image imgTitleRestore
Height = 195
Left = 7800
Picture = "first.frx":1472
ToolTipText = "Maximize (Disabled)"
Top = 960
Visible = 0 'False
Width = 195
End
Begin VB.Image imgTitleMaximize
Height = 195
Left = 7800
Picture = "first.frx":16BC
ToolTipText = "Maximize (Disabled)"
Top = 720
Visible = 0 'False
Width = 195
End
Begin VB.Image imgTitleMinimize
Height = 195
Left = 7800
Picture = "first.frx":1906
ToolTipText = "Minimize"
Top = 480
Width = 195
End
Begin VB.Image imgTitleClose
Height = 195
Left = 7800
Picture = "first.frx":1B50
ToolTipText = "Close"
Top = 240
Width = 195
End
Begin VB.Image imgTitleHelp
Height = 195
Left = 7800
Picture = "first.frx":1D9A
ToolTipText = "Help"
Top = 0
Width = 195
End
Begin VB.Image imgWindowBottomLeft
Height = 450
Left = 7080
Picture = "first.frx":1FE4
Top = 0
Width = 285
End
Begin VB.Image imgWindowBottom
Height = 450
Left = 6720
Picture = "first.frx":272E
Stretch = -1 'True
Top = 480
Width = 285
End
Begin VB.Image imgWindowLeft
Height = 450
Left = 7080
Picture = "first.frx":2E78
Stretch = -1 'True
Top = 480
Width = 285
End
Begin VB.Image imgWindowRight
Height = 450
Left = 7440
Picture = "first.frx":35C2
Stretch = -1 'True
Top = 480
Width = 285
End
Begin VB.Image imgTitleLeft
Height = 450
Left = 6360
Picture = "first.frx":3D0C
Top = 0
Width = 285
End
Begin VB.Image imgTitleRight
Height = 450
Left = 6720
Picture = "first.frx":4456
Top = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -