📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form1
Caption = " 文丘里管结构参数设计(张全长-王浒）"
ClientHeight = 9090
ClientLeft = 165
ClientTop = 855
ClientWidth = 11370
LinkTopic = "Form1"
ScaleHeight = 9090
ScaleWidth = 11370
StartUpPosition = 3 'Windows Default
Begin VB.TextBox Text15
Alignment = 2 'Center
Height = 495
Left = 4320
TabIndex = 43
Text = "Text15"
Top = 4410
Width = 795
End
Begin VB.PictureBox Picture1
Height = 2445
Left = 1110
ScaleHeight = 2385
ScaleWidth = 8835
TabIndex = 31
Top = 6360
Width = 8895
Begin VB.Label Label25
AutoSize = -1 'True
Caption = "Label25"
Height = 195
Left = 7290
TabIndex = 41
Top = 690
Visible = 0 'False
Width = 570
End
Begin VB.Label Label24
AutoSize = -1 'True
Caption = "扩张锥角"
Height = 195
Left = 6570
TabIndex = 40
Top = 690
Visible = 0 'False
Width = 720
End
Begin VB.Label Label23
AutoSize = -1 'True
Caption = "Label23"
Height = 195
Left = 1020
TabIndex = 39
Top = 1500
Visible = 0 'False
Width = 570
End
Begin VB.Label Label22
AutoSize = -1 'True
Caption = "入口锥角"
Height = 195
Left = 270
TabIndex = 38
Top = 1500
Visible = 0 'False
Width = 720
End
Begin VB.Label Label21
AutoSize = -1 'True
Caption = "Label21"
Height = 195
Left = 3180
TabIndex = 37
Top = 1650
Visible = 0 'False
Width = 570
End
Begin VB.Label Label20
AutoSize = -1 'True
Caption = "Label20"
Height = 195
Left = 4530
TabIndex = 36
Top = 360
Visible = 0 'False
Width = 570
End
Begin VB.Label Label19
AutoSize = -1 'True
Caption = "Label19"
Height = 195
Left = 4470
TabIndex = 35
Top = 990
Visible = 0 'False
Width = 570
End
Begin VB.Label Label18
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "Label18"
Height = 195
Left = 3555
TabIndex = 34
Top = 930
Visible = 0 'False
Width = 585
End
End
Begin VB.CommandButton Command1
BackColor = &H000000FF&
Caption = "计算"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 465
Left = 3930
TabIndex = 30
Top = 3570
Width = 1005
End
Begin VB.TextBox Text14
Alignment = 2 'Center
Height = 465
Left = 8010
TabIndex = 28
Text = "Text14"
Top = 5400
Width = 1515
End
Begin VB.TextBox Text13
Alignment = 2 'Center
Height = 465
Left = 8010
TabIndex = 27
Text = "Text13"
Top = 4920
Width = 1515
End
Begin VB.TextBox Text12
Alignment = 2 'Center
Height = 525
Left = 8010
TabIndex = 26
Text = "Text12"
Top = 4410
Width = 1515
End
Begin VB.TextBox Text11
Alignment = 2 'Center
Height = 435
Left = 3600
TabIndex = 25
Text = "Text11"
Top = 5400
Width = 1515
End
Begin VB.TextBox Text10
Alignment = 2 'Center
Height = 465
Left = 3600
TabIndex = 24
Text = "Text10"
Top = 4920
Width = 1515
End
Begin VB.TextBox Text9
Alignment = 2 'Center
Height = 495
Left = 3600
TabIndex = 23
Text = "Text9"
Top = 4410
Width = 705
End
Begin VB.TextBox Text8
Alignment = 2 'Center
Height = 465
Left = 8700
TabIndex = 16
Text = "Text8"
Top = 2790
Width = 1335
End
Begin VB.TextBox Text7
Alignment = 2 'Center
Height = 465
Left = 5880
TabIndex = 15
Text = "Text7"
Top = 2760
Width = 1485
End
Begin VB.TextBox Text6
Alignment = 2 'Center
Height = 465
Left = 3210
TabIndex = 14
Text = "Text6"
Top = 2760
Width = 1455
End
Begin VB.TextBox Text5
Alignment = 2 'Center
Height = 435
Left = 780
TabIndex = 13
Text = "Text5"
Top = 2760
Width = 1515
End
Begin VB.TextBox Text4
Alignment = 2 'Center
Height = 465
Left = 8640
TabIndex = 12
Text = "Text4"
Top = 1440
Width = 1365
End
Begin VB.TextBox Text3
Alignment = 2 'Center
Height = 435
Left = 5820
TabIndex = 11
Text = "Text3"
Top = 1440
Width = 1515
End
Begin VB.TextBox Text2
Alignment = 2 'Center
Height = 435
Left = 3180
TabIndex = 10
Text = "Text2"
Top = 1410
Width = 1455
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Height = 405
Left = 780
TabIndex = 9
Text = "Text1"
Top = 1410
Width = 1545
End
Begin VB.Label Label27
BackStyle = 0 'Transparent
Caption = "喉口速度"
ForeColor = &H000000FF&
Height = 285
Left = 4350
TabIndex = 44
Top = 4230
Width = 825
End
Begin VB.Label Label26
Caption = "单位 毫米"
ForeColor = &H000000FF&
Height = 1125
Left = 10350
TabIndex = 42
Top = 6990
Width = 180
End
Begin VB.Label Label17
Caption = "文丘里管结构示意图"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 2685
Left = 10050
TabIndex = 33
Top = 6240
Width = 465
End
Begin VB.Label Label16
Alignment = 2 'Center
Caption = "Label16"
Height = 405
Left = 480
TabIndex = 32
Top = 7290
Width = 465
End
Begin VB.Line Line1
BorderColor = &H00C00000&
BorderWidth = 2
Visible = 0 'False
X1 = 840
X2 = 1140
Y1 = 6360
Y2 = 6360
End
Begin VB.Line Line3
BorderColor = &H00C00000&
BorderWidth = 2
Visible = 0 'False
X1 = 990
X2 = 990
Y1 = 6360
Y2 = 8760
End
Begin VB.Line Line2
BorderColor = &H00FF0000&
BorderWidth = 2
Visible = 0 'False
X1 = 810
X2 = 1110
Y1 = 8790
Y2 = 8790
End
Begin VB.Shape Shape2
BorderColor = &H00FF0000&
BorderWidth = 3
Height = 2025
Left = 1080
Shape = 4 'Rounded Rectangle
Top = 4080
Width = 8865
End
Begin VB.Label Label9
BackColor = &H00FFFF00&
BackStyle = 0 'Transparent
Caption = "输出参数区"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 585
Index = 1
Left = 5040
TabIndex = 29
Top = 3690
Width = 1695
End
Begin VB.Label Label15
Alignment = 2 'Center
BackColor = &H00C0FFFF&
BorderStyle = 1 'Fixed Single
Caption = "文丘里管的沿程损失"
Height = 465
Left = 5760
TabIndex = 22
Top = 5370
Width = 2265
End
Begin VB.Label Label14
Alignment = 2 'Center
BackColor = &H00C0FFFF&
BorderStyle = 1 'Fixed Single
Caption = "文丘里管扩张段长度（mm)"
Height = 465
Left = 5760
TabIndex = 21
Top = 4920
Width = 2265
End
Begin VB.Label Label13
Alignment = 2 'Center
BackColor = &H00C0FFFF&
BorderStyle = 1 'Fixed Single
Caption = "文丘里管入口段长度（mm)"
Height = 495
Left = 5760
TabIndex = 20
Top = 4410
Width = 2265
End
Begin VB.Label Label12
Alignment = 2 'Center
BackColor = &H00C0FFFF&
BorderStyle = 1 'Fixed Single
Caption = "文丘里管扩张段锥角（度）"
Height = 465
Left = 1350
TabIndex = 19
Top = 5370
Width = 2295
End
Begin VB.Label Label11
Alignment = 2 'Center
BackColor = &H00C0FFFF&
BorderStyle = 1 'Fixed Single
Caption = "文丘里管临界候口直径（mm)"
Height = 465
Left = 1350
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -