Imports Newtonsoft.Json Public Class PowerSupplyForm Implements FromInterface1 Private Dic_Devicemodel As Dictionary(Of String， DeviceModel) Private Sub PowerSupplyForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load InitIfGrid(UniqueDevice.Desc.DevDescription) InitPortTable(NoCardNode) End Sub Private UniqueDevice As DeviceModel Private NoCardNode As DeviceChildNodeClass Private ParseDevDic As Dictionary(Of String， Dictionary(Of String, Dictionary(Of String, List(Of (String, String))))) Public Sub ParseDeviceList(Devicemodel As Dictionary(Of String， DeviceModel）) Dic_Devicemodel = Devicemodel ParseDevDic = New Dictionary(Of String, Dictionary(Of String, Dictionary(Of String, List(Of (String, String))))) Dim typename As String For Each index In Dic_Devicemodel.Values For Each node In index.Nodes If node.Name.Equals("Virtual_Card") Then UniqueDevice = index NoCardNode = node Exit For End If If node.Interface.Equals("DI") Then typename = GetAnotherName(node.Name) typename = $"{node.Name}" If String.IsNullOrEmpty(typename) Then Continue For Else Dim addressdic As Dictionary(Of String, Dictionary(Of String, List(Of (String, String)))) If ParseDevDic.ContainsKey(typename) Then addressdic = ParseDevDic.Item(typename) Else addressdic = New Dictionary(Of String, Dictionary(Of String, List(Of (String, String)))) ParseDevDic.Add(typename, addressdic) End If Dim addr As String Dim loopdic As Dictionary(Of String, List(Of (String, String))) Dim loopli As List(Of (String, String)) If index.Desc.Name.Equals("BLV_C12") Then addr = 0 Else addr = FindAttributeValueUnderModel(index, "设备存在", "拨码地址") End If If addressdic.ContainsKey(addr) Then loopdic = addressdic.Item(addr) Else loopdic = New Dictionary(Of String, List(Of (String, String))) addressdic.Add(addr, loopdic) End If If loopdic.ContainsKey(node.DEV_TYPE_DATA) Then loopli = loopdic.Item(node.DEV_TYPE_DATA) Else loopli = New List(Of (String, String)) loopdic.Add(node.DEV_TYPE_DATA, loopli) End If For Each liindex In node.Nodes loopli.Add((liindex.LoopAddr, liindex.DefaultAliasName)) Next End If Else Continue For End If Next Next End Sub Public Shared Function GetAnotherName(str As String) As String Dim result As String = String.Empty If String.IsNullOrEmpty(str) Then Return result Else Select Case str Case "CLED_FRESHAIR" result = "CLED新风" Case "CLEDFLOORHEAT" result = "CLED地暖" Case "485FloorHeat" result = "地暖" Case "485FreshAir" result = "新风" Case "485MUSIC" result = "485音乐" Case "CURTAIN" result = "干接点窗帘" Case "INFRARED_FORWARD" result = "红外" Case "RS485_Curtain" result = "485窗帘" Case "RELAY" result = "继电器" Case "MUSIC" result = "音乐" Case "Dimming" result = "调光" Case "DO" result = "输出" Case "Temp" result = "空调" Case "PB_LINE_CONTROL" result = "主机恒压调光" Case "PB_STRIP_DEVICE" result = "PLC恒压调光" Case "PB_RELAY_DEVICE" result = "PLC继电器" 'Case "KEY" ' result = "普通按键" Case Else result = $"{str}" End Select End If Return result End Function Private Function FindAttributeValueUnderModel(pNode As DeviceModel, groupName As String, attributeName As String) As String For Each cnode In pNode.Config If cnode.Name.Equals(groupName) Then For Each ccnode In cnode.Attributes If ccnode.Name.Equals(attributeName) Then Return ccnode.Value End If Next End If Next End Function Private IfGridRowdic As Dictionary(Of String, List(Of String)) Public Sub InitIfGrid(jsonstr As String, Optional ifbn As Boolean = True) IfGrid.NewFile() IfGrid.ExtendLastCol = False IfGrid.Cols = 15 IfGrid.Rows = 1 IfGrid.Cell(0, 0).Text = "条件组" IfGrid.Cell(0, 1).Text = "条件序号" IfGrid.Cell(0, 2).Text = "有无人标记" IfGrid.Cell(0, 3).Text = "端口1" IfGrid.Cell(0, 4).Text = "端口2" IfGrid.Cell(0, 5).Text = "端口3" IfGrid.Cell(0, 6).Text = "端口4" IfGrid.Cell(0, 7).Text = "端口5" IfGrid.Cell(0, 8).Text = "端口6" IfGrid.Cell(0, 9).Text = "端口7" IfGrid.Cell(0, 10).Text = "端口8" IfGrid.Cell(0, 11).Text = "端口9" IfGrid.Cell(0, 12).Text = "端口10" IfGrid.Cell(0, 13).Text = "延时时间" IfGrid.Cell(0, 14).Text = "延时单位" IfGrid.Column(2).CellType = FlexCell.CellTypeEnum.ComboBox IfGrid.Column(3).CellType = FlexCell.CellTypeEnum.ComboBox IfGrid.Column(4).CellType = FlexCell.CellTypeEnum.ComboBox IfGrid.Column(5).CellType = FlexCell.CellTypeEnum.ComboBox IfGrid.Column(6).CellType = FlexCell.CellTypeEnum.ComboBox IfGrid.Column(7).CellType = FlexCell.CellTypeEnum.ComboBox IfGrid.Column(8).CellType = FlexCell.CellTypeEnum.ComboBox IfGrid.Column(9).CellType = FlexCell.CellTypeEnum.ComboBox IfGrid.Column(10).CellType = FlexCell.CellTypeEnum.ComboBox IfGrid.Column(11).CellType = FlexCell.CellTypeEnum.ComboBox IfGrid.Column(12).CellType = FlexCell.CellTypeEnum.ComboBox IfGrid.Column(13).CellType = FlexCell.CellTypeEnum.ComboBox IfGrid.Column(14).CellType = FlexCell.CellTypeEnum.ComboBox IfGrid.Column(0).Width = 50 IfGrid.Column(1).Width = 60 IfGrid.Column(2).Width = 60 IfGrid.Column(3).Width = 60 IfGrid.Column(4).Width = 60 IfGrid.Column(5).Width = 60 IfGrid.Column(6).Width = 60 IfGrid.Column(7).Width = 60 IfGrid.Column(8).Width = 60 IfGrid.Column(9).Width = 60 IfGrid.Column(10).Width = 60 IfGrid.Column(11).Width = 60 IfGrid.Column(12).Width = 60 IfGrid.Column(13).Width = 60 IfGrid.Column(14).Width = 60 IfGrid.Column(1).Locked = True IfGrid.Column(0).Locked = True IfGrid.ComboBox(2).Locked = True IfGrid.ComboBox(3).Locked = True IfGrid.ComboBox(5).Locked = True IfGrid.ComboBox(6).Locked = True IfGrid.ComboBox(7).Locked = True IfGrid.ComboBox(11).Locked = True IfGrid.ComboBox(12).Locked = True IfGrid.ComboBox(4).Locked = True IfGrid.ComboBox(8).Locked = True IfGrid.ComboBox(9).Locked = True IfGrid.ComboBox(10).Locked = True IfGrid.ComboBox(13).Locked = True IfGrid.ComboBox(14).Locked = True IfGrid.Column(0).Alignment = FlexCell.AlignmentEnum.CenterCenter IfGrid.Column(1).Alignment = FlexCell.AlignmentEnum.CenterCenter IfGrid.Column(2).Alignment = FlexCell.AlignmentEnum.CenterCenter IfGrid.Column(3).Alignment = FlexCell.AlignmentEnum.CenterCenter IfGrid.Column(4).Alignment = FlexCell.AlignmentEnum.CenterCenter IfGrid.Column(5).Alignment = FlexCell.AlignmentEnum.CenterCenter IfGrid.Column(6).Alignment = FlexCell.AlignmentEnum.CenterCenter IfGrid.Column(7).Alignment = FlexCell.AlignmentEnum.CenterCenter IfGrid.Column(8).Alignment = FlexCell.AlignmentEnum.CenterCenter IfGrid.Column(9).Alignment = FlexCell.AlignmentEnum.CenterCenter IfGrid.Column(10).Alignment = FlexCell.AlignmentEnum.CenterCenter IfGrid.Column(11).Alignment = FlexCell.AlignmentEnum.CenterCenter IfGrid.Column(12).Alignment = FlexCell.AlignmentEnum.CenterCenter IfGrid.Column(13).Alignment = FlexCell.AlignmentEnum.CenterCenter IfGrid.Column(14).Alignment = FlexCell.AlignmentEnum.CenterCenter Try IfGridRowdic = JsonConvert.DeserializeObject(Of Dictionary(Of String, List(Of String)))(jsonstr) If IsNothing(IfGridRowdic) OrElse IfGridRowdic.Count < 1 Then IfGridRowdic = New Dictionary(Of String, List(Of String)) 'Dim li As List(Of String) = New List(Of String) For i = 1 To 3 Dim li As List(Of String) = New List(Of String) IfGrid.AddItem("") IfGrid.Cell(IfGrid.Rows - 1, 0).Text = $"{i}" IfGrid.Cell(IfGrid.Rows - 1, 1).Text = 1 IfGrid.Cell(IfGrid.Rows - 1, 2).Text = "1:无人至有人" IfGrid.Cell(IfGrid.Rows - 1, 3).Text = $"0:不判断" IfGrid.Cell(IfGrid.Rows - 1, 4).Text = $"0:不判断" IfGrid.Cell(IfGrid.Rows - 1, 5).Text = $"0:不判断" IfGrid.Cell(IfGrid.Rows - 1, 6).Text = $"0:不判断" IfGrid.Cell(IfGrid.Rows - 1, 7).Text = $"0:不判断" IfGrid.Cell(IfGrid.Rows - 1, 8).Text = $"0:不判断" IfGrid.Cell(IfGrid.Rows - 1, 9).Text = $"0:不判断" IfGrid.Cell(IfGrid.Rows - 1, 10).Text = $"0:不判断" IfGrid.Cell(IfGrid.Rows - 1, 11).Text = $"0:不判断" IfGrid.Cell(IfGrid.Rows - 1, 12).Text = $"0:不判断" IfGrid.Cell(IfGrid.Rows - 1, 13).Text = $"0" IfGrid.Cell(IfGrid.Rows - 1, 14).Text = $"秒" li.Add($"{i},1,1,0:不判断,0:不判断,0:不判断,0:不判断,0:不判断,0:不判断,0:不判断,0:不判断,0:不判断,0:不判断,0,秒") IfGridRowdic.Add(i, li) Next Else Dim headrow As Integer For Each node In IfGridRowdic IfGrid.AddItem("") headrow = IfGrid.Rows - 1 For i = 0 To node.Value.Count - 1 If i = 0 Then Else IfGrid.AddItem("") End If IfGrid.Cell(IfGrid.Rows - 1, 0).Text = $"{node.Key}" Dim rowstr() As String = node.Value(i).Split(",") For j = 1 To rowstr.Length If ifbn Then IfGrid.Cell(IfGrid.Rows - 1, j).Text = rowstr(j - 1) Else If j = rowstr.Length Then Continue For IfGrid.Cell(IfGrid.Rows - 1, j).Text = rowstr(j) End If Next Next 'IfGrid.Range(headrow, 0， IfGrid.Rows - 1, 0).Merge() Next End If Catch ex As Exception IfGridRowdic = New Dictionary(Of String, List(Of String)) For i = 1 To 3 Dim li As List(Of String) = New List(Of String) IfGrid.AddItem("") IfGrid.Cell(IfGrid.Rows - 1, 0).Text = $"{i}" IfGrid.Cell(IfGrid.Rows - 1, 1).Text = 1 IfGrid.Cell(IfGrid.Rows - 1, 2).Text = "1:无人至有人" IfGrid.Cell(IfGrid.Rows - 1, 3).Text = $"0:不判断" IfGrid.Cell(IfGrid.Rows - 1, 4).Text = $"0:不判断" IfGrid.Cell(IfGrid.Rows - 1, 5).Text = $"0:不判断" IfGrid.Cell(IfGrid.Rows - 1, 6).Text = $"0:不判断" IfGrid.Cell(IfGrid.Rows - 1, 7).Text = $"0:不判断" IfGrid.Cell(IfGrid.Rows - 1, 8).Text = $"0:不判断" IfGrid.Cell(IfGrid.Rows - 1, 9).Text = $"0:不判断" IfGrid.Cell(IfGrid.Rows - 1, 10).Text = $"0:不判断" IfGrid.Cell(IfGrid.Rows - 1, 11).Text = $"0:不判断" IfGrid.Cell(IfGrid.Rows - 1, 12).Text = $"0:不判断" IfGrid.Cell(IfGrid.Rows - 1, 13).Text = $"0" IfGrid.Cell(IfGrid.Rows - 1, 14).Text = $"秒" li.Add($"{i},1,1,0:不判断,0:不判断,0:不判断,0:不判断,0:不判断,0:不判断,0:不判断,0:不判断,0:不判断,0:不判断,0,秒") IfGridRowdic.Add(i, li) Next End Try End Sub Public isxiugai1 As Boolean = False Public Sub InitPortTable(Node As DeviceChildNodeClass) PortTable.NewFile() PortTable.ExtendLastCol = False PortTable.Cols = 6 PortTable.Rows = Node.Nodes.Count + 1 PortTable.Cell(0, 0).Text = "端口" PortTable.Cell(0, 1).Text = "别名" PortTable.Cell(0, 2).Text = "端口类型" PortTable.Cell(0, 3).Text = "端口地址" PortTable.Cell(0, 4).Text = "端口回路" PortTable.Cell(0, 5).Text = "触发时间（百分比）阈值" PortTable.Row(0).Locked = True PortTable.Column(0).Width = 100 PortTable.Column(2).Width = 80 PortTable.Column(3).Width = 80 PortTable.Column(4).Width = 800 PortTable.Column(5).Width = 120 PortTable.Column(1).Width = 100 ' PortTable.Column(1).CellType = FlexCell.CellTypeEnum.ComboBox PortTable.Column(2).CellType = FlexCell.CellTypeEnum.ComboBox PortTable.Column(3).CellType = FlexCell.CellTypeEnum.ComboBox PortTable.Column(4).CellType = FlexCell.CellTypeEnum.ComboBox PortTable.Column(5).CellType = FlexCell.CellTypeEnum.ComboBox PortTable.ComboBox(5).Locked = True 'PortTable.Column(1).Locked = True PortTable.ComboBox(2).Locked = True PortTable.ComboBox(3).Locked = True PortTable.ComboBox(4).Locked = True PortTable.Column(0).Alignment = FlexCell.AlignmentEnum.CenterCenter PortTable.Column(1).Alignment = FlexCell.AlignmentEnum.CenterCenter PortTable.Column(2).Alignment = FlexCell.AlignmentEnum.CenterCenter PortTable.Column(3).Alignment = FlexCell.AlignmentEnum.CenterCenter PortTable.Column(4).Alignment = FlexCell.AlignmentEnum.CenterCenter PortTable.Column(5).Alignment = FlexCell.AlignmentEnum.CenterCenter isxiugai1 = False Dim sbuf() As String For i = 1 To Node.Nodes.Count PortTable.Cell(i, 1).Text = " " PortTable.Cell(i, 0).Text = Node.Nodes(i - 1).Name sbuf = Node.Nodes(i - 1).Description.Split(",") If sbuf.Length = 6 Then PortTable.Cell(i, 1).Text = sbuf(0) PortTable.Cell(i, 2).Text = sbuf(1) PortTable.Cell(i, 3).Text = sbuf(2) PortTable.Cell(i, 4).Text = sbuf(3) PortTable.Cell(i, 4).Tag = sbuf(5) PortTable.Cell(i, 5).Text = sbuf(4) End If Next isxiugai1 = True End Sub Public Function GetPortTable() As Boolean If IsNothing(NoCardNode) Then Return False Dim rstr As String = String.Empty For i = 1 To PortTable.Rows - 1 rstr = String.Empty For j = 1 To PortTable.Cols - 1 rstr = $"{rstr},{PortTable.Cell(i, j).Text}" Next rstr = $"{rstr},{PortTable.Cell(i, 4).Tag}" rstr = rstr.Remove(0, 1) NoCardNode.Nodes(i - 1).Description = rstr Next Return True End Function Public Function SetFormPattern(ParamArray args() As Object) As Boolean Implements FromInterface1.SetFormPattern If TypeOf args(0) Is Dictionary(Of String, DeviceModel) Then ' someObject 是 Dictionary(Of String, DeviceModel) 类型 If Not (args(0) Is Nothing) Then Dic_Devicemodel = DirectCast(args(0), Dictionary(Of String, DeviceModel)) ParseDeviceList(Dic_Devicemodel) Return True Else 'MsgBox("设备加载异常") Return False End If Else ' someObject 不是 Dictionary(Of String, DeviceModel) 类型 'MsgBox("设备加载异常") Return False End If End Function Public Function GetFormData() As Object Implements FromInterface1.GetFormData Throw New NotImplementedException() End Function End Class