📄 digcyc.frm
字号:
_Version = 393216
Format = 24772610
CurrentDate = 37053
End
Begin MSComCtl2.DTPicker CloseTime
Height = 285
Index = 6
Left = -72660
TabIndex = 59
Top = 1035
Width = 1140
_ExtentX = 2011
_ExtentY = 503
_Version = 393216
Format = 24772610
CurrentDate = 37053
End
Begin MSComCtl2.DTPicker CloseTime
Height = 285
Index = 7
Left = -72660
TabIndex = 60
Top = 1485
Width = 1140
_ExtentX = 2011
_ExtentY = 503
_Version = 393216
Format = 24772610
CurrentDate = 37053
End
Begin MSComCtl2.DTPicker CloseTime
Height = 285
Index = 8
Left = -72660
TabIndex = 61
Top = 1980
Width = 1140
_ExtentX = 2011
_ExtentY = 503
_Version = 393216
Format = 24772610
CurrentDate = 37053
End
Begin MSComCtl2.DTPicker CloseTime
Height = 285
Index = 9
Left = -72660
TabIndex = 62
Top = 2475
Width = 1140
_ExtentX = 2011
_ExtentY = 503
_Version = 393216
Format = 24772610
CurrentDate = 37053
End
Begin VB.CheckBox SetTimeValveName
Caption = "7号阀"
Height = 420
Index = 6
Left = -74820
TabIndex = 39
Top = 945
Width = 870
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 3
X1 = -75000
X2 = -71175
Y1 = 810
Y2 = 810
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 2
X1 = 0
X2 = 3825
Y1 = 765
Y2 = 765
End
Begin VB.Label Label3
BackColor = &H8000000C&
BackStyle = 0 'Transparent
Caption = "关阀时间"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FF80&
Height = 255
Index = 5
Left = -72705
TabIndex = 26
Top = 540
Width = 915
WordWrap = -1 'True
End
Begin VB.Label Label3
BackColor = &H8000000C&
BackStyle = 0 'Transparent
Caption = "开阀时间"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FF80&
Height = 255
Index = 4
Left = -73830
TabIndex = 25
Top = 540
Width = 915
WordWrap = -1 'True
End
Begin VB.Label Label3
BackColor = &H8000000C&
BackStyle = 0 'Transparent
Caption = "阀名"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FF80&
Height = 255
Index = 3
Left = -74640
TabIndex = 24
Top = 525
Width = 435
WordWrap = -1 'True
End
Begin VB.Label Label3
BackColor = &H8000000C&
BackStyle = 0 'Transparent
Caption = "关阀时间"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FF80&
Height = 255
Index = 2
Left = 2430
TabIndex = 23
Top = 495
Width = 915
WordWrap = -1 'True
End
Begin VB.Label Label3
BackColor = &H8000000C&
BackStyle = 0 'Transparent
Caption = "开阀时间"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FF80&
Height = 255
Index = 1
Left = 1125
TabIndex = 22
Top = 495
Width = 915
WordWrap = -1 'True
End
Begin VB.Label Label3
BackColor = &H8000000C&
BackStyle = 0 'Transparent
Caption = "阀名"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FF80&
Height = 255
Index = 0
Left = 270
TabIndex = 21
Top = 495
Width = 435
WordWrap = -1 'True
End
End
Begin VB.OptionButton Option2
Caption = "定量控制"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400040&
Height = 405
Left = 2025
TabIndex = 19
Top = 270
Width = 1845
End
Begin VB.OptionButton Option1
Caption = "定时控制"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400040&
Height = 375
Left = 90
TabIndex = 18
Top = 270
Value = -1 'True
Width = 1815
End
Begin TabDlg.SSTab SSTab1
Height = 3795
Left = 120
TabIndex = 1
Top = 720
Visible = 0 'False
Width = 3480
_ExtentX = 6138
_ExtentY = 6694
_Version = 393216
Style = 1
Tabs = 2
TabHeight = 520
TabCaption(0) = "一号灌区"
TabPicture(0) = "DigCyc.frx":0342
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "LabTon(1)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "LabTon(0)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "LabTon(2)"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "LabTon(3)"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label1(2)"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label1(3)"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "LabTon(4)"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "LabTon(5)"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Line1(0)"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "MaskEdBoxFen(5)"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "MaskEdBoxFen(4)"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "MaskEdBoxFen(3)"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "MaskEdBoxFen(2)"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "MaskEdBoxFen(1)"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "MaskEdBoxFen(0)"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "CycValveCheck1(3)"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "CycValveCheck1(2)"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "CycValveCheck1(1)"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "CycValveCheck1(0)"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "CycValveCheck1(4)"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).Control(20)= "CycValveCheck1(5)"
Tab(0).Control(20).Enabled= 0 'False
Tab(0).ControlCount= 21
TabCaption(1) = "二号灌区"
TabPicture(1) = "DigCyc.frx":035E
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Line1(1)"
Tab(1).Control(1)= "LabTon(8)"
Tab(1).Control(2)= "LabTon(9)"
Tab(1).Control(3)= "Label1(4)"
Tab(1).Control(4)= "Label1(1)"
Tab(1).Control(5)= "LabTon(7)"
Tab(1).Control(6)= "LabTon(6)"
Tab(1).Control(7)= "MaskEdBoxFen(9)"
Tab(1).Control(8)= "MaskEdBoxFen(8)"
Tab(1).Control(9)= "MaskEdBoxFen(7)"
Tab(1).Control(10)= "MaskEdBoxFen(6)"
Tab(1).Control(11)= "CycValveCheck1(8)"
Tab(1).Control(12)= "CycValveCheck1(9)"
Tab(1).Control(13)= "CycValveCheck1(7)"
Tab(1).Control(14)= "CycValveCheck1(6)"
Tab(1).ControlCount= 15
Begin VB.CheckBox CycValveCheck1
Caption = "7号阀"
Height = 585
Index = 6
Left = -74520
TabIndex = 67
ToolTipText = "选择是否自动循环开阀"
Top = 1050
Width = 885
End
Begin VB.CheckBox CycValveCheck1
Caption = "8号阀"
Height = 585
Index = 7
Left = -74520
TabIndex = 66
ToolTipText = "选择是否自动循环开阀"
Top = 1620
Width = 885
End
Begin VB.CheckBox CycValveCheck1
Caption = "10号阀"
Height = 465
Index = 9
Left = -74520
TabIndex = 65
ToolTipText = "选择是否自动循环开阀"
Top = 2805
Width = 975
End
Begin VB.CheckBox CycValveCheck1
Caption = "9号阀"
Height = 435
Index = 8
Left = -74520
TabIndex = 64
ToolTipText = "选择是否自动循环开阀"
Top = 2250
Width = 975
End
Begin VB.CheckBox CycValveCheck1
Caption = "六号阀"
Height = 405
Index = 5
Left = 345
TabIndex = 30
ToolTipText = "选择是否自动循环开阀"
Top = 3330
Width = 840
End
Begin VB.CheckBox CycValveCheck1
Caption = "五号阀"
Height = 450
Index = 4
Left = 345
TabIndex = 27
ToolTipText = "选择是否自动循环开阀"
Top = 2835
Width = 885
End
Begin VB.CheckBox CycValveCheck1
Caption = "一号阀"
Enabled = 0 'False
Height = 450
Index = 0
Left = 345
TabIndex = 6
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -