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

上传回路增加碳达人的上传勾选

Browse Source
This commit is contained in:
chenzhihao
2026-01-06 16:46:27 +08:00
parent f845225ed7
commit 9d6e3ac6bb
3 changed files with 156 additions and 132 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
BLV_Studio/SetLoopInformation.Designer.vb generated
View File

@@ -25,6 +25,8 @@ Partial Class SetLoopInformation
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(SetLoopInformation)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(SetLoopInformation))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
@@ -33,8 +35,6 @@ Partial Class SetLoopInformation
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.Grid1 = New FlexCell.Grid() Me.Grid1 = New FlexCell.Grid()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStrip1.SuspendLayout() Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
@@ -44,10 +44,26 @@ Partial Class SetLoopInformation
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton2, Me.ToolStripSeparator1, Me.ToolStripButton7, Me.ToolStripButton1, Me.ToolStripButton5, Me.ToolStripButton4, Me.ToolStripButton6, Me.ToolStripLabel1}) Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton2, Me.ToolStripSeparator1, Me.ToolStripButton7, Me.ToolStripButton1, Me.ToolStripButton5, Me.ToolStripButton4, Me.ToolStripButton6, Me.ToolStripLabel1})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1" Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1169, 56) Me.ToolStrip1.Size = New System.Drawing.Size(1396, 56)
Me.ToolStrip1.TabIndex = 0 Me.ToolStrip1.TabIndex = 0
Me.ToolStrip1.Text = "ToolStrip1" Me.ToolStrip1.Text = "ToolStrip1"
' '
'ToolStripButton2
'
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
Me.ToolStripButton2.Font = New System.Drawing.Font("Microsoft YaHei UI", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.ToolStripButton2.ForeColor = System.Drawing.Color.RoyalBlue
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(41, 53)
Me.ToolStripButton2.Text = "全选"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 56)
'
'ToolStripButton7 'ToolStripButton7
' '
Me.ToolStripButton7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text Me.ToolStripButton7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
@@ -110,34 +126,18 @@ Partial Class SetLoopInformation
Me.Grid1.Location = New System.Drawing.Point(0, 56) Me.Grid1.Location = New System.Drawing.Point(0, 56)
Me.Grid1.MouseWheelSpeed = CType(3, Short) Me.Grid1.MouseWheelSpeed = CType(3, Short)
Me.Grid1.Name = "Grid1" Me.Grid1.Name = "Grid1"
Me.Grid1.Size = New System.Drawing.Size(1169, 624) Me.Grid1.Size = New System.Drawing.Size(1396, 624)
Me.Grid1.TabIndex = 1 Me.Grid1.TabIndex = 1
' '
'Timer1 'Timer1
' '
Me.Timer1.Interval = 1000 Me.Timer1.Interval = 1000
' '
'ToolStripButton2
'
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
Me.ToolStripButton2.Font = New System.Drawing.Font("Microsoft YaHei UI", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.ToolStripButton2.ForeColor = System.Drawing.Color.RoyalBlue
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(41, 53)
Me.ToolStripButton2.Text = "全选"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 56)
'
'SetLoopInformation 'SetLoopInformation
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1169, 680) Me.ClientSize = New System.Drawing.Size(1396, 680)
Me.Controls.Add(Me.Grid1) Me.Controls.Add(Me.Grid1)
Me.Controls.Add(Me.ToolStrip1) Me.Controls.Add(Me.ToolStrip1)
Me.Name = "SetLoopInformation" Me.Name = "SetLoopInformation"

30
BLV_Studio/SetLoopInformation.resx
View File

@@ -121,6 +121,21 @@
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
@@ -199,19 +214,4 @@
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>129, 17</value> <value>129, 17</value>
</metadata> </metadata>
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
</root> </root>

216
BLV_Studio/SetLoopInformation.vb
View File

