Boonlive_RD_Web/Desktop_BLVStudio
9
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

删除自动风复选框及相关功能、增加发布时附加回路上传、优化温控提示音组包方式

Browse Source
This commit is contained in:
chenzhihao
2026-03-12 11:31:54 +08:00
parent 4f6a56bf6e
commit fea9bbfc0d
11 changed files with 417 additions and 191 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
BLV_Studio/Test/GridTest/AddPeripherals.vb
View File

@@ -277,12 +277,7 @@ Public Class AddPeripherals
End Select
Else
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
@@ -296,7 +291,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, "设备存在"， "水机无阀")
@@ -802,12 +797,7 @@ Public Class AddPeripherals
End Select
Else
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
@@ -821,7 +811,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, "设备存在"， "水机无阀")
@@ -1439,11 +1429,6 @@ 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