优化当固件版本大于43时开关机提示音和风速提示音的组包方式

BLV_Studio/FrmMain.vb

@@ -4402,7 +4402,7 @@ Public Class FrmMain
     Public _TableInteraction As TableInteraction
 
     Private Sub T_OpenfileXML_Click(sender As Object, e As EventArgs) Handles T_OpenfileXML.Click
-        If IsNothing(_ConfigInfo.Author) Then
+        If IsNothing(_ConfigInfo.Author) OrElse IsNothing(TvwMain.SelectedNode) Then
             MsgBox("Room type not selected！！！")
             Return
         End If
@@ -4560,6 +4560,18 @@ Public Class FrmMain
 
                     '填充配置信息
                     '_grdModel._ConfigInf
+                        Dim TrNode As TreeNode = TvwMain.SelectedNode
+                        If TrNode.Level > 1 Then
+                            TrNode = TrNode.Parent
+                        End If
+                        Dim FirmwareVer As String = TrNode.FirstNode.NextNode.NextNode.Text ' TrNode.NextVisibleNode.NextNode.Text
+                        Dim FVer As Integer = 0
+                        If Not String.IsNullOrEmpty(FirmwareVer) Then
+                            Dim Firbuf As String() = FirmwareVer.Split("_")
+                            If Firbuf.Length > 3 Then
+                                FVer = Convert.ToInt32(Firbuf(3))
+                            End If
+                        End If
                     If _TableInteraction.TableCompiletoByte(savePath, True) = True Then
                         _TableInteraction.Save(savePath)  '保存配置文件
                     If IsShowCompileResult Then MsgBox($"Compile complete， Configuration version number：" & _TableInteraction.ConfigInfo.CfgFileVersion)
@@ -4644,6 +4656,10 @@ Public Class FrmMain
 
 
     Private Sub ToolStripButton10_Click(sender As Object, e As EventArgs) Handles ToolStripButton10.Click
+        If IsNothing(TvwMain.SelectedNode) Then
+            MsgBox("请先选择一个项目节点！")
+            Return
+        End If
         Dim tmpMsgReslut As MsgBoxResult '弹出消息框的选定值
         Me.Cursor = System.Windows.Forms.Cursors.WaitCursor '光标变成漏斗状
         Try