📄 frmw1.frm
字号:
VERSION 5.00
Begin VB.Form frmw1
Caption = "w1-1"
ClientHeight = 10755
ClientLeft = 450
ClientTop = 315
ClientWidth = 14280
LinkTopic = "Form5"
ScaleHeight = 10755
ScaleWidth = 14280
Begin VB.TextBox txtFields
DataField = "36"
DataSource = "Data1"
Height = 285
Index = 36
Left = 4920
MaxLength = 50
TabIndex = 21
Top = 8160
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "7"
DataSource = "Data1"
Height = 285
Index = 7
Left = 4920
MaxLength = 50
TabIndex = 20
Top = 7800
Width = 1095
End
Begin VB.OptionButton Option2
Caption = "城市及近郊"
Height = 255
Left = 6720
TabIndex = 44
Top = 3960
Width = 1215
End
Begin VB.OptionButton Option1
Caption = "农村或远郊"
Height = 255
Left = 6720
TabIndex = 43
Top = 1800
Value = -1 'True
Width = 1215
End
Begin VB.TextBox txtFields
DataField = "43"
DataSource = "Data1"
Height = 285
Index = 43
Left = 12600
MaxLength = 50
TabIndex = 42
Top = 8160
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "42"
DataSource = "Data1"
Height = 285
Index = 42
Left = 12600
MaxLength = 50
TabIndex = 41
Top = 7800
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "41"
DataSource = "Data1"
Height = 285
Index = 41
Left = 12600
MaxLength = 50
TabIndex = 40
Top = 7440
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "40"
DataSource = "Data1"
Height = 285
Index = 40
Left = 12600
MaxLength = 50
TabIndex = 39
Top = 7080
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "39"
DataSource = "Data1"
Height = 285
Index = 39
Left = 12600
MaxLength = 50
TabIndex = 38
Top = 6720
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "38"
DataSource = "Data1"
Height = 285
Index = 38
Left = 12600
MaxLength = 50
TabIndex = 37
Top = 6360
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "37"
DataSource = "Data1"
Height = 285
Index = 37
Left = 12600
MaxLength = 50
TabIndex = 36
Top = 6000
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "35"
DataSource = "Data1"
Height = 285
Index = 35
Left = 12600
MaxLength = 50
TabIndex = 35
Top = 5640
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "34"
DataSource = "Data1"
Height = 285
Index = 34
Left = 12600
MaxLength = 50
TabIndex = 34
Top = 5280
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "33"
DataSource = "Data1"
Enabled = 0 'False
Height = 285
Index = 33
Left = 12600
Locked = -1 'True
MaxLength = 50
TabIndex = 33
Top = 4920
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "32"
DataSource = "Data1"
Enabled = 0 'False
Height = 285
Index = 32
Left = 12600
Locked = -1 'True
MaxLength = 50
TabIndex = 32
Top = 4560
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "31"
DataSource = "Data1"
Enabled = 0 'False
Height = 285
Index = 31
Left = 12600
Locked = -1 'True
MaxLength = 50
TabIndex = 31
Top = 4200
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "30"
DataSource = "Data1"
Enabled = 0 'False
Height = 285
Index = 30
Left = 12600
Locked = -1 'True
MaxLength = 50
TabIndex = 30
Top = 3840
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "16"
DataSource = "Data1"
Height = 285
Index = 16
Left = 4920
MaxLength = 50
TabIndex = 14
Top = 5520
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "17"
DataSource = "Data1"
Height = 285
Index = 17
Left = 4920
MaxLength = 50
TabIndex = 15
Top = 5880
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "18"
DataSource = "Data1"
Height = 285
Index = 18
Left = 4920
MaxLength = 50
TabIndex = 16
Top = 6240
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "19"
DataSource = "Data1"
Height = 285
Index = 19
Left = 4920
MaxLength = 50
TabIndex = 17
Top = 6600
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "20"
DataSource = "Data1"
Height = 285
Index = 20
Left = 4920
MaxLength = 50
TabIndex = 18
Top = 6960
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "21"
DataSource = "Data1"
Height = 285
Index = 21
Left = 4920
MaxLength = 50
TabIndex = 19
Top = 7320
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "29"
DataSource = "Data1"
Enabled = 0 'False
Height = 285
Index = 29
Left = 12600
Locked = -1 'True
MaxLength = 50
TabIndex = 29
Top = 3480
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "28"
DataSource = "Data1"
Enabled = 0 'False
Height = 285
Index = 28
Left = 12600
Locked = -1 'True
MaxLength = 50
TabIndex = 28
Top = 3120
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "27"
DataSource = "Data1"
Enabled = 0 'False
Height = 285
Index = 27
Left = 12600
Locked = -1 'True
MaxLength = 50
TabIndex = 27
Top = 2760
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "26"
DataSource = "Data1"
Enabled = 0 'False
Height = 285
Index = 26
Left = 12600
Locked = -1 'True
MaxLength = 50
TabIndex = 26
Top = 2400
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "25"
DataSource = "Data1"
Enabled = 0 'False
Height = 285
Index = 25
Left = 12600
Locked = -1 'True
MaxLength = 50
TabIndex = 25
Top = 2040
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "24"
DataSource = "Data1"
Enabled = 0 'False
Height = 285
Index = 24
Left = 12600
Locked = -1 'True
MaxLength = 50
TabIndex = 24
Top = 1680
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "23"
DataSource = "Data1"
Enabled = 0 'False
Height = 285
Index = 23
Left = 12600
Locked = -1 'True
MaxLength = 50
TabIndex = 23
Top = 1320
Width = 1095
End
Begin VB.Frame Frame3
Height = 1335
Left = 9480
TabIndex = 73
Top = 8640
Width = 3855
Begin VB.CommandButton Command9
Caption = "某点浓度"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2640
TabIndex = 53
Top = 720
Width = 1095
End
Begin VB.CommandButton Command6
Caption = "浓度列表"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -