Public Class UpdateDeviceInfo ''' ''' 设备地址 ''' Public Property DevAddress As String ''' ''' 设备分区 ''' Public Property DevPartition As String ''' ''' 设备名称 ''' ''' Public Property DevName As String ''' ''' 更新结果 ''' ''' Public Property DevResult As String ''' ''' 初始化 ''' Sub New() DevAddress = $"" DevPartition = $"" DevName = $"" DevResult = $"" End Sub ''' ''' 初始化 ''' ''' ''' ''' Sub New(devAddr As String, devPartition As String, devName As String) Me.DevAddress = devAddr Me.DevPartition = devPartition Me.DevName = devName Me.DevResult = $"未升级" End Sub ''' ''' 升级结果 ''' Public Sub UpgradeResult() DevResult = $"未升级" End Sub End Class