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

BLV_Studio/SetLoopInformation.vb

@@ -129,6 +129,7 @@ Public Class SetLoopInformation
         Grid1.Cell(0， 0).Text = "序号"
         Grid1.Cell(0， 1).Text = "服务器"
         Grid1.Cell(0， 2).Text = "碳达人"
+        Grid1.Column(2).Visible = True
         Grid1.Cell(0， 3).Text = "类型"
         Grid1.Cell(0， 4).Text = "回路地址"
         Grid1.Column(4).Locked = True
@@ -212,7 +213,7 @@ Public Class SetLoopInformation
         End With
     End Sub
 
-    Public Function GetLoopType1(addr As String) As String
+    Public Shared Function GetLoopType1(addr As String) As String
         Dim result As String
         If addr.Length > 2 Then
             Dim typestr As String = addr.Substring(0, 3)
@@ -314,7 +315,7 @@ Public Class SetLoopInformation
 
     End Function
 
-    Public Function GetLoopType(addr As String) As String
+    Public Shared Function GetLoopType(addr As String) As String
         Dim result As String
         If addr.Length > 2 Then
             Dim typestr As String = addr.Substring(0, 3)
@@ -657,7 +658,7 @@ Public Class SetLoopInformation
         End If
 
     End Sub
-    Public Function GetColorFromString(inputString As String) As String
+    Public Shared Function GetColorFromString(inputString As String) As String
         ' 检查输入字符串是否有效
         If String.IsNullOrEmpty(inputString) OrElse inputString.Length < 3 Then
             Throw New ArgumentException("输入字符串必须至少包含3个字符")