增加禁用风速自动停止复选框
This commit is contained in:
@@ -291,7 +291,8 @@ Public Class AddPeripherals
|
||||
CheckBox2.Visible = True
|
||||
CheckBox5.Text = "风速模式提示音"
|
||||
CheckBox5.Visible = True
|
||||
|
||||
CheckBox3.Text = "禁用风速自动停止"
|
||||
CheckBox3.Visible = True
|
||||
SplitContainer4.Panel1Collapsed = True
|
||||
SplitContainer4.Panel2Collapsed = False
|
||||
Dim val As String = FindAttributeValueUnderModel(Resultmodel, "设备存在", "水机无阀")
|
||||
@@ -766,7 +767,7 @@ Public Class AddPeripherals
|
||||
CheckBox4.Visible = False
|
||||
CheckBox2.Visible = False
|
||||
CheckBox3.Visible = False
|
||||
|
||||
CheckBox6.Visible = False
|
||||
FdevPort.Visible = False
|
||||
FdevAddr.Visible = False
|
||||
FdevPortCom.Visible = False
|
||||
@@ -811,7 +812,8 @@ Public Class AddPeripherals
|
||||
CheckBox5.Text = "风速模式提示音"
|
||||
CheckBox5.Visible = True
|
||||
CheckBox4.Visible = True
|
||||
|
||||
CheckBox3.Text = "禁用风速自动停止"
|
||||
CheckBox3.Visible = True
|
||||
SplitContainer4.Panel1Collapsed = True
|
||||
SplitContainer4.Panel2Collapsed = False
|
||||
Dim val As String = FindAttributeValueUnderModel(Resultmodel, "设备存在", "水机无阀")
|
||||
@@ -3080,7 +3082,7 @@ Public Class AddPeripherals
|
||||
End Sub
|
||||
|
||||
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
|
||||
CheckBox3.Checked = CheckBox2.Checked
|
||||
' CheckBox3.Checked = CheckBox2.Checked
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user