From 3bc3cc54956b34c74a7dd3cc18046acc2d9ee3ad Mon Sep 17 00:00:00 2001 From: chenzhihao <1798906853@qq.com> Date: Thu, 19 Mar 2026 09:13:41 +0800 Subject: [PATCH] =?UTF-8?q?=E4=BF=AE=E5=A4=8D=E8=AE=BE=E5=A4=87=E5=9B=9E?= =?UTF-8?q?=E8=B7=AF=E6=9C=AA=E8=AE=BE=E7=BD=AE=E5=AF=B9=E5=BA=94=E7=9A=84?= =?UTF-8?q?=E6=98=BE=E7=A4=BA=E5=92=8C=E7=A6=BB=E7=BA=BF?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- BLV_Studio/BLV_Studio.vbproj | 2 +- BLV_Studio/FrmMain.vb | 11 +++++++---- BLV_Studio/My Project/AssemblyInfo.vb | 4 ++-- 3 files changed, 10 insertions(+), 7 deletions(-) diff --git a/BLV_Studio/BLV_Studio.vbproj b/BLV_Studio/BLV_Studio.vbproj index 2a87421..7c64a64 100644 --- a/BLV_Studio/BLV_Studio.vbproj +++ b/BLV_Studio/BLV_Studio.vbproj @@ -35,7 +35,7 @@ 4.0.0.5 true index.html - 99 + 101 4.4.3.%2a false true diff --git a/BLV_Studio/FrmMain.vb b/BLV_Studio/FrmMain.vb index 26c02e5..dc03f2a 100644 --- a/BLV_Studio/FrmMain.vb +++ b/BLV_Studio/FrmMain.vb @@ -5029,9 +5029,7 @@ Public Class FrmMain Dim devtype, devloop As String devloop = addr.Substring(6, 3) - If devloop.Equals("000") Then - Return mSaveRoomTypeModal - End If + devtype = addr.Substring(0, 3) Select Case devtype Case "001" @@ -5067,7 +5065,12 @@ Public Class FrmMain mSaveRoomTypeModal.OfflineDisplay = 1 Case "009" '空气质量 Case Else - Return Nothing + If devloop.Equals("000") Then + Return mSaveRoomTypeModal + Else + Return Nothing + End If + End Select Return mSaveRoomTypeModal End Function diff --git a/BLV_Studio/My Project/AssemblyInfo.vb b/BLV_Studio/My Project/AssemblyInfo.vb index 9794cc8..4c1b12b 100644 --- a/BLV_Studio/My Project/AssemblyInfo.vb +++ b/BLV_Studio/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices '通过使用 "*",如下所示: ' - - + +