Imports System.Text Imports BLV_Studio.GridModel Imports BLV_Studio.GridModel.DeviceEventModel Imports FlexCell Public Class MoveUpCommand Inherits GridCommand Private _model As DeviceEventModel Private _selectFirstRow As Integer Private _selectLastRow As Integer Private _selectFirstCol As Integer Private _selectLastCol As Integer Private _grd As FlexCell.Grid Sub New(model As DeviceEventModel) _model = model _grd = model.Grid _selectFirstRow = _grd.Selection.FirstRow _selectLastRow = _grd.Selection.LastRow _selectFirstCol = _grd.Selection.FirstCol _selectLastCol = _grd.Selection.LastCol End Sub Public Overrides Sub Redo() Dim startRow As Integer = _selectFirstRow Dim selectCount As Integer = _selectLastRow - _selectFirstRow + 1 Dim moveDownRow As Integer '下移动前起始位置 Dim moveDownCount As Integer '下移动总量 Dim moveUpRow As Integer '上移动前起始位置 Dim moveUpCount As Integer '上移动总量 Dim nodeCount As Integer Dim node As RowNode = _model.FindRowNode(startRow) Select Case node.RowType Case RowNode.RowTypeEnum.ContextualModel Case RowNode.RowTypeEnum.DeviceEventActions Case RowNode.RowTypeEnum.DeviceEventAction Case Else Throw New Exception($"当前行[{node.RowListIndex}]不允许移动，移动已终止") End Select moveUpRow = node.RowListIndex Dim preNode As RowNode = node.PrevNode If preNode Is Nothing Then Return '初始节点不允许上移 moveDownRow = preNode.RowListIndex '下移动前起始位置 moveDownCount = preNode.AllChildCount + 1 '下移动总量 Dim nextNode As RowNode = node While nextNode IsNot Nothing AndAlso moveUpCount < selectCount If nextNode.RowType <> node.RowType Then Exit While '跨类型 moveUpCount += nextNode.AllChildCount + 1 nodeCount += 1 nextNode = nextNode.NextNode End While '更新内存 While nodeCount > 0 preNode.MoveDown() nodeCount -= 1 End While '更新表格 _model.UpdateGrid(moveDownRow, moveDownCount, moveUpRow, moveUpCount) _selectFirstRow = _selectFirstRow - moveDownCount _selectLastRow = _selectFirstRow + selectCount - 1 _grd.Range(_selectFirstRow, _selectFirstCol, _selectLastRow, _selectLastCol).SelectCells() _model.UpdateAllResourceList() '暴力更新资源管理器内容，有时间再逐条更新 Momo 0422 End Sub Public Overrides Sub Undo() Dim startRow As Integer = _selectFirstRow Dim selectCount As Integer = _selectLastRow - _selectFirstRow + 1 Dim moveDownRow As Integer '下移动前起始位置 Dim moveDownCount As Integer '下移动总量 Dim moveUpRow As Integer '上移动前起始位置 Dim moveUpCount As Integer '上移动总量 Dim nodeCount As Integer Dim node As RowNode = _model.FindRowNode(startRow) Select Case node.RowType Case RowNode.RowTypeEnum.ContextualModel Case RowNode.RowTypeEnum.DeviceEventActions Case RowNode.RowTypeEnum.DeviceEventAction Case Else Throw New Exception($"当前行[{node.RowListIndex}]不允许移动，移动已终止") End Select moveDownRow = node.RowListIndex Dim nextNode As RowNode = node While nextNode IsNot Nothing AndAlso moveDownCount < selectCount If nextNode.RowType <> node.RowType Then Exit While '跨类型 moveDownCount += nextNode.AllChildCount + 1 nodeCount += 1 nextNode = nextNode.NextNode End While If nextNode Is Nothing Then Return moveUpRow = nextNode.RowListIndex moveUpCount = nextNode.AllChildCount + 1 '更新内存 While nodeCount > 0 nextNode.MoveUp() nodeCount -= 1 End While '更新表格 _model.UpdateGrid(moveDownRow, moveDownCount, moveUpRow, moveUpCount) _selectFirstRow = _selectFirstRow + moveUpCount _selectLastRow = _selectFirstRow + selectCount - 1 _grd.Range(_selectFirstRow, _selectFirstCol, _selectLastRow, _selectLastCol).SelectCells() _model.UpdateAllResourceList() '暴力更新资源管理器内容，有时间再逐条更新 Momo 0422 End Sub End Class Public Class MoveDownCommand Inherits GridCommand Private _model As DeviceEventModel Private _selectFirstRow As Integer Private _selectLastRow As Integer Private _selectFirstCol As Integer Private _selectLastCol As Integer Private _grd As FlexCell.Grid Sub New(model As DeviceEventModel) _model = model _grd = model.Grid _selectFirstRow = _grd.Selection.FirstRow _selectLastRow = _grd.Selection.LastRow _selectFirstCol = _grd.Selection.FirstCol _selectLastCol = _grd.Selection.LastCol End Sub Public Overrides Sub Undo() Dim startRow As Integer = _selectFirstRow Dim selectCount As Integer = _selectLastRow - _selectFirstRow + 1 Dim moveDownRow As Integer '下移动前起始位置 Dim moveDownCount As Integer '下移动总量 Dim moveUpRow As Integer '上移动前起始位置 Dim moveUpCount As Integer '上移动总量 Dim nodeCount As Integer Dim node As RowNode = _model.FindRowNode(startRow) Select Case node.RowType Case RowNode.RowTypeEnum.ContextualModel Case RowNode.RowTypeEnum.DeviceEventActions Case RowNode.RowTypeEnum.DeviceEventAction Case Else Throw New Exception($"当前行[{node.RowListIndex}]不允许移动，移动已终止") End Select moveUpRow = node.RowListIndex Dim preNode As RowNode = node.PrevNode If preNode Is Nothing Then Return '初始节点不允许上移 moveDownRow = preNode.RowListIndex '下移动前起始位置 moveDownCount = preNode.AllChildCount + 1 '下移动总量 Dim nextNode As RowNode = node While nextNode IsNot Nothing AndAlso moveUpCount < selectCount If nextNode.RowType <> node.RowType Then Exit While '跨类型 moveUpCount += nextNode.AllChildCount + 1 nodeCount += 1 nextNode = nextNode.NextNode End While '更新内存 While nodeCount > 0 preNode.MoveDown() nodeCount -= 1 End While '更新表格 _model.UpdateGrid(moveDownRow, moveDownCount, moveUpRow, moveUpCount) _selectFirstRow = _selectFirstRow - moveDownCount _selectLastRow = _selectFirstRow + selectCount - 1 _grd.Range(_selectFirstRow, _selectFirstCol, _selectLastRow, _selectLastCol).SelectCells() _model.UpdateAllResourceList() '暴力更新资源管理器内容，有时间再逐条更新 Momo 0422 End Sub Public Overrides Sub Redo() Dim startRow As Integer = _selectFirstRow Dim selectCount As Integer = _selectLastRow - _selectFirstRow + 1 Dim moveDownRow As Integer '下移动前起始位置 Dim moveDownCount As Integer '下移动总量 Dim moveUpRow As Integer '上移动前起始位置 Dim moveUpCount As Integer '上移动总量 Dim nodeCount As Integer Dim node As RowNode = _model.FindRowNode(startRow) Select Case node.RowType Case RowNode.RowTypeEnum.ContextualModel Case RowNode.RowTypeEnum.DeviceEventActions Case RowNode.RowTypeEnum.DeviceEventAction Case Else Throw New Exception($"当前行[{node.RowListIndex}]不允许移动，移动已终止") End Select moveDownRow = node.RowListIndex Dim nextNode As RowNode = node While nextNode IsNot Nothing AndAlso moveDownCount < selectCount If nextNode.RowType <> node.RowType Then Exit While '跨类型 moveDownCount += nextNode.AllChildCount + 1 nodeCount += 1 nextNode = nextNode.NextNode End While If nextNode Is Nothing Then Return moveUpRow = nextNode.RowListIndex moveUpCount = nextNode.AllChildCount + 1 '更新内存 While nodeCount > 0 nextNode.MoveUp() nodeCount -= 1 End While '更新表格 _model.UpdateGrid(moveDownRow, moveDownCount, moveUpRow, moveUpCount) _selectFirstRow = _selectFirstRow + moveUpCount _selectLastRow = _selectFirstRow + selectCount - 1 _grd.Range(_selectFirstRow, _selectFirstCol, _selectLastRow, _selectLastCol).SelectCells() _model.UpdateAllResourceList() '暴力更新资源管理器内容，有时间再逐条更新 Momo 0422 End Sub End Class Public Class AddNodeRowsCommand Inherits GridCommand Private _model As DeviceEventModel Private _selectFirstRow As Integer Private _selectLastRow As Integer Private _selectFirstCol As Integer Private _selectLastCol As Integer Private _grd As FlexCell.Grid Private _nodes As List(Of RowNode) Sub New(model As DeviceEventModel， nodes As List(Of RowNode)) _model = model _grd = model.Grid _selectFirstRow = _grd.Selection.FirstRow _selectLastRow = _grd.Selection.LastRow _selectFirstCol = _grd.Selection.FirstCol _selectLastCol = _grd.Selection.LastCol _nodes = nodes End Sub Public Overrides Sub Undo() _model.LockGridAutoRedraw() For i = 0 To _nodes.Count - 1 _model.RemoveNodeRow(_nodes(i)) Next _model.UpdateAllResourceList() '暴力更新资源管理器内容，有时间再逐条更新 Momo 0422 _model.UnLockGridAutoRedraw() End Sub Public Overrides Sub Redo() Dim node As RowNode = _model.FindRowNode(_selectFirstRow) _model.LockGridAutoRedraw() _model.SkipCellChange = True For i = 0 To _nodes.Count - 1 '添加内存行 node.AddNode(_nodes(i)) '添加数据行 _model.AddNodeRow(_nodes(i), True) Next If node.Count > 0 Then node.Expand() _model.UpdateAllResourceList() '暴力更新资源管理器内容，有时间再逐条更新 Momo 0422 _model.SkipCellChange = False _model.UnLockGridAutoRedraw() End Sub End Class Public Class DeleteRowsCommand Inherits GridCommand Private _model As DeviceEventModel Private _selectFirstRow As Integer Private _selectLastRow As Integer Private _selectFirstCol As Integer Private _selectLastCol As Integer Private _grd As FlexCell.Grid Private _nodes As List(Of RowNode) Sub New(model As DeviceEventModel) _model = model _grd = model.Grid _selectFirstRow = _grd.Selection.FirstRow _selectLastRow = _grd.Selection.LastRow _selectFirstCol = _grd.Selection.FirstCol _selectLastCol = _grd.Selection.LastCol _nodes = New List(Of RowNode) End Sub Public Overrides Sub Undo() _model.LockGridAutoRedraw() _model.SkipCellChange = True Dim pNode, node As RowNode For i As Integer = _nodes.Count - 1 To 0 Step -1 node = _nodes(i) pNode = node.ParentNode If pNode.Count <= node.Index Then pNode.AddNode(node) Else pNode.InsertNode(node.Index, node) End If _model.AddUsedTypes(node) _model.AddNodeRow(node, True) _model.UpdateActionCnt(node) Next _model.UpdateAllResourceList() '暴力更新资源管理器内容，有时间再逐条更新 Momo 0422 _model.SkipCellChange = False _model.UnLockGridAutoRedraw() _nodes.Clear() End Sub Public Overrides Sub Redo() '检测选择单元格的位置,是否为可以插入节点的位置 Dim startRow As Integer = _selectFirstRow Dim count As Integer = _selectLastRow - _selectFirstRow + 1 Dim node As RowNode _model.LockGridAutoRedraw() _model.SkipCellChange = True For i = 0 To count - 1 node = _model.FindRowNode(startRow) If node Is Nothing Then _model.UnLockGridAutoRedraw() Throw New Exception($"未获取到行[{startRow}]的节点信息") End If Select Case node.RowType Case RowNode.RowTypeEnum.ExternalModel If MsgBox("请确认是否要外设设备？", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "正在删除设备") = MsgBoxResult.No Then Exit Select _model.RemoveNodeRow(node) _nodes.Add(node) i += node.AllChildCount Case RowNode.RowTypeEnum.ContextualModel If MsgBox("请确认是否要删除场景？", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "正在删除场景") = MsgBoxResult.No Then Exit Select _nodes.Add(node) _model.RemoveNodeRow(node) i += node.AllChildCount Case RowNode.RowTypeEnum.DeviceEventActions If MsgBox("请确认是否要动作组？", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "正在删除动作组") = MsgBoxResult.No Then Exit Select _nodes.Add(node) _model.RemoveNodeRow(node) i += node.AllChildCount Case RowNode.RowTypeEnum.DeviceEventConditionItem If MsgBox("请确认是否要条件？", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "正在删除条件") = MsgBoxResult.No Then Exit Select _nodes.Add(node) _model.RemoveNodeRow(node) i += node.AllChildCount Case RowNode.RowTypeEnum.DeviceEventAction If MsgBox("请确认是否要动作？", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "正在删除动作") = MsgBoxResult.No Then Exit Select _nodes.Add(node) _model.RemoveNodeRow(node) i += node.AllChildCount Case Else _model.UnLockGridAutoRedraw() Throw New Exception($"当前行[{node.RowListIndex}]不允许被移除，移除已终止") End Select _model.RemoveUsedTypes(node) _model.UpdateActionCnt(node) Next _model.UpdateAllResourceList() '暴力更新资源管理器内容，有时间再逐条更新 Momo 0422 _model.SkipCellChange = False _model.UnLockGridAutoRedraw() End Sub End Class Public Class InsertRowsCommand Inherits GridCommand Private _model As DeviceEventModel Private _selectFirstRow As Integer Private _selectLastRow As Integer Private _selectFirstCol As Integer Private _selectLastCol As Integer Private _grd As FlexCell.Grid Private _nodes As List(Of RowNode) Sub New(model As DeviceEventModel) _model = model _grd = model.Grid _selectFirstRow = _grd.Selection.FirstRow _selectLastRow = _grd.Selection.LastRow _selectFirstCol = _grd.Selection.FirstCol _selectLastCol = _grd.Selection.LastCol _nodes = New List(Of RowNode) '准备工作 End Sub Public Overrides Sub Undo() _model.LockGridAutoRedraw() For Each node As RowNode In _nodes _model.RemoveNodeRow(node) _model.UpdateActionCnt(node) Next _model.UpdateAllResourceList() '暴力更新资源管理器内容，有时间再逐条更新 Momo 0422 _model.UnLockGridAutoRedraw() _nodes.Clear() End Sub Public Overrides Sub Redo() '检测选择单元格的位置,是否为可以插入节点的位置 Dim node As RowNode = _model.FindRowNode(_selectFirstRow) If node Is Nothing Then Throw New Exception($"未获取到节点信息") '仅提供插入动作 Dim count As Integer = _selectLastRow - _selectFirstRow + 1 ''Momo 2022-06-30 插入时根据选中行有多少行可见来决定插入多少行 'Dim count As Integer = 0 'For i = _selectFirstRow To _selectLastRow Step 1 ' Dim tmpNode As RowNode = _model.FindRowNode(i) ' If node.Visible = True Then count += 1 'Next _model.LockGridAutoRedraw() Dim pNode As RowNode Select Case node.RowType Case RowNode.RowTypeEnum.DeviceEventActions pNode = node Case RowNode.RowTypeEnum.DeviceEventAction pNode = node.ParentNode Case Else _model.UnLockGridAutoRedraw() Throw New Exception($"当前选择节点类型[{node.RowType}]不允许当前操作") End Select Dim cNode As RowNode For i = 0 To count - 1 '添加内存行 cNode = _model.CreateRowNode(RowNode.RowTypeEnum.DeviceEventAction) pNode.AddNode(cNode) '添加数据行 _model.AddNodeRow(cNode, True) _nodes.Add(cNode) '_grd.Row(cNode.RowListIndex).Visible = True 'Momo 0416 在父节点收缩的情况下插入行，要把新插入的行显示出来 cNode.ParentNode.Expand() _model.UpdateActionCnt(cNode) Next _model.UpdateAllResourceList() '暴力更新资源管理器内容，有时间再逐条更新 Momo 0422 _model.UnLockGridAutoRedraw() End Sub End Class Public Class CutRowsCommand Inherits GridCommand Private _model As DeviceEventModel Private _selectFirstRow As Integer Private _selectLastRow As Integer Private _selectFirstCol As Integer Private _selectLastCol As Integer Private _grd As FlexCell.Grid Private _beforeText As String Private _afterText As String Private _cmdGroup As List(Of ICommand) Sub New(model As DeviceEventModel) _model = model _grd = model.Grid _selectFirstRow = _grd.Selection.FirstRow _selectLastRow = _grd.Selection.LastRow _selectFirstCol = _grd.Selection.FirstCol _selectLastCol = _grd.Selection.LastCol Dim sb As New StringBuilder _cmdGroup = New List(Of ICommand) For i = _selectFirstRow To _selectLastRow sb.Append(_grd.Cell(i, _selectFirstCol).Text) _cmdGroup.Add(New TextChangedCommand(_model, i, _selectFirstCol, "")) For j = _selectFirstCol + 1 To _selectLastCol sb.Append(vbTab & _grd.Cell(i, j).Text) _cmdGroup.Add(New TextChangedCommand(_model, i, j, "")) Next sb.Append(vbCrLf) Next Clipboard.SetText(sb.ToString) ''记录选中单元格的内容 'Dim sb As New StringBuilder 'For i = _selectFirstRow To _selectLastRow ' sb.Append(_grd.Cell(i, _selectFirstCol).Text) ' For j = _selectFirstCol + 1 To _selectLastCol ' sb.Append(vbTab & _grd.Cell(i, j).Text) ' Next ' sb.Append(vbCrLf) 'Next '_beforeText = sb.ToString ''将选择区域的内容拷贝至剪切板 'Clipboard.SetText(_beforeText) ''记录剪切后单元格的内容 'Dim sb2 As New StringBuilder 'For i = _selectFirstRow To _selectLastRow ' sb2.Append("") ' For j = _selectFirstCol + 1 To _selectLastCol ' sb2.Append(vbTab & "") ' Next ' sb2.Append(vbCrLf) 'Next '_afterText = sb2.ToString End Sub Public Overrides Sub Undo() _model.LockGridAutoRedraw() _model.SkipCellChange = True For Each cmd As ICommand In _cmdGroup cmd.Undo() Next _model.SkipCellChange = False _model.UnLockGridAutoRedraw() Return '还原选择区域内容 PasteData(_beforeText, _selectFirstRow, _selectFirstCol) End Sub Public Overrides Sub Redo() _model.LockGridAutoRedraw() _model.SkipCellChange = True For Each cmd As ICommand In _cmdGroup cmd.Redo() Next _model.SkipCellChange = False _model.UnLockGridAutoRedraw() Return '清空选择区域的内容 PasteData(_afterText, _selectFirstRow, _selectFirstCol) End Sub Private Sub PasteData(str As String, startRow As Integer, startCol As Integer) Dim result As List(Of List(Of String)) result = DealPasteData(str) If result.Count = 0 Then Return If startRow + result.Count - 1 > _grd.Rows Then Throw New Exception("数据越界") _model.LockGridAutoRedraw() ' _model.SkipCellChange = True For i = 0 To result.Count - 2 For j = 0 To result(i).Count - 1 _grd.Cell(startRow + i, startCol + j).Text = result(i)(j) 'todo内容检测 Next Next ' _model.SkipCellChange = False _model.UnLockGridAutoRedraw() End Sub Private Function DealPasteData(str As String) As List(Of List(Of String)) Dim result As New List(Of List(Of String)) Dim tmpStrings() As String = str.Split(New String() {vbCrLf}, StringSplitOptions.None) For Each tmpStr As String In tmpStrings Dim lst As New List(Of String) lst.AddRange(tmpStr.Split(vbTab)) result.Add(lst) Next Return result End Function End Class Public Class PasteRowsCommand Inherits GridCommand Private _model As DeviceEventModel Private _selectFirstRow As Integer Private _selectLastRow As Integer Private _selectFirstCol As Integer Private _selectLastCol As Integer Private _grd As FlexCell.Grid Private _beforeText As String Private _afterText As String Private _cmdGroup As List(Of ICommand) Sub New(model As DeviceEventModel) _model = model _grd = model.Grid _selectFirstRow = _grd.Selection.FirstRow _selectLastRow = _grd.Selection.LastRow _selectFirstCol = _grd.Selection.FirstCol _selectLastCol = _grd.Selection.LastCol '获取剪切板的内容 Dim str As String = Clipboard.GetText '记录粘贴后的内容 _afterText = str Dim result As List(Of List(Of String)) = DealPasteData(_afterText) _cmdGroup = New List(Of ICommand) '记录粘贴前的内容 Dim sb As New StringBuilder For i = 0 To result.Count - 1 sb.Append(_grd.Cell(_selectFirstRow + i, _selectFirstCol).Text) _cmdGroup.Add(New TextChangedCommand(_model, _selectFirstRow + i, _selectFirstCol, result(i)(0))) For j = 1 To result(i).Count - 1 sb.Append(vbTab & _grd.Cell(_selectFirstRow + i, _selectFirstCol + j).Text) _cmdGroup.Add(New TextChangedCommand(_model, _selectFirstRow + i, _selectFirstCol + j, result(i)(j))) Next sb.Append(vbCrLf) Next _beforeText = sb.ToString End Sub Public Overrides Sub Undo() _model.LockGridAutoRedraw() _model.SkipCellChange = True For Each cmd As ICommand In _cmdGroup cmd.Undo() Next _model.SkipCellChange = False _model.UnLockGridAutoRedraw() Return '移除 PasteData(_beforeText, _selectFirstRow, _selectFirstCol) End Sub Public Overrides Sub Redo() _model.LockGridAutoRedraw() _model.SkipCellChange = True For Each cmd As ICommand In _cmdGroup cmd.Redo() Next _model.SkipCellChange = False _model.UnLockGridAutoRedraw() Return '粘贴 PasteData(_afterText, _selectFirstRow, _selectFirstCol) End Sub Private Sub PasteData(str As String, startRow As Integer, startCol As Integer) Dim result As List(Of List(Of String)) result = DealPasteData(str) If result.Count = 0 Then Return If startRow + result.Count - 1 > _grd.Rows Then Throw New Exception("数据越界") _model.LockGridAutoRedraw() _model.SkipCellChange = True For i = 0 To result.Count - 2 For j = 0 To result(i).Count - 1 _grd.Cell(startRow + i, startCol + j).Text = result(i)(j) 'todo内容检测 Next Next _model.UpdateAllResourceList() '暴力更新资源管理器内容，有时间再逐条更新 Momo 0422 _model.SkipCellChange = True _model.UnLockGridAutoRedraw() End Sub Private Function DealPasteData(str As String) As List(Of List(Of String)) Dim result As New List(Of List(Of String)) Dim tmpStrings() As String = str.Split(New String() {vbCrLf}, StringSplitOptions.None) For Each tmpStr As String In tmpStrings Dim lst As New List(Of String) lst.AddRange(tmpStr.Split(vbTab)) result.Add(lst) Next If result.Count > 0 Then result.RemoveAt(result.Count - 1) Return result End Function End Class Public Class TextChangedCommand Inherits GridCommand Private _model As DeviceEventModel Private _row As Integer Private _col As Integer Private _afterText As String Private _beforText As String Private _grd As FlexCell.Grid Private _nodes As List(Of RowNode) Sub New(model As DeviceEventModel, row As Integer, col As Integer, text As String) _model = model _grd = model.Grid _row = row _col = col _afterText = text _beforText = FindNodeTextByCol(_row, _col) _nodes = New List(Of RowNode) If col <> ColNames.DeviceType Then Return Dim node As RowNode = _model.FindRowNode(_row) If node.RowType = RowNode.RowTypeEnum.DeviceObject Then Dim tmpNode As New RowNode With {.RowType = node.RowType, .DeviceType = text, .DeviceAlias = node.DeviceAlias, .HasAlias = node.HasAlias} _model.FillDeviceObjectNode(tmpNode, False) For i = 0 To tmpNode.Count - 1 _nodes.Add(tmpNode.Nodes(i)) Next End If End Sub Public Function FindNodeTextByCol(row As Integer, col As Integer) As String Dim result As String = "" Dim node As RowNode = _model.FindRowNode(row) If node Is Nothing Then Return result Select Case col Case ColNames.Action result = node.Action Case ColNames.DeviceAlias result = node.DeviceAlias Case ColNames.Node result = node.Text Case ColNames.DeviceType result = node.DeviceType Case ColNames.DeviceName result = node.DeviceName Case ColNames.DeviceMothed result = node.DeviceMothed Case ColNames.DelayTime result = node.DelayTime Case ColNames.DelayUnit result = node.DelayUnit Case ColNames.ParamValue1, ColNames.ParamValue2, ColNames.ParamValue3, ColNames.ParamValue4, ColNames.ParamValue5, ColNames.ParamValue6 Dim index As Integer = (_col - ColNames.ParamValue1) \ 2 If index >= node.Params.Count Then Exit Select result = node.Params(index).Value Case Else result = "" End Select Return result End Function Public Overrides Sub Undo() _model.SkipCellChange = True '文本修改处理 Dim node As RowNode = _model.FindRowNode(_row) If node Is Nothing Then Return _model.LockGridAutoRedraw() _grd.Cell(_row, _col).Text = _beforText _grd.Cell(_row, _col).BackColor = Color.White '背景色复位为白色 Select Case _col Case ColNames.Action node.Action = _grd.Cell(_row, _col).BooleanValue '添加筛选 If node.Action = False Then Select Case node.RowType Case RowNode.RowTypeEnum.DeviceEvent, RowNode.RowTypeEnum.ContextualModel, RowNode.RowTypeEnum.DeviceGroup, RowNode.RowTypeEnum.DeviceObject, RowNode.RowTypeEnum.DeviceEventAction, RowNode.RowTypeEnum.DeviceEventActions '以上类型允许修改 Case Else '除上述类型则不允许修改 node.Action = True _grd.Cell(_row, _col).Text = "1" End Select End If _model.FillRowStyle(node) For i = 1 To node.AllChildCount _model.FillRowStyle(_model.FindRowNode(_row + i)) Next Case ColNames.DeviceAlias node.DeviceAlias = _beforText node.HasAlias = Not String.IsNullOrEmpty(node.DeviceAlias) Select Case node.RowType Case RowNode.RowTypeEnum.ContextualModel node.Text = $"场景：{node.DeviceAlias}" Case RowNode.RowTypeEnum.DeviceEventActions node.Text = $"动作组：{node.DeviceAlias}" Case RowNode.RowTypeEnum.DeviceEventConditionItem node.Text = $"条件：{node.DeviceAlias}" Case RowNode.RowTypeEnum.DeviceEventAction node.Text = $"动作：{node.DeviceAlias}" End Select _grd.Cell(_row, ColNames.Node).Text = node.Text '更新action行对别名的调用 Dim tmpCnt As Integer = _model.UpdateDeviceAliceName(node, _afterText, _beforText) If tmpCnt > 0 Then Dim msgPrompt As String = "别名修改：" & vbCrLf & vbCrLf & " 位置：" & node.RowListIndex & " - " & node.Text & " - " & node.DeviceType & " - " & node.DeviceName & vbCrLf & " 修改前： " & _afterText & vbCrLf & " 修改后： " & _beforText & vbCrLf & vbCrLf & " 影响修改项：" & tmpCnt Dim msgTitle As String = "别名修改" MsgBox(msgPrompt, MsgBoxStyle.OkOnly + MsgBoxStyle.Information, msgTitle) End If _model.UpdateAllResourceList() '暴力更新资源管理器内容，有时间再逐条更新 Momo 0422 Case ColNames.DeviceType Dim devType As String = _beforText Select Case node.RowType Case RowNode.RowTypeEnum.ModelAttribute, '模型属性 RowNode.RowTypeEnum.DeviceAttribute, '设备属性 RowNode.RowTypeEnum.DeviceEventConditions, '条件 RowNode.RowTypeEnum.DeviceEventActionMode '动作执行方式 node.DeviceType = devType Dim tag As AttributeRowNodeTag = node.Tag tag.Value = node.DeviceType Case RowNode.RowTypeEnum.DeviceObject '设备对象 '设备类型更新 If String.Compare(devType, node.DeviceType, True) = 0 Then Exit Select '记录移除的节点 Dim nodes As New List(Of RowNode) For i = 0 To node.Count - 1 nodes.Add(node.Nodes(i)) Next '移除行 _model.RemoveNodeChildRow(node) node.DeviceType = devType _model.AddUsedTypes(node) '添加行 For i = 0 To _nodes.Count - 1 node.AddNode(_nodes(i)) '记录中的行 Next _model.AddNodeChildRow(node, True) _nodes.Clear() _nodes.AddRange(nodes.ToArray) Case RowNode.RowTypeEnum.DeviceEventAction, '动作 RowNode.RowTypeEnum.ModelAttribute_XiaoBaoCMD '小宝命令集 '设备类型变更 node.DeviceType = devType node.DeviceName = "" _grd.Cell(_row, ColNames.DeviceName).Text = "" node.DeviceMothed = "" _grd.Cell(_row, ColNames.DeviceMothed).Text = "" node.Params.Clear() For i = ColNames.ParamDesc1 To _grd.Cols - 1 _grd.Cell(_row, i).Text = "" Next _model.UpdateActionCnt(node) '更新动作数量显示（显示在DeviceName列） Case Else node.DeviceType = devType End Select _model.UpdateAllResourceList() '暴力更新资源管理器内容，有时间再逐条更新 Momo 0422 Case ColNames.DeviceName node.DeviceName = _beforText Select Case node.RowType Case RowNode.RowTypeEnum.DeviceEventAction, ' 23.模型外设事件执行动作 RowNode.RowTypeEnum.DeviceEventActions, ' 22.模型外设事件执行动作组 RowNode.RowTypeEnum.DeviceEvent ' 15.模型外设事件 _model.UpdateActionCnt(node) '更新动作数量显示（显示在DeviceName列） End Select _model.UpdateAllResourceList() '暴力更新资源管理器内容，有时间再逐条更新 Momo 0422 Case ColNames.DeviceMothed node.DeviceMothed = _beforText Select Case node.RowType Case RowNode.RowTypeEnum.DeviceEventAction '事件动作 '清空节点参数 node.Params.Clear() For i = ColNames.ParamDesc1 To _grd.Cols - 1 _grd.Cell(_row, i).Text = "" Next '更新参数提示 If String.IsNullOrEmpty(node.DeviceType) Then Exit Select If String.IsNullOrEmpty(node.DeviceMothed) Then Exit Select Dim cs As DeviceObjectType = _model.BasicClasses.FindDeviceClass(node.DeviceType) If cs Is Nothing Then Exit Select For Each method As DeviceChildNodeMethod In cs.Methods If method.Name <> node.DeviceMothed Then Continue For '填充参数值 For i As Integer = 0 To 5 If i < method.Params.Count Then Dim param As New AttributeRowNodeTag(method.Params(i).Name, method.Params(i).DataType, method.Params(i).DataRange, method.Params(i).DataRangeValue, method.Params(i).Desc, method.Params(i).DataDefault) node.Params.Add(param) _grd.Cell(_row, ColNames.ParamDesc1 + i * 2).Text = param.Name _grd.Cell(_row, ColNames.ParamDesc1 + i * 2).Locked = True If param.Type = AttributeRowNodeTag.DataTypes.List Then _grd.Cell(_row, ColNames.ParamValue1 + i * 2).CellType = CellTypeEnum.ComboBox _grd.ComboBox(0).Locked = True _grd.ComboBox(0).Sorted = True _grd.ComboBox(0).DropDownWidth = 124 ElseIf param.Type = AttributeRowNodeTag.DataTypes.Boolean Then _grd.Cell(_row, ColNames.ParamValue1 + i * 2).CellType = CellTypeEnum.CheckBox Else _grd.Cell(_row, ColNames.ParamValue1 + i * 2).CellType = CellTypeEnum.TextBox End If _grd.Cell(_row, ColNames.ParamValue1 + i * 2).Text = param.DefalutValue Else _grd.Cell(_row, ColNames.ParamValue1 + i * 2).CellType = CellTypeEnum.TextBox _grd.Cell(_row, ColNames.ParamValue1 + i * 2).Text = "" _grd.Cell(_row, ColNames.ParamDesc1 + i * 2).Text = "" End If Next Exit For Next End Select Case ColNames.DelayTime node.DelayTime = _beforText Case ColNames.DelayUnit node.DelayUnit = _beforText Case ColNames.ParamValue1, ColNames.ParamValue2, ColNames.ParamValue3, ColNames.ParamValue4, ColNames.ParamValue5, ColNames.ParamValue6 Dim index As Integer = (_col - ColNames.ParamValue1) \ 2 If index >= node.Params.Count Then Exit Select Dim value As String = _beforText If node.Params(index).IsRange(value) Then node.Params(index).Value = value Else _grd.Cell(_row, _col).Text = node.Params(index).Value MsgBox($"当前数值[{value}]，不在范围[{node.Params(index).RangeString}]中，设置失败") End If End Select Dim errCnt As Integer = 0 Dim warningCnt As Integer = 0 _model.StartGobleRuleCheck(errCnt, warningCnt) '规则检查’ _model.FillRowStyle(node) _model.UnLockGridAutoRedraw() _model.SkipCellChange = False End Sub Public Overrides Sub Redo() _model.SkipCellChange = True '文本修改处理 Dim node As RowNode = _model.FindRowNode(_row) If node Is Nothing Then Return _model.LockGridAutoRedraw() _grd.Cell(_row, _col).Text = _afterText _grd.Cell(_row, _col).BackColor = Color.White '背景色复位为白色 Select Case _col Case ColNames.Action node.Action = _grd.Cell(_row, _col).BooleanValue '添加筛选 If node.Action = False Then Select Case node.RowType Case RowNode.RowTypeEnum.DeviceEvent, RowNode.RowTypeEnum.ContextualModel, RowNode.RowTypeEnum.DeviceGroup, RowNode.RowTypeEnum.DeviceObject, RowNode.RowTypeEnum.DeviceEventAction, RowNode.RowTypeEnum.DeviceEventActions '以上类型允许修改 Case Else '除上述类型则不允许修改 node.Action = True _grd.Cell(_row, _col).Text = "1" End Select End If _model.FillRowStyle(node) For i = 1 To node.AllChildCount _model.FillRowStyle(_model.FindRowNode(_row + i)) Next Case ColNames.DeviceAlias node.DeviceAlias = _afterText node.HasAlias = Not String.IsNullOrEmpty(node.DeviceAlias) '更新action行对别名的调用 Dim tmpCnt As Integer = _model.UpdateDeviceAliceName(node, _beforText, _afterText) If tmpCnt > 0 Then Dim msgPrompt As String = "别名修改：" & vbCrLf & vbCrLf & " 位置：" & node.RowListIndex & " - " & node.Text & " - " & node.RowType & vbCrLf & " 修改前： " & _beforText & vbCrLf & " 修改后： " & _afterText & vbCrLf & vbCrLf & " 影响修改项：" & tmpCnt Dim msgTitle As String = "别名修改" MsgBox(msgPrompt, MsgBoxStyle.OkOnly + MsgBoxStyle.Information, msgTitle) End If _model.UpdateAllResourceList() '暴力更新资源管理器内容，有时间再逐条更新 Momo 0422 Select Case node.RowType Case RowNode.RowTypeEnum.ContextualModel node.Text = $"场景：{node.DeviceAlias}" Case RowNode.RowTypeEnum.DeviceEventActions node.Text = $"动作组：{node.DeviceAlias}" Case RowNode.RowTypeEnum.DeviceEventConditionItem node.Text = $"条件：{node.DeviceAlias}" Case RowNode.RowTypeEnum.DeviceEventAction node.Text = $"动作：{node.DeviceAlias}" Case Else End Select _grd.Cell(_row, ColNames.Node).Text = node.Text Case ColNames.DeviceType Dim devType As String = _afterText Select Case node.RowType Case RowNode.RowTypeEnum.ModelAttribute, '模型属性 RowNode.RowTypeEnum.DeviceAttribute, '设备属性 RowNode.RowTypeEnum.DeviceEventConditions, '条件 RowNode.RowTypeEnum.DeviceEventActionMode '动作执行方式 node.DeviceType = devType Dim tag As AttributeRowNodeTag = node.Tag tag.Value = node.DeviceType Case RowNode.RowTypeEnum.DeviceAttribute '设备属性 node.DeviceType = devType Case RowNode.RowTypeEnum.DeviceObject '设备对象 '设备类型更新 If String.Compare(devType, node.DeviceType, True) = 0 Then Exit Select '记录移除的节点 Dim nodes As New List(Of RowNode) For i = 0 To node.Count - 1 nodes.Add(node.Nodes(i)) Next '移除行 _model.RemoveNodeChildRow(node) node.DeviceType = devType _model.AddUsedTypes(node) '添加行 For i = 0 To _nodes.Count - 1 node.AddNode(_nodes(i)) '记录中的行 Next _model.AddNodeChildRow(node, True) _nodes.Clear() _nodes.AddRange(nodes.ToArray) Case RowNode.RowTypeEnum.DeviceEventAction, '动作 RowNode.RowTypeEnum.ModelAttribute_XiaoBaoCMD '小宝命令集 '设备类型变更 node.DeviceType = devType node.DeviceName = "" _grd.Cell(_row, ColNames.DeviceName).Text = "" node.DeviceMothed = "" _grd.Cell(_row, ColNames.DeviceMothed).Text = "" node.Params.Clear() For i = ColNames.ParamDesc1 To _grd.Cols - 1 _grd.Cell(_row, i).Text = "" Next _model.UpdateActionCnt(node) '更新动作数量显示（显示在DeviceName列） Case Else node.DeviceType = devType End Select _model.UpdateAllResourceList() '暴力更新资源管理器内容，有时间再逐条更新 Momo 0422 Case ColNames.DeviceName node.DeviceName = _afterText Select Case node.RowType Case RowNode.RowTypeEnum.DeviceEventAction, ' 23.模型外设事件执行动作 RowNode.RowTypeEnum.DeviceEventActions, ' 22.模型外设事件执行动作组 RowNode.RowTypeEnum.DeviceEvent ' 15.模型外设事件 _model.UpdateActionCnt(node) '更新动作数量显示（显示在DeviceName列） End Select _model.UpdateAllResourceList() '暴力更新资源管理器内容，有时间再逐条更新 Momo 0422 Case ColNames.DeviceMothed node.DeviceMothed = _afterText Select Case node.RowType Case RowNode.RowTypeEnum.DeviceEventAction '事件动作 '清空节点参数 node.Params.Clear() For i = ColNames.ParamDesc1 To _grd.Cols - 1 _grd.Cell(_row, i).Text = "" Next '更新参数提示 If String.IsNullOrEmpty(node.DeviceType) Then Exit Select If String.IsNullOrEmpty(node.DeviceMothed) Then Exit Select Dim cs As DeviceObjectType = _model.BasicClasses.FindDeviceClass(node.DeviceType) If cs Is Nothing Then Exit Select For Each method As DeviceChildNodeMethod In cs.Methods If method.Name <> node.DeviceMothed Then Continue For '填充参数值 For i As Integer = 0 To 5 If i < method.Params.Count Then Dim param As New AttributeRowNodeTag(method.Params(i).Name, method.Params(i).DataType, method.Params(i).DataRange, method.Params(i).DataRangeValue, method.Params(i).Desc, method.Params(i).DataDefault) node.Params.Add(param) _grd.Cell(_row, ColNames.ParamDesc1 + i * 2).Text = param.Name _grd.Cell(_row, ColNames.ParamDesc1 + i * 2).Locked = True If param.Type = AttributeRowNodeTag.DataTypes.List Then _grd.Cell(_row, ColNames.ParamValue1 + i * 2).CellType = CellTypeEnum.ComboBox _grd.ComboBox(0).Locked = True _grd.ComboBox(0).Sorted = True _grd.ComboBox(0).DropDownWidth = 124 ElseIf param.Type = AttributeRowNodeTag.DataTypes.Boolean Then _grd.Cell(_row, ColNames.ParamValue1 + i * 2).CellType = CellTypeEnum.CheckBox Else _grd.Cell(_row, ColNames.ParamValue1 + i * 2).CellType = CellTypeEnum.TextBox End If _grd.Cell(_row, ColNames.ParamValue1 + i * 2).Text = param.DefalutValue Else _grd.Cell(_row, ColNames.ParamValue1 + i * 2).CellType = CellTypeEnum.TextBox _grd.Cell(_row, ColNames.ParamValue1 + i * 2).Text = "" _grd.Cell(_row, ColNames.ParamDesc1 + i * 2).Text = "" End If Next Exit For Next End Select Case ColNames.DelayTime node.DelayTime = _afterText Case ColNames.DelayUnit node.DelayUnit = _afterText Case ColNames.ParamValue1, ColNames.ParamValue2, ColNames.ParamValue3, ColNames.ParamValue4, ColNames.ParamValue5, ColNames.ParamValue6 Dim index As Integer = (_col - ColNames.ParamValue1) \ 2 If index >= node.Params.Count Then Exit Select Dim value As String = _afterText If node.Params(index).IsRange(value) Then node.Params(index).Value = value Else _grd.Cell(_row, _col).Text = node.Params(index).Value MsgBox($"当前数值[{value}]，不在范围[{node.Params(index).RangeString}]中，设置失败") End If End Select Dim errCnt As Integer = 0 Dim warningCnt As Integer = 0 _model.StartGobleRuleCheck(errCnt, warningCnt) '规则检查 _model.FillRowStyle(node) _model.UnLockGridAutoRedraw() _model.SkipCellChange = False End Sub End Class