@@ -89,7 +89,7 @@ Public Class SetLoopInformation
If item.Type.Equals("4") Then If item.Type.Equals("4") Then
'判断名称长度是否大于2 '判断名称长度是否大于2
If item.Name.Length > 2 Then If item.Name.Length > 2 Then
G_loopNameAddr.Add(item.ModalAddress, item.Name.Substring(0, 2)) G_loopNameAddr.Add(item.ModalAddress, item.Name.Replace("服务", ""))
Else Else
G_loopNameAddr.Add(item.ModalAddress, item.Name) G_loopNameAddr.Add(item.ModalAddress, item.Name)
End If End If
@@ -121,36 +121,37 @@ Public Class SetLoopInformation
'初始化表格 '初始化表格
Private Sub initTable() Private Sub initTable()
Grid1.Cols = 21 Grid1.Cols = 22
Grid1.Rows = 1 Grid1.Rows = 1
Grid1.Column(0).Locked = True Grid1.Column(0).Locked = True
Grid1.Cell(0， 0).Text = "序号" Grid1.Cell(0， 0).Text = "序号"
Grid1.Cell(0， 1).Text = "启用" Grid1.Cell(0， 1).Text = "服务器"
Grid1.Cell(0， 2).Text = "类型" Grid1.Cell(0， 2).Text = "碳达人"
Grid1.Cell(0， 3).Text = "回路地址" Grid1.Cell(0， 3).Text = "类型"
Grid1.Column(3).Locked = True Grid1.Cell(0， 4).Text = "回路地址"
Grid1.Column(4).Locked = True Grid1.Column(4).Locked = True
Grid1.Cell(0， 4).Text = "本地回路名称" Grid1.Column(5).Locked = True
Grid1.Cell(0， 5).Text = "云端回路地址" Grid1.Cell(0， 5).Text = "本地回路名称"
Grid1.Cell(0， 6).Text = "云端回路名称" Grid1.Cell(0， 6).Text = "云端回路地址"
Grid1.Cell(0， 7).Text = "英文名称" Grid1.Cell(0， 7).Text = "云端回路名称"
Grid1.Cell(0， 8).Text = "繁体名称" Grid1.Cell(0， 8).Text = "英文名称"
Grid1.Cell(0， 9).Text = "别名" Grid1.Cell(0， 9).Text = "繁体名称"
Grid1.Cell(0， 10).Text = "功率" Grid1.Cell(0， 10).Text = "别名"
Grid1.Cell(0， 11).Text = "低电值" Grid1.Cell(0， 11).Text = "功率"
Grid1.Cell(0， 12).Text = "显示" Grid1.Cell(0， 12).Text = "低电值"
Grid1.Cell(0， 13).Text = "离线" Grid1.Cell(0， 13).Text = "显示"
Grid1.Cell(0， 14).Text = "低电" Grid1.Cell(0， 14).Text = "离线"
Grid1.Cell(0， 15).Text = "声报" Grid1.Cell(0， 15).Text = "低电"
Grid1.Cell(0， 16).Text = "异常" Grid1.Cell(0， 16).Text = "声报"
Grid1.Cell(0， 17).Text = "排序" Grid1.Cell(0， 17).Text = "异常"
Grid1.Cell(0， 18).Text = "TCL设备名" Grid1.Cell(0， 18).Text = "排序"
Grid1.Cell(0， 19).Text = "组设备编号" Grid1.Cell(0， 19).Text = "TCL设备名"
Grid1.Cell(0， 20).Text = "组设备名" Grid1.Cell(0， 20).Text = "组设备编号"
Grid1.Cell(0， 21).Text = "组设备名"
Grid1.Column(1).CellType = FlexCell.CellTypeEnum.CheckBox Grid1.Column(1).CellType = FlexCell.CellTypeEnum.CheckBox
Grid1.Column(1).Width = 25 Grid1.Column(1).Width = 40
Grid1.Column(12).CellType = FlexCell.CellTypeEnum.CheckBox Grid1.Column(2).CellType = FlexCell.CellTypeEnum.CheckBox
Grid1.Column(12).Width = 45 Grid1.Column(2).Width = 40
Grid1.Column(13).CellType = FlexCell.CellTypeEnum.CheckBox Grid1.Column(13).CellType = FlexCell.CellTypeEnum.CheckBox
Grid1.Column(13).Width = 45 Grid1.Column(13).Width = 45
Grid1.Column(14).CellType = FlexCell.CellTypeEnum.CheckBox Grid1.Column(14).CellType = FlexCell.CellTypeEnum.CheckBox
@@ -159,8 +160,10 @@ Public Class SetLoopInformation
Grid1.Column(15).Width = 45 Grid1.Column(15).Width = 45
Grid1.Column(16).CellType = FlexCell.CellTypeEnum.CheckBox Grid1.Column(16).CellType = FlexCell.CellTypeEnum.CheckBox
Grid1.Column(16).Width = 45 Grid1.Column(16).Width = 45
Grid1.Column(18).CellType = FlexCell.CellTypeEnum.ComboBox Grid1.Column(17).CellType = FlexCell.CellTypeEnum.CheckBox
Grid1.Column(18).Width = 45 Grid1.Column(17).Width = 45
Grid1.Column(19).CellType = FlexCell.CellTypeEnum.ComboBox
Grid1.Column(19).Width = 45
For i As Integer = 0 To 20 For i As Integer = 0 To 20
Grid1.Column(i).Alignment = FlexCell.AlignmentEnum.CenterCenter Grid1.Column(i).Alignment = FlexCell.AlignmentEnum.CenterCenter
Next Next
@@ -172,10 +175,10 @@ Public Class SetLoopInformation
Private Sub Grid1_ComboDropDown(Sender As Object, e As FlexCell.Grid.ComboDropDownEventArgs) Handles Grid1.ComboDropDown Private Sub Grid1_ComboDropDown(Sender As Object, e As FlexCell.Grid.ComboDropDownEventArgs) Handles Grid1.ComboDropDown
If e.Row > 0 Then If e.Row > 0 Then
Grid1.ComboBox(18).Items.Clear() Grid1.ComboBox(19).Items.Clear()
Grid1.ComboBox(18).Items.Add("R-红") Grid1.ComboBox(19).Items.Add("R-红")
Grid1.ComboBox(18).Items.Add("G-绿") Grid1.ComboBox(19).Items.Add("G-绿")
Grid1.ComboBox(18).Items.Add("B-蓝") Grid1.ComboBox(19).Items.Add("B-蓝")
End If End If
End Sub End Sub
@@ -195,11 +198,11 @@ Public Class SetLoopInformation
With Grid1 With Grid1
.AddItem("") .AddItem("")
.Cell(.Rows - 1, 0).Text = .Rows - 1 .Cell(.Rows - 1, 0).Text = .Rows - 1
.Cell(.Rows - 1, 2).Text = LoopType .Cell(.Rows - 1, 3).Text = LoopType
For i As Integer = 3 To .Cols - 1 For i As Integer = 4 To .Cols - 1
.Cell(.Rows - 1, i).Text = bufarry(i - 2) .Cell(.Rows - 1, i).Text = bufarry(i - 3)
If istag Then If istag Then
.Cell(.Rows - 1, i).Tag = bufarry(i - 2) .Cell(.Rows - 1, i).Tag = bufarry(i - 3)
Else Else
.Range(.Rows - 1, 1, .Rows - 1, .Cols - 1).ForeColor = Color.Red .Range(.Rows - 1, 1, .Rows - 1, .Cols - 1).ForeColor = Color.Red
End If End If
@@ -457,43 +460,44 @@ Public Class SetLoopInformation
For Each row As RoomDevice In login.rows For Each row As RoomDevice In login.rows
isaddrow = True isaddrow = True
For i = 1 To Grid1.Rows - 1 For i = 1 To Grid1.Rows - 1
If row.ModalAddress.Equals(Grid1.Cell(i, 3).Text) Then If row.ModalAddress.Equals(Grid1.Cell(i, 4).Text) Then
isaddrow = False isaddrow = False
Name = Grid1.Cell(i, 4).Text Name = Grid1.Cell(i, 5).Text
If row.Name.Equals(Name) Then If row.Name.Equals(Name) Then
If row.IsUploadBaoJing Then If row.IsUploadBaoJing Then
Grid1.Cell(i, 1).Text = 1 Grid1.Cell(i, 2).Text = 1
Else Else
Grid1.Cell(i, 1).Text = 0 Grid1.Cell(i, 2).Text = 0
End If End If
Grid1.Cell(i, 5).Text = row.ModalAddress Grid1.Cell(i, 6).Text = row.ModalAddress
Grid1.Cell(i, 6).Text = row.Name Grid1.Cell(i, 7).Text = row.Name
Grid1.Cell(i, 6).ForeColor = Color.Black Grid1.Cell(i, 7).ForeColor = Color.Black
Grid1.Cell(i, 4).ForeColor = Color.Black Grid1.Cell(i, 5).ForeColor = Color.Black
Grid1.Cell(i, 7).Text = row.EnglishName Grid1.Cell(i, 8).Text = row.EnglishName
Grid1.Cell(i, 8).Text = row.TWName Grid1.Cell(i, 9).Text = row.TWName
Grid1.Cell(i, 9).Text = row.AliasName Grid1.Cell(i, 10).Text = row.AliasName
Grid1.Cell(i, 10).Text = row.Power Grid1.Cell(i, 11).Text = row.Power
Grid1.Cell(i, 11).Text = row.LowPower Grid1.Cell(i, 12).Text = row.LowPower
Grid1.Cell(i, 12).Text = row.ActiveIndicator Grid1.Cell(i, 13).Text = row.ActiveIndicator
Grid1.Cell(i, 13).Text = row.OfflineDisplay Grid1.Cell(i, 14).Text = row.OfflineDisplay
Grid1.Cell(i, 14).Text = row.LowPowerDisplay Grid1.Cell(i, 15).Text = row.LowPowerDisplay
Grid1.Cell(i, 15).Text = row.Beep Grid1.Cell(i, 16).Text = row.Beep
Grid1.Cell(i, 16).Text = row.Abnormal Grid1.Cell(i, 17).Text = row.Abnormal
Grid1.Cell(i, 17).Text = row.Sort Grid1.Cell(i, 18).Text = row.Sort
Grid1.Cell(i, 18).Text = row.TCLDeviceName Grid1.Cell(i, 19).Text = row.TCLDeviceName
Grid1.Cell(i, 19).Text = row.MultipleGroupID Grid1.Cell(i, 20).Text = row.MultipleGroupID
Grid1.Cell(i, 20).Text = row.MultipleTCLName Grid1.Cell(i, 21).Text = row.MultipleTCLName
Else Else
Console.WriteLine($"{i}——{row.Name}——{Name}") Console.WriteLine($"{i}——{row.Name}——{Name}")
Grid1.Cell(i, 5).Text = row.ModalAddress Grid1.Cell(i, 6).Text = row.ModalAddress
Grid1.Cell(i, 6).Text = row.Name Grid1.Cell(i, 7).Text = row.Name
Grid1.Cell(i, 7).ForeColor = Color.Red Grid1.Cell(i, 8).ForeColor = Color.Red
Grid1.Cell(i, 3).ForeColor = Color.Red Grid1.Cell(i, 4).ForeColor = Color.Red
End If End If
Exit For Exit For
End If End If
@@ -526,6 +530,22 @@ Public Class SetLoopInformation
Private Sub Grid1_CellChange(Sender As Object, e As FlexCell.Grid.CellChangeEventArgs) Handles Grid1.CellChange Private Sub Grid1_CellChange(Sender As Object, e As FlexCell.Grid.CellChangeEventArgs) Handles Grid1.CellChange
If e.Row = 0 OrElse e.Col = 0 Then Return If e.Row = 0 OrElse e.Col = 0 Then Return
Dim Str As String = Grid1.Cell(e.Row, e.Col).Text
If e.Col = 2 Then
If Str.Equals("True") OrElse Str.Equals("1") Then
Grid1.Cell(e.Row, 1).Text = True
End If
End If
If e.Col = 1 Then
If Str.Equals("True") OrElse Str.Equals("1") Then
Else
Grid1.Cell(e.Row, 2).Text = False
End If
End If
If String.IsNullOrEmpty(Grid1.Cell(e.Row, e.Col).Tag) Then If String.IsNullOrEmpty(Grid1.Cell(e.Row, e.Col).Tag) Then
Return Return
Else Else
@@ -556,42 +576,46 @@ Public Class SetLoopInformation
ToolStripButton6.Enabled = False ToolStripButton6.Enabled = False
Dim mSaveRoomTypeModal As SaveRoomTypeModal Dim mSaveRoomTypeModal As SaveRoomTypeModal
Dim mSaveRoomTypeModalList As New List(Of SaveRoomTypeModal) Dim mSaveRoomTypeModalList As New List(Of SaveRoomTypeModal)
Dim str As String
For i = 1 To Grid1.Rows - 1 For i = 1 To Grid1.Rows - 1
If String.IsNullOrEmpty(Grid1.Cell(i, 3).Text) Then Continue For If String.IsNullOrEmpty(Grid1.Cell(i, 4).Text) Then Continue For
str = Grid1.Cell(i, 1).Text
mSaveRoomTypeModal = New SaveRoomTypeModal
mSaveRoomTypeModal.id = 0
mSaveRoomTypeModal.roomTypeID = G_roomtypeid
mSaveRoomTypeModal.modalAddress = Grid1.Cell(i, 3).Text
mSaveRoomTypeModal.name = Grid1.Cell(i, 4).Text
mSaveRoomTypeModal.englishName = Grid1.Cell(i, 7).Text
mSaveRoomTypeModal.twName = Grid1.Cell(i, 8).Text
mSaveRoomTypeModal.aliasName = Grid1.Cell(i, 9).Text
mSaveRoomTypeModal.power = CInt(Grid1.Cell(i, 10).Text)
mSaveRoomTypeModal.LowPower = CInt(Grid1.Cell(i, 11).Text)
mSaveRoomTypeModal.ActiveIndicator = CBool(Grid1.Cell(i, 12).Text)
mSaveRoomTypeModal.OfflineDisplay = CBool(Grid1.Cell(i, 13).Text)
mSaveRoomTypeModal.LowPowerDisplay = CBool(Grid1.Cell(i, 14).Text)
mSaveRoomTypeModal.Beep = CBool(Grid1.Cell(i, 15).Text)
mSaveRoomTypeModal.Abnormal = CBool(Grid1.Cell(i, 16).Text)
mSaveRoomTypeModal.sort = CInt(Grid1.Cell(i, 17).Text)
mSaveRoomTypeModal.TCLDeviceName = Grid1.Cell(i, 18).Text
mSaveRoomTypeModal.MultipleGroupID = CInt(Grid1.Cell(i, 19).Text)
mSaveRoomTypeModal.MultipleTCLName = Grid1.Cell(i, 20).Text
mSaveRoomTypeModal.color = GetColorFromString(mSaveRoomTypeModal.modalAddress)
Dim str As String = Grid1.Cell(i, 1).Text
Console.WriteLine(str)
If str.Equals("True") OrElse str.Equals("1") Then If str.Equals("True") OrElse str.Equals("1") Then
mSaveRoomTypeModal.IsUploadBaoJing = True mSaveRoomTypeModal = New SaveRoomTypeModal
Else mSaveRoomTypeModal.id = 0
mSaveRoomTypeModal.IsUploadBaoJing = False mSaveRoomTypeModal.roomTypeID = G_roomtypeid
mSaveRoomTypeModal.modalAddress = Grid1.Cell(i, 4).Text
mSaveRoomTypeModal.name = Grid1.Cell(i, 5).Text
mSaveRoomTypeModal.englishName = Grid1.Cell(i, 8).Text
mSaveRoomTypeModal.twName = Grid1.Cell(i, 9).Text
mSaveRoomTypeModal.aliasName = Grid1.Cell(i, 10).Text
mSaveRoomTypeModal.power = CInt(Grid1.Cell(i, 11).Text)
mSaveRoomTypeModal.LowPower = CInt(Grid1.Cell(i, 12).Text)
mSaveRoomTypeModal.ActiveIndicator = CBool(Grid1.Cell(i, 13).Text)
mSaveRoomTypeModal.OfflineDisplay = CBool(Grid1.Cell(i, 14).Text)
mSaveRoomTypeModal.LowPowerDisplay = CBool(Grid1.Cell(i, 15).Text)
mSaveRoomTypeModal.Beep = CBool(Grid1.Cell(i, 16).Text)
mSaveRoomTypeModal.Abnormal = CBool(Grid1.Cell(i, 17).Text)
mSaveRoomTypeModal.sort = CInt(Grid1.Cell(i, 18).Text)
mSaveRoomTypeModal.TCLDeviceName = Grid1.Cell(i, 19).Text
mSaveRoomTypeModal.MultipleGroupID = CInt(Grid1.Cell(i, 20).Text)
mSaveRoomTypeModal.MultipleTCLName = Grid1.Cell(i, 21).Text
mSaveRoomTypeModal.color = GetColorFromString(mSaveRoomTypeModal.modalAddress)
Str = Grid1.Cell(i, 2).Text
Console.WriteLine(str)
If str.Equals("True") OrElse str.Equals("1") Then
mSaveRoomTypeModal.IsUploadBaoJing = True
Else
mSaveRoomTypeModal.IsUploadBaoJing = False
End If
mSaveRoomTypeModal.outlet = ""
mSaveRoomTypeModal.type = GetLoopType1(mSaveRoomTypeModal.modalAddress)
mSaveRoomTypeModal.color = ""
mSaveRoomTypeModalList.Add(mSaveRoomTypeModal)
End If End If
mSaveRoomTypeModal.outlet = ""
mSaveRoomTypeModal.type = GetLoopType1(mSaveRoomTypeModal.modalAddress)
mSaveRoomTypeModal.color = ""
mSaveRoomTypeModalList.Add(mSaveRoomTypeModal)
Next Next
@@ -730,7 +754,7 @@ Public Class SetLoopInformation
'设置按钮文本颜色为 RoyalRed '设置按钮文本颜色为 RoyalRed
ToolStripButton2.ForeColor = Color.Red ToolStripButton2.ForeColor = Color.Red
'将所有复选框选中 '将所有复选框选中
For i As Integer = 0 To Grid1.Rows - 1 For i As Integer = 1 To Grid1.Rows - 1
Grid1.Cell(i, 1).Text = "True" Grid1.Cell(i, 1).Text = "True"
Next Next
Else Else
@@ -741,7 +765,7 @@ Public Class SetLoopInformation
'将所有复选框取消选中 '将所有复选框取消选中
For i As Integer = 0 To Grid1.Rows - 1 For i As Integer = 1 To Grid1.Rows - 1
Grid1.Cell(i, 1).Text = "False" Grid1.Cell(i, 1).Text = "False"
Next Next
End If End If