空调增加自动风勾选框

BLV_Studio/Test/GridTest/AddPeripherals.vb

@@ -277,7 +277,12 @@ Public Class AddPeripherals
                     End Select
 
                 Else
-                    Exit For
+                    If g_DevType = FromDevType.Temp Then
+                        If i = 4 Then
+                            Integer.TryParse(Rchenk(i), ischenk)
+                            CheckBox7.Checked = ischenk
+                        End If
+                    End If
                 End If
             Next
 
@@ -291,6 +296,7 @@ Public Class AddPeripherals
                 CheckBox2.Visible = True
                 CheckBox5.Text = "风速模式提示音"
                 CheckBox5.Visible = True
+                CheckBox7.Visible = True
                 SplitContainer4.Panel1Collapsed = True
                 SplitContainer4.Panel2Collapsed = False
                 Dim val As String = FindAttributeValueUnderModel(Resultmodel, "设备存在"， "水机无阀")
@@ -781,7 +787,7 @@ Public Class AddPeripherals
             Dim Rchenk() As String = Resultmodel.Desc.DevDescription.Split(",")
             Dim ischenk As Integer = 0
             For i = 0 To Rchenk.Length - 1
-                If i < 3 Then
+                If i < 4 Then
                     ischenk = 0
                     Integer.TryParse(Rchenk(i), ischenk)
                     Select Case i
@@ -791,10 +797,17 @@ Public Class AddPeripherals
                             CheckBox2.Checked = ischenk
                         Case 2
                             CheckBox3.Checked = ischenk
+                        Case 3
+                            CheckBox5.Checked = ischenk
                     End Select
 
                 Else
-                    Exit For
+                    If g_DevType = FromDevType.Temp Then
+                        If i = 4 Then
+                            Integer.TryParse(Rchenk(i), ischenk)
+                            CheckBox7.Checked = ischenk
+                        End If
+                    End If
                 End If
             Next
 
@@ -808,6 +821,7 @@ Public Class AddPeripherals
                 CheckBox5.Text = "风速模式提示音"
                 CheckBox5.Visible = True
                 CheckBox4.Visible = True
+                CheckBox7.Visible = True
                 SplitContainer4.Panel1Collapsed = True
                 SplitContainer4.Panel2Collapsed = False
                 Dim val As String = FindAttributeValueUnderModel(Resultmodel, "设备存在"， "水机无阀")
@@ -1425,6 +1439,11 @@ Public Class AddPeripherals
                     Else
                         Resultmodel.Desc.DevDescription = $"{ Resultmodel.Desc.DevDescription},0"
                     End If
+                    If CheckBox7.Checked Then
+                        Resultmodel.Desc.DevDescription = $"{ Resultmodel.Desc.DevDescription},1"
+                    Else
+                        Resultmodel.Desc.DevDescription = $"{ Resultmodel.Desc.DevDescription},0"
+                    End If
 
 
                 Else