frmlossratedetail.frm
来自「FloodEvaluation-程序是gis方面的程序」· FRM 代码 · 共 2,004 行 · 第 1/5 页
FRM
2,004 行
X1 = 240
X2 = 3360
Y1 = 3240
Y2 = 3240
End
Begin VB.Line Line50
BorderColor = &H80000012&
X1 = 1800
X2 = 3360
Y1 = 2280
Y2 = 2280
End
End
Begin VB.Frame frameLoss4
Caption = "4 级水深，5 级洪损率"
Height = 3135
Left = 3600
TabIndex = 49
Top = 600
Visible = 0 'False
Width = 3615
Begin VB.TextBox LossRate45
Alignment = 1 'Right Justify
Height = 285
Left = 2520
TabIndex = 68
Text = "0.90"
Top = 2400
Width = 615
End
Begin VB.TextBox DepthBreak44
Alignment = 1 'Right Justify
Height = 285
Left = 720
TabIndex = 67
Text = "1.20"
Top = 2160
Width = 615
End
Begin VB.TextBox LossRate43
Alignment = 1 'Right Justify
Height = 285
Left = 2520
TabIndex = 56
Text = "0.50"
Top = 1440
Width = 615
End
Begin VB.TextBox DepthBreak42
Alignment = 1 'Right Justify
Height = 285
Left = 720
TabIndex = 55
Text = "0.60"
Top = 1200
Width = 615
End
Begin VB.TextBox LossRate42
Alignment = 1 'Right Justify
Height = 285
Left = 2520
TabIndex = 54
Text = "0.30"
Top = 960
Width = 615
End
Begin VB.TextBox DepthBreak41
Alignment = 1 'Right Justify
Height = 285
Left = 720
TabIndex = 53
Text = "0.30"
Top = 720
Width = 615
End
Begin VB.TextBox LossRate41
Alignment = 1 'Right Justify
Height = 285
Left = 2520
TabIndex = 52
Text = "0.10"
Top = 480
Width = 615
End
Begin VB.TextBox LossRate44
Alignment = 1 'Right Justify
Height = 285
Left = 2520
TabIndex = 51
Text = "0.70"
Top = 1920
Width = 615
End
Begin VB.TextBox DepthBreak43
Alignment = 1 'Right Justify
Height = 285
Left = 720
TabIndex = 50
Text = "0.90"
Top = 1680
Width = 615
End
Begin VB.Line Line29
BorderColor = &H80000012&
X1 = 1800
X2 = 3360
Y1 = 2280
Y2 = 2280
End
Begin VB.Line Line51
BorderColor = &H00FF0000&
BorderWidth = 2
X1 = 240
X2 = 3360
Y1 = 2760
Y2 = 2760
End
Begin VB.Label Label29
Caption = "洪损率"
Height = 255
Left = 1920
TabIndex = 71
Top = 2400
Width = 615
End
Begin VB.Label Label28
BackColor = &H80000016&
Caption = "米"
ForeColor = &H00000000&
Height = 255
Left = 1440
TabIndex = 70
Top = 2160
Width = 255
End
Begin VB.Line Line49
X1 = 240
X2 = 1800
Y1 = 2520
Y2 = 2520
End
Begin VB.Label Label27
BackColor = &H80000016&
Caption = "水深"
ForeColor = &H80000006&
Height = 255
Left = 360
TabIndex = 69
Top = 2160
Width = 375
End
Begin VB.Line Line48
BorderColor = &H80000012&
X1 = 1800
X2 = 3360
Y1 = 1320
Y2 = 1320
End
Begin VB.Label Label26
Caption = "洪损率"
Height = 255
Left = 1920
TabIndex = 66
Top = 1440
Width = 615
End
Begin VB.Label Label22
BackColor = &H80000016&
Caption = "米"
ForeColor = &H00000000&
Height = 255
Left = 1440
TabIndex = 65
Top = 1200
Width = 255
End
Begin VB.Line Line47
X1 = 240
X2 = 1800
Y1 = 1560
Y2 = 1560
End
Begin VB.Label Label21
BackColor = &H80000016&
Caption = "水深"
ForeColor = &H80000006&
Height = 255
Left = 360
TabIndex = 64
Top = 1200
Width = 375
End
Begin VB.Line Line28
BorderColor = &H00FF0000&
BorderWidth = 2
X1 = 240
X2 = 240
Y1 = 360
Y2 = 2760
End
Begin VB.Line Line27
BorderWidth = 2
X1 = 1800
X2 = 1800
Y1 = 360
Y2 = 2760
End
Begin VB.Line Line24
BorderColor = &H00FF0000&
BorderWidth = 2
X1 = 240
X2 = 3360
Y1 = 360
Y2 = 360
End
Begin VB.Line Line23
BorderColor = &H80000012&
X1 = 1800
X2 = 3360
Y1 = 840
Y2 = 840
End
Begin VB.Label Label20
Caption = "洪损率"
Height = 255
Left = 1920
TabIndex = 63
Top = 960
Width = 615
End
Begin VB.Label Label19
BackColor = &H80000016&
Caption = "米"
ForeColor = &H00000000&
Height = 255
Left = 1440
TabIndex = 62
Top = 720
Width = 255
End
Begin VB.Line Line22
BorderColor = &H80000012&
X1 = 240
X2 = 1800
Y1 = 600
Y2 = 600
End
Begin VB.Line Line20
X1 = 240
X2 = 1800
Y1 = 1080
Y2 = 1080
End
Begin VB.Label Label18
Caption = "洪损率"
Height = 255
Left = 1920
TabIndex = 61
Top = 480
Width = 615
End
Begin VB.Label Label17
BackColor = &H80000016&
Caption = "水深"
ForeColor = &H80000006&
Height = 255
Left = 360
TabIndex = 60
Top = 720
Width = 375
End
Begin VB.Line Line19
BorderColor = &H00FF0000&
BorderWidth = 2
X1 = 3360
X2 = 3360
Y1 = 360
Y2 = 2760
End
Begin VB.Line Line18
BorderColor = &H80000012&
X1 = 1800
X2 = 3360
Y1 = 1800
Y2 = 1800
End
Begin VB.Label Label16
Caption = "洪损率"
Height = 255
Left = 1920
TabIndex = 59
Top = 1920
Width = 615
End
Begin VB.Label Label15
BackColor = &H80000016&
Caption = "米"
ForeColor = &H00000000&
Height = 255
Left = 1440
TabIndex = 58
Top = 1680
Width = 255
End
Begin VB.Line Line17
X1 = 240
X2 = 1800
Y1 = 2040
Y2 = 2040
End
Begin VB.Label Label14
BackColor = &H80000016&
Caption = "水深"
ForeColor = &H80000006&
Height = 255
Left = 360
TabIndex = 57
Top = 1680
Width = 375
End
End
Begin VB.Frame frameLoss3
Caption = "3 级水深，4 级洪损率"
Height = 2655
Left = 3600
TabIndex = 31
Top = 720
Visible = 0 'False
Width = 3615
Begin VB.TextBox DepthBreak33
Alignment = 1 'Right Justify
Height = 285
Left = 720
TabIndex = 45
Text = "0.90"
Top = 1680
Width = 615
End
Begin VB.TextBox LossRate34
Alignment = 1 'Right Justify
Height = 285
Left = 2520
TabIndex = 44
Text = "0.80"
Top = 1920
Width = 615
End
Begin VB.TextBox LossRate31
Alignment = 1 'Right Justify
Height = 285
Left = 2520
TabIndex = 36
Text = "0.20"
Top = 480
Width = 615
End
Begin VB.TextBox DepthBreak31
Alignment = 1 'Right Justify
Height = 285
Left = 720
TabIndex = 35
Text = "0.30"
Top = 720
Width = 615
End
Begin VB.TextBox LossRate32
Alignment = 1 'Right Justify
Height = 285
Left = 2520
TabIndex = 34
Text = "0.40"
Top = 960
Width = 615
End
Begin VB.TextBox DepthBreak32
Alignment = 1 'Right Justify
Height = 285
Left = 720
TabIndex = 33
Text = "0.60"
Top = 1200
Width = 615
End
Begin VB.TextBox LossRate33
Alignment = 1 'Right Justify
Height = 285
Left = 2520
TabIndex = 32
Text = "0.60"
Top = 1440
Width = 615
End
Begin VB.Label Label13
BackColor = &H80000016&
Caption = "水深"
ForeColor = &H80000006&
Height = 255
Left = 360
TabIndex = 48
Top = 1680
Width = 375
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?