1289 lines
59 KiB
VB.net
1289 lines
59 KiB
VB.net
Imports BLV_Studio.TableInteraction
|
||
Imports Newtonsoft.Json
|
||
|
||
Public Class PowerSupply
|
||
''' <summary>
|
||
''' 设备键值对 设备名-设备信息集合 主机=主机名 外设=外设名+播马地址
|
||
''' </summary>
|
||
Private Dic_Devicemodel As Dictionary(Of String， DeviceModel）
|
||
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
|
||
CheckBox2.Checked = Not CheckBox1.Checked
|
||
SplitContainer1.Panel2.Visible = True
|
||
End Sub
|
||
|
||
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
|
||
CheckBox1.Checked = Not CheckBox2.Checked
|
||
SplitContainer1.Panel2.Visible = False
|
||
End Sub
|
||
|
||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||
GetPortTable()
|
||
GetIfTable()
|
||
SetDevDescription()
|
||
|
||
|
||
If Not IsCheckBox5 = CheckBox5.Checked Then
|
||
If CheckBox5.Checked Then
|
||
g_TableGrid.Cell(0, 0).Tag = 1
|
||
Else
|
||
g_TableGrid.Cell(0, 0).Tag = 0
|
||
End If
|
||
CheckBox5_CheckedChanged(Nothing, Nothing)
|
||
End If
|
||
|
||
|
||
Me.DialogResult = System.Windows.Forms.DialogResult.OK
|
||
Me.Close()
|
||
Return
|
||
End Sub
|
||
Public Sub SetDevDescription()
|
||
If IsNothing(UniqueDevice) Then Return
|
||
|
||
Dim rstr = String.Empty
|
||
If CheckBox4.Checked Then
|
||
rstr = $"1,"
|
||
Else
|
||
rstr = $"0,"
|
||
End If
|
||
rstr = $"{rstr}{NR_TextBox2.Text },{NR_ComboBox1.SelectedIndex + 1}"
|
||
UniqueDevice.Desc.ProtocolData = rstr
|
||
End Sub
|
||
Public Sub GetDevDescription()
|
||
If IsNothing(UniqueDevice) Then Return
|
||
If String.IsNullOrEmpty(UniqueDevice.Desc.ProtocolData) Then Return
|
||
Dim rstr() As String = UniqueDevice.Desc.ProtocolData.Split(",")
|
||
If rstr(0) = "1" Then
|
||
CheckBox4.Checked = True
|
||
NR_TextBox2.Text = rstr(1)
|
||
NR_ComboBox1.SelectedIndex = CInt(rstr(2)) - 1
|
||
Else
|
||
CheckBox4.Checked = False
|
||
NR_TextBox2.Text = rstr(1)
|
||
NR_ComboBox1.SelectedIndex = CInt(rstr(2)) - 1
|
||
End If
|
||
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}"
|
||
Console.WriteLine("PortTable.Cell(i, 4).Text:" & PortTable.Cell(i, 4).Text)
|
||
rstr = $"{PortTable.Cell(i, 2).Text}"
|
||
|
||
If ParseDevDic.ContainsKey(rstr) Then
|
||
Dim indexd = ParseDevDic.Item(rstr)
|
||
rstr = $"{PortTable.Cell(i, 1).Text},{rstr},{PortTable.Cell(i, 3).Text},{PortTable.Cell(i, 4).Text},{indexd.Keys(0)},{indexd.Values(0).Keys(0)},{indexd.Values(0).Values(0).Item(0).Item1 }"
|
||
Else
|
||
' Continue For
|
||
End If
|
||
'rstr = rstr.Remove(0, 1)
|
||
NoCardNode.Nodes(i - 1).Description = rstr
|
||
Next
|
||
Return True
|
||
End Function
|
||
|
||
Public Function GetIfTable() As Boolean
|
||
If IsNothing(UniqueDevice) Then Return False
|
||
Dim rstr As Dictionary(Of String, List(Of String)) = New Dictionary(Of String, List(Of String))
|
||
Dim headname As CtabRange
|
||
Dim keystr As String = String.Empty
|
||
Dim li As List(Of String)
|
||
For i = 1 To IfGrid.Rows - 1
|
||
headname = New CtabRange(IfGrid, i, 1) ' IfGrid.Cell(i, 1).Tag
|
||
If rstr.ContainsKey(headname.devname) Then
|
||
li = rstr.Item(headname.devname)
|
||
Else
|
||
li = New List(Of String)
|
||
rstr.Add(headname.devname, li)
|
||
End If
|
||
|
||
For j = 2 To IfGrid.Cols - 1
|
||
'If IfGrid.Column(j).Locked Then
|
||
' Continue For
|
||
'End If
|
||
keystr = $"{keystr},{IfGrid.Cell(i, j).Text}"
|
||
Next
|
||
keystr = keystr.Remove(0, 1)
|
||
li.Add(keystr)
|
||
keystr = String.Empty
|
||
Next
|
||
Dim str As String = JsonConvert.SerializeObject(rstr)
|
||
UniqueDevice.Desc.DevDescription = str
|
||
Return True
|
||
End Function
|
||
|
||
|
||
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
|
||
'数字0~9所对应的keychar为48~57
|
||
e.Handled = True
|
||
'输入0-9
|
||
If e.KeyChar = vbBack OrElse (Asc(e.KeyChar) >= 47 AndAlso Asc(e.KeyChar) <= 58) Then
|
||
e.Handled = False
|
||
End If
|
||
|
||
End Sub
|
||
|
||
Private Sub PowerSupply_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||
CheckBox2.Checked = False
|
||
CheckBox1.Enabled = False
|
||
CheckBox2.Enabled = False
|
||
If IsNothing(NoCardNode) Then
|
||
CheckBox2.Checked = True
|
||
CheckBox1.Checked = False
|
||
Else
|
||
CheckBox2.Checked = False
|
||
CheckBox1.Checked = True
|
||
|
||
InitIfGrid(UniqueDevice.Desc.DevDescription)
|
||
InitPortTable(NoCardNode)
|
||
NR_ComboBox1.SelectedIndex = 1
|
||
GetDevDescription()
|
||
|
||
End If
|
||
|
||
End Sub
|
||
|
||
|
||
#Region “初始化表格“
|
||
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(TableGrid As FlexCell.Grid)
|
||
' ParseDevDic = New Dictionary(Of String, Dictionary(Of String, Dictionary(Of String, List(Of (String, String)))))
|
||
' If IsNothing(TableGrid) Then
|
||
' Return
|
||
' End If
|
||
' Dim keyname As String = String.Empty
|
||
' Dim loopval As String = String.Empty
|
||
' For i = TableRowNumber.Max To TableGrid.Rows - 1
|
||
' keyname = $"{ TableGrid.Cell(i, TableColNumber.KeyName).Text}({TableGrid.Cell(i, TableColNumber.SceneID).Text})"
|
||
' loopval = $"{ TableGrid.Cell(i, TableColNumber.KeyName).Text}"
|
||
|
||
' Next
|
||
'End Sub
|
||
Public g_TableGrid As FlexCell.Grid
|
||
Public G_ActionConfiguration As List(Of TableRowTag)
|
||
Public IsCheckBox5 As Boolean
|
||
Public Sub ParseDeviceList(Devicemodel As Dictionary(Of String， DeviceModel）, TableGrid As FlexCell.Grid)
|
||
Dic_Devicemodel = Devicemodel
|
||
ParseDevDic = New Dictionary(Of String, Dictionary(Of String, Dictionary(Of String, List(Of (String, String)))))
|
||
Dim typename As String
|
||
If Not IsNothing(TableGrid.Cell(0, 0).Tag) Then
|
||
Dim sss As String = TableGrid.Cell(0, 0).Tag.ToString
|
||
If TableGrid.Cell(0, 0).Tag.ToString.Equals("1") Then
|
||
CheckBox5.Checked = 1
|
||
IsCheckBox5 = True
|
||
Else
|
||
CheckBox5.Checked = 0
|
||
IsCheckBox5 = False
|
||
End If
|
||
|
||
End If
|
||
|
||
g_TableGrid = TableGrid
|
||
Dim keyname As String = String.Empty
|
||
Dim loopval As String = String.Empty
|
||
For i = TableRowNumber.Max To TableGrid.Rows - 1
|
||
keyname = $"{ TableGrid.Cell(i, TableColNumber.KeyName).Text}({TableGrid.Cell(i, TableColNumber.SceneID).Text})"
|
||
loopval = $"{ TableGrid.Cell(i, TableColNumber.KeyVal).Text}"
|
||
If keyname.Contains("radar") OrElse keyname.Contains("infrared") OrElse keyname.Contains("Insert card") OrElse keyname.Contains("pull out") OrElse keyname.Contains("door contact") Then
|
||
Dim griddev As CtabRange = New CtabRange(TableGrid, i, TableColNumber.DeviceName)
|
||
If griddev.devname.Equals("HOSTSERVICE") Then Continue For
|
||
If Dic_Devicemodel.ContainsKey(griddev.devname) Then
|
||
Dim index As DeviceModel = Dic_Devicemodel.Item(griddev.devname)
|
||
For Each node In index.Nodes
|
||
If node.Name.Equals("Virtual_Card") Then
|
||
UniqueDevice = index
|
||
NoCardNode = node
|
||
Exit For
|
||
Else
|
||
If node.Interface.Equals("DI") Then
|
||
For Each subnode In node.Nodes
|
||
If subnode.LoopAddr.Equals(loopval) Then
|
||
Dim loopli = New List(Of (String, String))
|
||
Dim loopdic = New Dictionary(Of String, List(Of (String, String)))
|
||
Dim addressdic = New Dictionary(Of String, Dictionary(Of String, List(Of (String, String))))
|
||
|
||
Dim addr As String
|
||
If index.Desc.Name.Equals("BLV_C12") Then
|
||
addr = 0
|
||
Else
|
||
addr = FindAttributeValueUnderModel(index, "Device present", "Dialing address")
|
||
End If
|
||
ParseDevDic.Add(keyname, addressdic)
|
||
addressdic.Add(loopval, loopdic)
|
||
loopli.Add((addr, ""))
|
||
loopdic.Add(node.DEV_TYPE_DATA, loopli)
|
||
|
||
End If
|
||
Next
|
||
|
||
End If
|
||
|
||
End If
|
||
Next
|
||
Else
|
||
Continue For
|
||
End If
|
||
|
||
End If
|
||
Next
|
||
|
||
|
||
|
||
|
||
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
|
||
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
|
||
|
||
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
|
||
|
||
Public isxiugai1 As Boolean = False
|
||
Public Sub InitPortTable(Node As DeviceChildNodeClass)
|
||
PortTable.NewFile()
|
||
PortTable.ExtendLastCol = False
|
||
PortTable.Cols = 5
|
||
PortTable.Rows = Node.Nodes.Count + 1
|
||
PortTable.Cell(0, 0).Text = "Port"
|
||
PortTable.Cell(0, 1).Text = "Alternative name"
|
||
PortTable.Cell(0, 2).Text = "Input port (Requires setting the alias of the input loop on the home page first)"
|
||
PortTable.Cell(0, 3).Text = "Release time (percentage) threshold"
|
||
PortTable.Cell(0, 4).Text = "Whether to participate in the continuous unmanned judgment process"
|
||
PortTable.Row(0).Locked = True
|
||
PortTable.Column(0).Width = 100
|
||
PortTable.Column(2).Width = 280
|
||
PortTable.Column(3).Width = 150
|
||
PortTable.Column(4).Width = 80
|
||
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.CheckBox
|
||
|
||
'PortTable.Column(1).Locked = True
|
||
PortTable.ComboBox(2).Locked = True
|
||
PortTable.ComboBox(3).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
|
||
|
||
|
||
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 = 7 Then
|
||
If String.IsNullOrEmpty(sbuf(0).Trim) Then
|
||
PortTable.Cell(i, 1).Text = GetPortName(i)
|
||
Else
|
||
PortTable.Cell(i, 1).Text = sbuf(0)
|
||
End If
|
||
|
||
PortTable.Cell(i, 2).Text = sbuf(1)
|
||
PortTable.Cell(i, 3).Text = sbuf(2)
|
||
PortTable.Cell(i, 4).Text = sbuf(3)
|
||
If i = 2 Or i = 3 Then
|
||
PortTable.Cell(i, 4).Locked = True
|
||
PortTable.Cell(i, 3).Locked = True
|
||
End If
|
||
Else
|
||
PortTable.Cell(i, 1).Text = GetPortName(i)
|
||
|
||
If i < 4 Then
|
||
PortTable.Cell(i, 3).Text = 0
|
||
If i = 2 Or i = 3 Then
|
||
PortTable.Cell(i, 4).Locked = True
|
||
PortTable.Cell(i, 3).Locked = True
|
||
End If
|
||
Else
|
||
|
||
PortTable.Cell(i, 3).Text = 50
|
||
If i = 6 Then
|
||
PortTable.Cell(i, 3).Text = 10
|
||
End If
|
||
End If
|
||
End If
|
||
Next
|
||
isxiugai1 = True
|
||
End Sub
|
||
Public Function GetPortName(rowindex As Integer)
|
||
Dim result As String = String.Empty
|
||
Select Case rowindex
|
||
|
||
Case 1
|
||
result = "Insert card"
|
||
Case 2
|
||
result = "Open door contact"
|
||
Case 3
|
||
result = "Doorway infrared"
|
||
Case 4
|
||
result = "Toilet infrared"
|
||
Case 5
|
||
result = "Bathroom infrared"
|
||
Case 6
|
||
result = "bed infrared"
|
||
Case 7
|
||
result = "Mirror infrared"
|
||
Case 8
|
||
result = "fallow infrared"
|
||
Case 9
|
||
result = "Living room infrared"
|
||
Case 10
|
||
result = "Living room bathroom infrared"
|
||
Case 11
|
||
result = "bathtub infrared"
|
||
|
||
End Select
|
||
Return result
|
||
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 = 17
|
||
IfGrid.Rows = 1
|
||
|
||
IfGrid.Cell(0, 1).Text = "Set of conditions"
|
||
IfGrid.Cell(0, 2).Text = "Conditional sequence number"
|
||
IfGrid.Cell(0, 3).Text = "unmarked"
|
||
IfGrid.Cell(0, 4).Text = "CH1"
|
||
IfGrid.Cell(0, 5).Text = "CH2"
|
||
IfGrid.Cell(0, 6).Text = "CH3"
|
||
IfGrid.Cell(0, 7).Text = "CH4"
|
||
IfGrid.Cell(0, 8).Text = "CH5"
|
||
IfGrid.Cell(0, 9).Text = "CH6"
|
||
IfGrid.Cell(0, 10).Text = "CH7"
|
||
IfGrid.Cell(0, 11).Text = "CH8"
|
||
IfGrid.Cell(0, 12).Text = "CH9"
|
||
IfGrid.Cell(0, 13).Text = "CH10"
|
||
IfGrid.Cell(0, 14).Text = "CH11"
|
||
IfGrid.Cell(0, 15).Text = "Delay Time"
|
||
IfGrid.Cell(0, 16).Text = "Time Unit"
|
||
|
||
|
||
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(15).CellType = FlexCell.CellTypeEnum.ComboBox
|
||
IfGrid.Column(16).CellType = FlexCell.CellTypeEnum.ComboBox
|
||
|
||
IfGrid.Column(0).Width = 0
|
||
IfGrid.Column(1).Width = 50
|
||
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(15).Width = 60
|
||
IfGrid.Column(16).Width = 60
|
||
IfGrid.Column(0).Visible = True
|
||
IfGrid.Column(1).Locked = True
|
||
IfGrid.Column(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.ComboBox(15).Locked = True
|
||
IfGrid.ComboBox(16).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
|
||
IfGrid.Column(15).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
||
IfGrid.Column(16).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
||
Try
|
||
Dim startrow As Integer = 0
|
||
IfGridRowdic = JsonConvert.DeserializeObject(Of Dictionary(Of String, List(Of String)))(jsonstr)
|
||
If IsNothing(IfGridRowdic) OrElse IfGridRowdic.Count < 1 Then
|
||
BuildTableRow()
|
||
'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, 1).Text = $"{i}"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 1).Tag = $"{i}"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 2).Text = 1
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 3).Text = "From emptiness to fullness"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 4).Text = $"Not judging"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 5).Text = $"Not judging"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 6).Text = $"Not judging"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 7).Text = $"Not judging"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 8).Text = $"Not judging"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 9).Text = $"Not judging"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 10).Text = $"Not judging"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 11).Text = $"Not judging"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 12).Text = $"Not judging"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 13).Text = $"Not judging"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 14).Text = $"0"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 15).Text = $"s"
|
||
|
||
' li.Add($"{i},1,1,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,0,s")
|
||
' 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, 1).Text = $"{node.Key}"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Tag = $"{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 + 1).Text = rowstr(j - 1)
|
||
Else
|
||
If j = rowstr.Length Then Continue For
|
||
|
||
IfGrid.Cell(IfGrid.Rows - 1, j + 1).Text = rowstr(j)
|
||
End If
|
||
|
||
Next
|
||
|
||
Next
|
||
If headrow < IfGrid.Rows - 1 Then
|
||
IfGrid.Column(1).Locked = False
|
||
IfGrid.Range(headrow, 1， IfGrid.Rows - 1, 1).Merge()
|
||
IfGrid.Column(1).Locked = True
|
||
End If
|
||
|
||
Next
|
||
End If
|
||
Catch ex As Exception
|
||
BuildTableRow()
|
||
'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, 1).Text = $"{i}"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 1).Tag = $"{i}"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 2).Text = 1
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 3).Text = "From emptiness to fullness"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 4).Text = $"Not judging"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 5).Text = $"Not judging"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 6).Text = $"Not judging"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 7).Text = $"Not judging"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 8).Text = $"Not judging"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 9).Text = $"Not judging"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 10).Text = $"Not judging"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 11).Text = $"Not judging"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 12).Text = $"Not judging"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 13).Text = $"Not judging"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 14).Text = $"0"
|
||
' IfGrid.Cell(IfGrid.Rows - 1, 15).Text = $"s"
|
||
' li.Add($"{i},1,1,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,0,s")
|
||
' IfGridRowdic.Add(i, li)
|
||
'Next
|
||
End Try
|
||
|
||
End Sub
|
||
|
||
Public Sub BuildTableRow()
|
||
IfGridRowdic = New Dictionary(Of String, List(Of String))
|
||
|
||
Dim li7 As List(Of String) = New List(Of String)
|
||
IfGrid.AddItem("")
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Text = 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Tag = 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 2).Text = 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 3).Text = "From emptiness to fullness"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 4).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 5).Text = $"trigger"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 6).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 7).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 8).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 9).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 10).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 11).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 12).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 13).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 14).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 15).Text = $"1"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 16).Text = $"s"
|
||
li7.Add($"1,1,1,Not judging,trigger,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,1,s")
|
||
|
||
IfGridRowdic.Add(1, li7)
|
||
|
||
Dim li1 As List(Of String) = New List(Of String)
|
||
IfGrid.AddItem("")
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Text = 2
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Tag = 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 2).Text = 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 3).Text = "From emptiness to fullness"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 4).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 5).Text = $"Release"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 6).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 7).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 8).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 9).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 10).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 11).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 12).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 13).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 14).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 15).Text = $"1"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 16).Text = $"s"
|
||
li1.Add($"2,1,1,Not judging,Release,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,1,s")
|
||
|
||
IfGridRowdic.Add(2, li1)
|
||
|
||
|
||
|
||
|
||
Dim li2 As List(Of String) = New List(Of String)
|
||
IfGrid.AddItem("")
|
||
Dim startR As Integer = IfGrid.Rows - 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Text = 3
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Tag = 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 2).Text = 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 3).Text = "From emptiness to fullness"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 4).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 5).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 6).Text = $"trigger"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 7).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 8).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 9).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 10).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 11).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 12).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 13).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 14).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 15).Text = $"0"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 16).Text = $"s"
|
||
li2.Add($"3,1,1,Not judging,Not judging,trigger,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,0,s")
|
||
IfGrid.AddItem("")
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Text = 3
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Tag = 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 2).Text = 2
|
||
IfGrid.Cell(IfGrid.Rows - 1, 3).Text = "From emptiness to fullness"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 4).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 5).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 6).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 7).Text = $"trigger"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 8).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 9).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 10).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 11).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 12).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 13).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 14).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 15).Text = $"0"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 16).Text = $"s"
|
||
li2.Add($"2,1,2,Not judging,Not judging,Not judging,trigger,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,0,s")
|
||
IfGrid.AddItem("")
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Text = 3
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Tag = 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 2).Text = 3
|
||
IfGrid.Cell(IfGrid.Rows - 1, 3).Text = "From emptiness to fullness"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 4).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 5).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 6).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 7).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 8).Text = $"trigger"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 9).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 10).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 11).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 12).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 13).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 14).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 15).Text = $"0"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 16).Text = $"s"
|
||
li2.Add($"3,1,3,Not judging,Not judging,Not judging,Not judging,trigger,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,0,s")
|
||
IfGrid.AddItem("")
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Text = 3
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Tag = 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 2).Text = 4
|
||
IfGrid.Cell(IfGrid.Rows - 1, 3).Text = "From emptiness to fullness"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 4).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 5).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 6).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 7).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 8).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 9).Text = $"trigger"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 10).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 11).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 12).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 13).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 14).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 15).Text = $"0"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 16).Text = $"s"
|
||
li2.Add($"3,1,4,Not judging,Not judging,Not judging,Not judging,Not judging,trigger,Not judging,Not judging,Not judging,Not judging,Not judging,0,s")
|
||
IfGrid.AddItem("")
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Text = 3
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Tag = 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 2).Text = 5
|
||
IfGrid.Cell(IfGrid.Rows - 1, 3).Text = "From emptiness to fullness"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 4).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 5).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 6).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 7).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 8).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 9).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 10).Text = $"trigger"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 11).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 12).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 13).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 14).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 15).Text = $"0"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 16).Text = $"s"
|
||
li2.Add($"3,1,5,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,trigger,Not judging,Not judging,Not judging,Not judging,0,s")
|
||
IfGrid.AddItem("")
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Text = 3
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Tag = 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 2).Text = 6
|
||
IfGrid.Cell(IfGrid.Rows - 1, 3).Text = "From emptiness to fullness"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 4).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 5).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 6).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 7).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 8).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 9).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 10).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 11).Text = $"trigger"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 12).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 13).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 14).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 15).Text = $"0"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 16).Text = $"s"
|
||
li2.Add($"3,1,6,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,trigger,Not judging,Not judging,Not judging,0,s")
|
||
IfGrid.AddItem("")
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Text = 3
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Tag = 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 2).Text = 7
|
||
IfGrid.Cell(IfGrid.Rows - 1, 3).Text = "From emptiness to fullness"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 4).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 5).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 6).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 7).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 8).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 9).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 10).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 11).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 12).Text = $"trigger"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 13).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 14).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 15).Text = $"0"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 16).Text = $"s"
|
||
li2.Add($"3,1,7,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,trigger,Not judging,Not judging,0,s")
|
||
IfGrid.AddItem("")
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Text = 3
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Tag = 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 2).Text = 8
|
||
IfGrid.Cell(IfGrid.Rows - 1, 3).Text = "From emptiness to fullness"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 4).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 5).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 6).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 7).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 8).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 9).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 10).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 11).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 12).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 13).Text = $"trigger"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 14).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 15).Text = $"0"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 16).Text = $"s"
|
||
li2.Add($"3,1,8,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,trigger,Not judging,0,s")
|
||
IfGrid.AddItem("")
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Text = 3
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Tag = 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 2).Text = 9
|
||
IfGrid.Cell(IfGrid.Rows - 1, 3).Text = "From emptiness to fullness"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 4).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 5).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 6).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 7).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 8).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 9).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 10).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 11).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 12).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 13).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 14).Text = $"trigger"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 15).Text = $"0"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 16).Text = $"s"
|
||
li2.Add($"3,1,9,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,trigger,0,s")
|
||
IfGrid.Column(1).Locked = False
|
||
IfGrid.Range(startR, 1, IfGrid.Rows - 1, 1).Merge()
|
||
IfGrid.Column(1).Locked = True
|
||
IfGridRowdic.Add(3, li2)
|
||
|
||
|
||
Dim li3 As List(Of String) = New List(Of String)
|
||
'IfGrid.AddItem("")
|
||
'IfGrid.Cell(IfGrid.Rows - 1, 1).Text = 4
|
||
'IfGrid.Cell(IfGrid.Rows - 1, 1).Tag = 1
|
||
'IfGrid.Cell(IfGrid.Rows - 1, 2).Text = 1
|
||
'IfGrid.Cell(IfGrid.Rows - 1, 3).Text = "From fullness to emptiness"
|
||
'IfGrid.Cell(IfGrid.Rows - 1, 4).Text = $"Not judging"
|
||
'IfGrid.Cell(IfGrid.Rows - 1, 5).Text = $"Not judging"
|
||
'IfGrid.Cell(IfGrid.Rows - 1, 6).Text = $"trigger"
|
||
'IfGrid.Cell(IfGrid.Rows - 1, 7).Text = $"Not judging"
|
||
'IfGrid.Cell(IfGrid.Rows - 1, 8).Text = $"Not judging"
|
||
'IfGrid.Cell(IfGrid.Rows - 1, 9).Text = $"Not judging"
|
||
'IfGrid.Cell(IfGrid.Rows - 1, 10).Text = $"Not judging"
|
||
'IfGrid.Cell(IfGrid.Rows - 1, 11).Text = $"Not judging"
|
||
'IfGrid.Cell(IfGrid.Rows - 1, 12).Text = $"Not judging"
|
||
'IfGrid.Cell(IfGrid.Rows - 1, 13).Text = $"Not judging"
|
||
'IfGrid.Cell(IfGrid.Rows - 1, 14).Text = $"Not judging"
|
||
'IfGrid.Cell(IfGrid.Rows - 1, 15).Text = $"0"
|
||
'IfGrid.Cell(IfGrid.Rows - 1, 16).Text = $"s"
|
||
'li1.Add($"4,1,2,Not judging,Not judging,trigger,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,0,s")
|
||
'IfGridRowdic.Add(4, li3)
|
||
|
||
Dim li4 As List(Of String) = New List(Of String)
|
||
IfGrid.AddItem("")
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Text = 4
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Tag = 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 2).Text = 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 3).Text = "From fullness to emptiness"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 4).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 5).Text = $"Release"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 6).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 7).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 8).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 9).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 10).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 11).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 12).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 13).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 14).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 15).Text = $"0"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 16).Text = $"s"
|
||
li1.Add($"4,1,2,Not judging,Release,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,0,s")
|
||
IfGridRowdic.Add(5, li4)
|
||
Dim li5 As List(Of String) = New List(Of String)
|
||
IfGrid.AddItem("")
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Text = 5
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Tag = 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 2).Text = 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 3).Text = "From fullness to emptiness"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 4).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 5).Text = $"trigger"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 6).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 7).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 8).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 9).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 10).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 11).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 12).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 13).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 14).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 15).Text = $"20"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 16).Text = $"s"
|
||
li1.Add($"5,1,2,Not judging,trigger,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,20,s")
|
||
IfGridRowdic.Add(6, li5)
|
||
Dim li6 As List(Of String) = New List(Of String)
|
||
IfGrid.AddItem("")
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Text = 6
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Tag = 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 2).Text = 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 3).Text = "From fullness to emptiness"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 4).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 5).Text = $"trigger"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 6).Text = $"Release"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 7).Text = $"Release"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 8).Text = $"Release"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 9).Text = $"Release"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 10).Text = $"Release"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 11).Text = $"Release"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 12).Text = $"Release"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 13).Text = $"Release"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 14).Text = $"Release"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 15).Text = $"5"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 16).Text = $"m"
|
||
li1.Add($"6,1,2,Not judging,,trigger,Release,Release,Release,Release,Release,Release,Release,Release,Release,5,m")
|
||
IfGridRowdic.Add(7, li6)
|
||
|
||
End Sub
|
||
|
||
|
||
Private Sub PortTable_ComboDropDown(Sender As Object, e As FlexCell.Grid.ComboDropDownEventArgs) Handles PortTable.ComboDropDown
|
||
Dim headname As String = PortTable.Cell(0, e.Col).Text
|
||
Select Case e.Col
|
||
Case 2
|
||
PortTable.ComboBox(e.Col).Items.Clear()
|
||
PortTable.ComboBox(e.Col).Items.Add(" ")
|
||
PortTable.ComboBox(e.Col).Items.AddRange(ParseDevDic.Keys.ToArray)
|
||
|
||
'Case "端口地址"
|
||
' Dim addr As String = PortTable.Cell(e.Row, e.Col - 1).Text
|
||
' If String.IsNullOrEmpty(addr) Then
|
||
' MsgBox("请先选择端口类型！")
|
||
' Return
|
||
' End If
|
||
' PortTable.ComboBox(e.Col).Items.Clear()
|
||
' PortTable.ComboBox(e.Col).Items.AddRange(ParseDevDic.Item(addr).Keys.ToArray)
|
||
'Case "端口回路"
|
||
' Dim typestr As String = PortTable.Cell(e.Row, e.Col - 2).Text
|
||
' Dim addr As String = PortTable.Cell(e.Row, e.Col - 1).Text
|
||
' If String.IsNullOrEmpty(addr) OrElse String.IsNullOrEmpty(typestr) Then
|
||
' MsgBox("请先选择端口类型！")
|
||
' Return
|
||
' End If
|
||
' PortTable.ComboBox(e.Col).Items.Clear()
|
||
' For Each index In ParseDevDic.Item(typestr).Item(addr).Values(0).ToArray
|
||
' PortTable.ComboBox(e.Col).Items.Add(index.Item1)
|
||
' Next
|
||
' 'PortTable.ComboBox(e.Col).Items.AddRange(ParseDevDic.Item(typestr).Item(addr).Values(0).ToArray)
|
||
|
||
' PortTable.Cell(e.Row, e.Col).Tag = ParseDevDic.Item(typestr).Item(addr).Keys(0)
|
||
|
||
|
||
'PortTable.Cell(e.Row, 1).Text =
|
||
Case 3
|
||
PortTable.ComboBox(e.Col).Items.Clear()
|
||
For i = 0 To 100
|
||
PortTable.ComboBox(e.Col).Items.Add(i)
|
||
Next
|
||
|
||
End Select
|
||
End Sub
|
||
|
||
Private Sub IfGrid_ComboDropDown(Sender As Object, e As FlexCell.Grid.ComboDropDownEventArgs) Handles IfGrid.ComboDropDown
|
||
Dim headname As String = IfGrid.Cell(0, e.Col).Text
|
||
If e.Col = 3 Then
|
||
IfGrid.ComboBox(e.Col).Items.Clear()
|
||
IfGrid.ComboBox(e.Col).Items.AddRange({"From emptiness to fullness", "From fullness to emptiness"})
|
||
ElseIf e.Col > 3 AndAlso e.Col < 15 Then
|
||
IfGrid.ComboBox(e.Col).Items.Clear()
|
||
IfGrid.ComboBox(e.Col).Items.AddRange({"Not judging", "trigger", "Release"})
|
||
ElseIf e.Col = 15 Then
|
||
IfGrid.ComboBox(e.Col).Items.Clear()
|
||
For i = 0 To 255
|
||
IfGrid.ComboBox(e.Col).Items.Add(i)
|
||
Next
|
||
|
||
ElseIf e.Col = 16 Then
|
||
IfGrid.ComboBox(e.Col).Items.Clear()
|
||
IfGrid.ComboBox(e.Col).Items.AddRange({"s", "m", "h"})
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||
Dim headname As String = IfGrid.Cell(IfGrid.ActiveCell.Row, 2).Text
|
||
If headname.Equals("1") Then Return
|
||
Dim inrow As Integer = IfGrid.ActiveCell.Row
|
||
Dim Number = Integer.Parse(IfGrid.Cell(inrow, 2).Text)
|
||
Dim li As List(Of String)
|
||
Dim indexstr As CtabRange = New CtabRange(IfGrid, IfGrid.ActiveCell.Row, 1)
|
||
li = IfGridRowdic.Item(indexstr.devname)
|
||
li.RemoveAt(Number - 1)
|
||
IfGrid.Row(IfGrid.ActiveCell.Row).Delete()
|
||
For i = Number To li.Count
|
||
IfGrid.Cell(inrow, 2).Text = i
|
||
inrow = inrow + 1
|
||
Next
|
||
End Sub
|
||
|
||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||
AddIfGridRow()
|
||
End Sub
|
||
Public Sub AddIfGridRow()
|
||
Dim inrow As Integer = IfGrid.ActiveCell.Row
|
||
IfGrid.InsertRow(inrow， 1)
|
||
Dim li As List(Of String)
|
||
Dim nodestr As String = String.Empty
|
||
Dim number As Integer
|
||
For i = 0 To IfGrid.Cols - 1
|
||
Dim indexstr As String = (New CtabRange(IfGrid, inrow + 1, 1)).devname
|
||
li = IfGridRowdic.Item(indexstr)
|
||
IfGrid.Cell(inrow, i).Text = IfGrid.Cell(inrow + 1, i).Text
|
||
If i = 1 Then
|
||
IfGrid.Cell(inrow, i).Tag = (New CtabRange(IfGrid, inrow + 1, 1)).devname
|
||
ElseIf i = 2 Then
|
||
number = Integer.Parse(IfGrid.Cell(inrow + 1, 2).Text)
|
||
End If
|
||
nodestr = $"{nodestr},{ IfGrid.Cell(inrow + 1, i).Text}"
|
||
Next
|
||
IfGrid.Column(1).Locked = False
|
||
IfGrid.Range(inrow, 1, inrow + 1, 1).Merge()
|
||
IfGrid.Column(1).Locked = True
|
||
|
||
nodestr = nodestr.Remove(0, 1)
|
||
li.Add(nodestr)
|
||
For i = number To li.Count
|
||
IfGrid.Cell(inrow, 2).Text = i
|
||
inrow = inrow + 1
|
||
Next
|
||
|
||
End Sub
|
||
|
||
Private Sub PortTable_CellChange(Sender As Object, e As FlexCell.Grid.CellChangeEventArgs) Handles PortTable.CellChange
|
||
If e.Row > 0 AndAlso e.Col = 1 Then
|
||
Dim headname As String = PortTable.Cell(e.Row, e.Col).Text.Trim
|
||
IfGrid.Cell(0, e.Row + 3).Text = headname
|
||
|
||
If String.IsNullOrEmpty(headname) Then
|
||
IfGrid.Column(e.Row + 3).Locked = True
|
||
Else
|
||
IfGrid.Column(e.Row + 3).Locked = False
|
||
End If
|
||
ElseIf e.Row > 0 AndAlso e.Col = 2 Then
|
||
'Dim addr As String = PortTable.Cell(e.Row, e.Col).Text
|
||
'If String.IsNullOrEmpty(addr) Then
|
||
' PortTable.Cell(e.Row, e.Col).Tag = ""
|
||
'Else
|
||
' ParseDevDic.Item(PortTable.Cell(e.Row, e.Col - 1).Text).Item(addr).Values(0).ToArray()
|
||
|
||
'End If
|
||
'ElseIf e.Row > 0 AndAlso e.Col = 4 Then
|
||
' Dim typestr As String = PortTable.Cell(e.Row, e.Col - 2).Text
|
||
' Dim addr As String = PortTable.Cell(e.Row, e.Col - 1).Text
|
||
' Dim nloop As String = PortTable.Cell(e.Row, e.Col).Text
|
||
' If String.IsNullOrEmpty(addr) OrElse String.IsNullOrEmpty(typestr) Then
|
||
' PortTable.Cell(e.Row, e.Col).Text = ""
|
||
' MsgBox("请先选择端口类型！")
|
||
' Return
|
||
' End If
|
||
|
||
' For Each index In ParseDevDic.Item(typestr).Item(addr).Values(0).ToArray
|
||
' If index.Item1.Equals(nloop) AndAlso isxiugai1 Then
|
||
' PortTable.Cell(e.Row, 1).Text = index.Item2
|
||
' End If
|
||
' Next
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
||
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
|
||
Me.Close()
|
||
Return
|
||
End Sub
|
||
|
||
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
||
Dim i As String = (CInt（New CtabRange(IfGrid, IfGrid.Rows - 1, 1).devname） + 1）
|
||
Dim li As List(Of String) = New List(Of String)
|
||
IfGrid.AddItem("")
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Text = $"{i}"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 1).Tag = $"{i}"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 2).Text = 1
|
||
IfGrid.Cell(IfGrid.Rows - 1, 3).Text = "From emptiness to fullness"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 4).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 5).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 6).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 7).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 8).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 9).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 10).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 11).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 12).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 13).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 14).Text = $"Not judging"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 15).Text = $"0"
|
||
IfGrid.Cell(IfGrid.Rows - 1, 16).Text = $"s"
|
||
li.Add($"{i},1,1,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,Not judging,0,s")
|
||
IfGridRowdic.Add(i, li)
|
||
End Sub
|
||
|
||
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
||
Dim headname As CtabRange = New CtabRange(IfGrid, IfGrid.ActiveCell.Row, 1)
|
||
Dim number As Integer = 0
|
||
Dim number1 As Integer = 1
|
||
Dim frow As CtabRange
|
||
For i = headname.fr To headname.lr
|
||
IfGrid.Row(headname.lr - number).Delete()
|
||
number = number + 1
|
||
Next
|
||
|
||
For i = 2 To IfGrid.Rows - 1
|
||
headname = New CtabRange(IfGrid, i, 1)
|
||
frow = New CtabRange(IfGrid, i - 1, 1)
|
||
If (CInt(headname.devname) - CInt(frow.devname) > 1) Then
|
||
number1 = CInt(headname.devname)
|
||
IfGrid.Cell(headname.fr, headname.fc).Text = (CInt(frow.devname) + 1)
|
||
Else
|
||
|
||
End If
|
||
Next
|
||
GetIfTable()
|
||
InitIfGrid(UniqueDevice.Desc.DevDescription)
|
||
End Sub
|
||
|
||
Private Sub IfGrid_CellChange(Sender As Object, e As FlexCell.Grid.CellChangeEventArgs) Handles IfGrid.CellChange
|
||
Dim celltext As String = IfGrid.Cell(e.Row, e.Col).Text
|
||
If celltext.Contains("From emptiness to fullness") Then
|
||
IfGrid.Cell(e.Row, e.Col).ForeColor = Color.Blue
|
||
ElseIf celltext.Contains("From fullness to emptiness") Then
|
||
IfGrid.Cell(e.Row, e.Col).ForeColor = Color.Orange
|
||
ElseIf celltext.Contains("Release") Then
|
||
IfGrid.Cell(e.Row, e.Col).ForeColor = Color.Green
|
||
ElseIf celltext.Contains("Not judging") Then
|
||
IfGrid.Cell(e.Row, e.Col).ForeColor = Color.LightGray
|
||
ElseIf celltext.Contains("trigger") Then
|
||
IfGrid.Cell(e.Row, e.Col).ForeColor = Color.OrangeRed
|
||
End If
|
||
|
||
|
||
|
||
End Sub
|
||
Public Shared Function GetNoCarDataKeyVal(keystr As String) As Integer
|
||
|
||
If keystr.Contains("From emptiness to fullness") Then
|
||
Return 1
|
||
ElseIf keystr.Contains("From fullness to emptiness") Then
|
||
Return 2
|
||
ElseIf keystr.Contains("Release") Then
|
||
Return 2
|
||
ElseIf keystr.Contains("Not judging") Then
|
||
Return 0
|
||
ElseIf keystr.Contains("trigger") Then
|
||
Return 1
|
||
End If
|
||
|
||
Return 0
|
||
|
||
End Function
|
||
|
||
Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles NR_TextBox2.KeyPress
|
||
e.Handled = Not $"0123456789{vbBack}".Contains(e.KeyChar) '如果要只允许输入数字，就把上一行字符串中的字母删除
|
||
End Sub
|
||
|
||
Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.CheckedChanged
|
||
NR_ComboBox1.Enabled = CheckBox4.Checked
|
||
NR_label3.Enabled = CheckBox4.Checked
|
||
NR_TextBox2.Enabled = CheckBox4.Checked
|
||
End Sub
|
||
|
||
Public maxdelayed As Integer = 10
|
||
Private Sub NR_ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles NR_ComboBox1.SelectedIndexChanged
|
||
If NR_ComboBox1.Text.Equals("h") Then
|
||
maxdelayed = 12
|
||
Else
|
||
maxdelayed = 600
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub NR_TextBox2_TextChanged(sender As Object, e As EventArgs) Handles NR_TextBox2.TextChanged
|
||
Dim tint As Integer = CInt(NR_TextBox2.Text)
|
||
If tint > maxdelayed Then
|
||
NR_TextBox2.Text = maxdelayed
|
||
End If
|
||
End Sub
|
||
|
||
|
||
Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs)
|
||
If IsNothing(g_TableGrid) OrElse g_TableGrid.Rows = 0 OrElse IsNothing(G_ActionConfiguration) OrElse G_ActionConfiguration.Count = 0 Then Return
|
||
Dim devmodw As DeviceModel
|
||
Dim loadtag As TableRowTag
|
||
Dim num As UInt64 = 0
|
||
Dim numbuf() As String
|
||
For i = TableRowNumber.Max To g_TableGrid.Rows - 1
|
||
Dim griddev As CtabRange = New CtabRange(g_TableGrid, i, TableColNumber.DeviceName)
|
||
i = griddev.lr
|
||
For j = griddev.fr To griddev.lr
|
||
loadtag = G_ActionConfiguration(j - 7)
|
||
If Dic_Devicemodel.ContainsKey(loadtag.G_DevModeName) Then
|
||
devmodw = Dic_Devicemodel.Item(loadtag.G_DevModeName)
|
||
For Each node In devmodw.Nodes
|
||
If node.Name.Equals(loadtag.G_DevNodeName) Then
|
||
For Each index In node.Nodes
|
||
If index.LoopAddr.Equals(loadtag.G_DevNodeIndex.ToString) Then
|
||
'selectstr = index.DefaultClass
|
||
If index.DefaultClass.Equals("KEY") AndAlso Not node.PROTOCOL_VER.Equals("003") Then
|
||
numbuf = g_TableGrid.Cell(j, TableColNumber.SceneAttribute).Text.Split(",")
|
||
If numbuf.Length < 3 Then Continue For
|
||
num = UInt64.Parse(numbuf（2）)
|
||
If CheckBox5.Checked Then
|
||
num = num Or (1 << 4)
|
||
Else
|
||
num = num - (1 << 4)
|
||
End If
|
||
g_TableGrid.Cell(j, TableColNumber.SceneAttribute).Text = $"{numbuf(0)},{numbuf(1)},{num}"
|
||
End If
|
||
End If
|
||
Next
|
||
End If
|
||
Next
|
||
|
||
End If
|
||
Next
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
Next
|
||
|
||
End Sub
|
||
|
||
|
||
|
||
|
||
|
||
#End Region
|
||
|
||
|
||
|
||
|
||
End Class |