903 lines
34 KiB
VB.net
903 lines
34 KiB
VB.net
Imports FlexCell
|
||
Imports FlexCell.Grid
|
||
|
||
Public Class ActionParameter
|
||
''' <summary>
|
||
''' 设备对象基类信息
|
||
''' </summary>
|
||
''' <returns></returns>
|
||
Private Dic_1, Dic_3, Dic_5, Dic_4 As List(Of String）
|
||
Private Dic_2 As Dictionary(Of String, List(Of String))
|
||
Private g_BasicClasses As DeviceObjectClasses
|
||
Private g_nodename As String
|
||
Public g_ExecutionMode As String
|
||
Public g_DevNodename As String
|
||
Public KeyName As String
|
||
|
||
'输入输出值
|
||
Public G_input As String
|
||
Public G_Result As String
|
||
|
||
Private ParamDic As Dictionary(Of String， Dictionary(Of String, String))
|
||
Private Sub ActionParameter_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||
'时间
|
||
Dic_3 = New List(Of String)
|
||
'单位
|
||
Dic_4 = New List(Of String)
|
||
Dic_5 = New List(Of String)
|
||
ParamDic = New Dictionary(Of String, Dictionary(Of String, String))
|
||
' 第一个为默认值
|
||
For i = 0 To 255
|
||
If i < 11 AndAlso i > 0 Then
|
||
Dic_5.Add(i)
|
||
End If
|
||
Dic_3.Add(i)
|
||
Next
|
||
initCmdGrid()
|
||
'第一个为默认值
|
||
Dic_4.AddRange({"s", "ms", "m", "H", "Day"})
|
||
If String.IsNullOrEmpty(G_input) OrElse G_input.Equals("advanced") Then
|
||
Else
|
||
setrowdata(G_input)
|
||
End If
|
||
|
||
ComboBox1.SelectedIndex = 0 'Button4_Click(Nothing, Nothing)
|
||
End Sub
|
||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||
Dim buf() As String
|
||
G_Result = ""
|
||
Dim desc As String = String.Empty
|
||
Dim Resli As Dictionary(Of String, String)
|
||
If Not (CmdGrid.Rows > 1) Then
|
||
If MsgBox("No device method is selected！！", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
|
||
Me.DialogResult = System.Windows.Forms.DialogResult.OK
|
||
Me.Close()
|
||
Return
|
||
End If
|
||
Return
|
||
End If
|
||
|
||
Dim gparstr As String = String.Empty
|
||
For i = 1 To CmdGrid.Rows - 1
|
||
gparstr = CmdGrid.Cell(i, 2).Text
|
||
Resli = ParamDic.Item(gparstr)
|
||
For Each index In Resli
|
||
G_Result = $"{G_Result}{index.Value }{index.Key },{gparstr}{vbLf }"
|
||
Next
|
||
|
||
Next
|
||
If G_Result.Length > 0 Then
|
||
G_Result = G_Result.Substring(0, G_Result.Length - 1)
|
||
End If
|
||
|
||
Me.DialogResult = System.Windows.Forms.DialogResult.OK
|
||
Me.Close()
|
||
Return
|
||
End Sub
|
||
|
||
Public Sub GetEquipmentParameter(devtype As String, datastr As String, BasicClasses As DeviceObjectClasses)
|
||
|
||
If IsNothing(BasicClasses) Then
|
||
MsgBox("Base class loading failed！")
|
||
Return
|
||
End If
|
||
g_BasicClasses = BasicClasses
|
||
g_nodename = devtype
|
||
GetDevTypeParameter(devtype)
|
||
|
||
initTable()
|
||
|
||
AddTableRow()
|
||
ComboBox1.Items.AddRange(Dic_1.ToArray)
|
||
inittable2(Dic_1)
|
||
G_input = datastr
|
||
End Sub
|
||
|
||
Public Sub inittable2(li As List(Of String）)
|
||
If IsNothing(li) Then Return
|
||
Grid1.Rows = li.Count + 1
|
||
|
||
Grid1.Cols = 2
|
||
Grid1.ExtendLastCol = True
|
||
Grid1.Column(0).Visible = True
|
||
Grid1.Locked = True
|
||
Grid1.Cell(0, 1).Text = "Device method name"
|
||
For index = 0 To li.Count - 1
|
||
Grid1.Cell(index + 1, 1).Text = li.Item(index)
|
||
Next
|
||
|
||
End Sub
|
||
|
||
|
||
Private Sub setrowdata(datastr As String)
|
||
If String.IsNullOrEmpty(datastr) Then Return
|
||
Dim cmdpar() As String = datastr.Split(vbLf)
|
||
If IsNothing(cmdpar) OrElse cmdpar.Length = 0 Then Return
|
||
Dim bli As Dictionary(Of String, String)
|
||
For Each node In cmdpar
|
||
Dim bufstr() As String = node.Split(",")
|
||
Dim keystr As String = String.Empty
|
||
If bufstr.Length > 2 Then
|
||
keystr = $"{ bufstr(bufstr.Length - 1)}"
|
||
If ParamDic.ContainsKey(keystr) Then
|
||
bli = ParamDic.Item(keystr)
|
||
Dim cvstr As String = String.Empty
|
||
For Each nodeindex In bufstr
|
||
If nodeindex.Equals(bufstr(bufstr.Length - 2)) Then
|
||
Exit For
|
||
End If
|
||
cvstr = $"{cvstr}{nodeindex},"
|
||
Next
|
||
If cvstr.Length > 0 Then
|
||
bli.Add(bufstr(bufstr.Length - 2), cvstr)
|
||
End If
|
||
|
||
Else
|
||
bli = New Dictionary(Of String, String)
|
||
Dim cvstr As String = String.Empty
|
||
For Each nodeindex In bufstr
|
||
If nodeindex.Equals(bufstr(bufstr.Length - 2)) Then
|
||
Exit For
|
||
End If
|
||
cvstr = $"{cvstr}{nodeindex},"
|
||
Next
|
||
If cvstr.Length > 0 Then
|
||
bli.Add(bufstr(bufstr.Length - 2), cvstr)
|
||
ParamDic.Add(keystr, bli)
|
||
CmdGrid.AddItem("")
|
||
CmdGrid.Cell(CmdGrid.Rows - 1, 1).Text = bufstr(bufstr.Length - 2)
|
||
CmdGrid.Cell(CmdGrid.Rows - 1, 2).Text = bufstr(bufstr.Length - 1)
|
||
End If
|
||
End If
|
||
|
||
End If
|
||
|
||
Next
|
||
|
||
|
||
'Dim buf() As String = node.Split(",")
|
||
|
||
'For i = 0 To Dic_1.Count - 1
|
||
' Dim Index As String = Dic_1(i)
|
||
' If Index.Equals(buf(buf.Length - 1)) Then
|
||
' ComboBox1.SelectedIndex = i
|
||
' Exit For
|
||
' End If
|
||
'Next
|
||
|
||
|
||
'Dim timeint As Integer = -1
|
||
'Dim timecint As Integer = -1
|
||
|
||
'If Not (Integer.TryParse(buf(0), timeint) And Integer.TryParse(buf(1), timecint)) Then
|
||
' Return
|
||
'End If
|
||
'If Table_Grid1.Rows > 2 Then
|
||
' If timeint >= 0 OrElse timeint <= 255 Then
|
||
' Table_Grid1.Cell(1, 2).Text = timeint.ToString
|
||
' End If
|
||
' If timecint >= 1 OrElse timecint <= 5 Then
|
||
' Table_Grid1.Cell(2, 2).Text = FGetDelayUnit(timecint)
|
||
' End If
|
||
'End If
|
||
'Dim parbuf() As String
|
||
'If Not IsNothing(Dic_2) AndAlso Dic_2.Count > 0 Then
|
||
' If Table_Grid1.Rows > (Dic_2.Count) Then
|
||
|
||
' For i = 0 To Dic_2.Count - 3
|
||
' Dim li As List(Of String) = Dic_2.Item(Table_Grid1.Cell(i + 3, 1).Text)
|
||
' For Each strinf In li
|
||
' parbuf = strinf.Split(" ")
|
||
' If buf(2 + i).Equals(parbuf(0)) Then
|
||
' Table_Grid1.Cell(3 + i, 2).Text = strinf
|
||
' End If
|
||
' Next
|
||
|
||
' Next
|
||
' End If
|
||
'End If
|
||
|
||
|
||
|
||
End Sub
|
||
|
||
|
||
|
||
|
||
Private Sub AddTableRow()
|
||
' Table_Grid1.AddItem("")
|
||
'Table_Grid1.Cell(Table_Grid1.Rows - 1, 1).Text = "设备方法"
|
||
End Sub
|
||
|
||
Private Sub GetDevTypeParameter(devtype As String)
|
||
Dic_1 = New List(Of String)
|
||
For Each node In g_BasicClasses.DeviceClass
|
||
If node.Name.ToUpper.Equals(devtype) Then
|
||
For Each Anode In node.Methods
|
||
Dic_1.Add(Anode.Name)
|
||
Next
|
||
End If
|
||
Next
|
||
End Sub
|
||
|
||
Private Sub Table_Grid1_ComboDropDown(Sender As Object, e As Grid.ComboDropDownEventArgs) Handles Table_Grid1.ComboDropDown
|
||
If e.Row > 0 Then
|
||
Me.Table_Grid1.ComboBox(e.Col).Items.Clear()
|
||
Dim liname As String = Table_Grid1.Cell(e.Row, 1).Text
|
||
Dim li As List(Of String) = Dic_2.Item(liname)
|
||
Me.Table_Grid1.ComboBox(e.Col).Items.AddRange(li.ToArray)
|
||
End If
|
||
End Sub
|
||
|
||
|
||
|
||
Public Sub AddParameterrow()
|
||
Dim rcon As Integer = Table_Grid1.Rows - 1
|
||
Dim delete As Integer = 0
|
||
Dim nodename As String = ComboBox1.Text
|
||
Dic_2 = New Dictionary(Of String, List(Of String))
|
||
Dic_2.Clear()
|
||
For i = 0 To rcon
|
||
If i > 0 Then
|
||
Table_Grid1.Row(Table_Grid1.Rows - 1).Delete()
|
||
End If
|
||
Next
|
||
|
||
Dic_2.Add("Delay time", Dic_3)
|
||
Table_Grid1.AddItem("")
|
||
Table_Grid1.Cell(Table_Grid1.Rows - 1, 1).Text = "Delay time"
|
||
Table_Grid1.Cell(Table_Grid1.Rows - 1, 2).Text = "0"
|
||
Dic_2.Add("Delay unit", Dic_4)
|
||
Dic_2.Add("Volume value", Dic_5)
|
||
|
||
Table_Grid1.AddItem("")
|
||
Table_Grid1.Cell(Table_Grid1.Rows - 1, 1).Text = "Delay unit"
|
||
Table_Grid1.Cell(Table_Grid1.Rows - 1, 2).Text = "s"
|
||
For Each node In g_BasicClasses.DeviceClass
|
||
If node.Name.ToUpper.Equals(g_nodename) Then
|
||
For Each Anode In node.Methods
|
||
If Anode.Name.Equals(nodename) Then
|
||
|
||
For Each index In Anode.Params
|
||
Dim li As New List(Of String)
|
||
If index.Name.Equals("NULL") Then
|
||
li.Add(0)
|
||
|
||
Else
|
||
If index.DataType.Equals("List") Then
|
||
Dim tbuf() As String = index.DataRange.Split(",")
|
||
li.AddRange(tbuf)
|
||
li.Remove(tbuf(0))
|
||
li.Insert(0, tbuf（0）)
|
||
|
||
ElseIf index.DataType.Equals("Integer") Then
|
||
Dim buf() As String = index.DataRange.Split(",")
|
||
Dim startint As Integer = 0
|
||
Dim endint As Integer = 1
|
||
Integer.TryParse(buf(0), startint)
|
||
Integer.TryParse(buf(1), endint)
|
||
'li.Add(startint)
|
||
For i = startint To endint
|
||
li.Add(i)
|
||
Next
|
||
li.Remove(index.DataDefault)
|
||
li.Insert(0, index.DataDefault)
|
||
End If
|
||
End If
|
||
If Not Dic_2.ContainsKey(index.Name) Then
|
||
Dic_2.Add(index.Name, li)
|
||
End If
|
||
Table_Grid1.AddItem("")
|
||
Table_Grid1.Cell(Table_Grid1.Rows - 1, 1).Text = index.Name
|
||
Table_Grid1.Cell(Table_Grid1.Rows - 1, 2).Text = index.DataDefault
|
||
Next
|
||
Exit For
|
||
End If
|
||
Next
|
||
End If
|
||
Next
|
||
'Console.WriteLine(g_nodename)
|
||
'If g_nodename.ToUpper.Contains("MUSIC") Then
|
||
' Dim li As New List(Of String）
|
||
' For i = 0 To 100
|
||
' li.Add(i)
|
||
' Next
|
||
' Dic_2.Add("音量", li)
|
||
' Table_Grid1.AddItem("")
|
||
' Table_Grid1.Cell(Table_Grid1.Rows - 1, 1).Text = "音量"
|
||
' Table_Grid1.Cell(Table_Grid1.Rows - 1, 2).Text = "0"
|
||
'End If
|
||
|
||
|
||
End Sub
|
||
|
||
|
||
Public Sub initTable()
|
||
|
||
Table_Grid1.Rows = 1
|
||
Table_Grid1.Cols = 3
|
||
Table_Grid1.ExtendLastCol = True
|
||
Table_Grid1.DrawMode = DrawModeEnum.OwnerDraw
|
||
Table_Grid1.Cell(0, 1).Text = "Stats"
|
||
Table_Grid1.Cell(0, 2).Text = "Stats value"
|
||
' Table_Grid1.Cell(0, 3).Text = "设备端口"
|
||
Table_Grid1.Column(1).Width = 130
|
||
Table_Grid1.Column(2).Width = 100
|
||
Table_Grid1.Column(1).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
||
With Table_Grid1.Column(2)
|
||
.Alignment = FlexCell.AlignmentEnum.CenterCenter
|
||
.CellType = CellTypeEnum.ComboBox
|
||
End With
|
||
Table_Grid1.Column(1).Locked = True
|
||
'Table_Grid1.ComboBox（2）.Locked = True
|
||
End Sub
|
||
|
||
|
||
|
||
Private Function GetDelayUnit(str As String) As String
|
||
Dim result As Integer
|
||
Select Case str
|
||
Case "ms"
|
||
result = 1
|
||
Case "s"
|
||
result = 2
|
||
Case "m"
|
||
result = 3
|
||
Case "H"
|
||
result = 4
|
||
Case "Day"
|
||
result = 5
|
||
Case Else
|
||
result = 1
|
||
End Select
|
||
|
||
Return result.ToString
|
||
End Function
|
||
|
||
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
|
||
AddParameterrow()
|
||
Select Case g_nodename
|
||
Case "DIMMING", "RELAY", "Temp"， "PB_STRIP_DEVICE", "PB_LINE_CONTROL"
|
||
'For i = 2 To Grid1.Rows - 1
|
||
' Grid1.Row(Grid1.Rows - 1).Delete()
|
||
'Next
|
||
'Select Case ComboBox1.Text
|
||
' Case "循环调光", "开关机功能" ', "控制灯光",
|
||
' If Table_Grid1.Rows > 3 Then
|
||
' Table_Grid1.Row(3).Visible = False
|
||
' End If
|
||
|
||
'End Select
|
||
Case "MUSIC"
|
||
Dim ExecutionModebuf() = g_ExecutionMode.Split(",")
|
||
If ExecutionModebuf.Length > 2 Then
|
||
Dim row As Integer
|
||
Dim roC As Integer = Grid1.Rows - 1
|
||
Dim strE As String
|
||
For i = 0 To roC
|
||
row = roC - i
|
||
strE = Grid1.Cell(row, 1).Text
|
||
Console.WriteLine(strE)
|
||
Select Case strE
|
||
Case "设置播放音量", "设置全局百分比", "设置开关机"
|
||
Grid1.Row(row).Delete()
|
||
End Select
|
||
'If g_DevNodename.Equals("HOSTSERVICE") AndAlso ExecutionModebuf(1).Equals("1") Then
|
||
' If strE.Contains("欢迎词") OrElse strE.Contains("提示音") Then
|
||
' Continue For
|
||
' Else
|
||
' If row >= Grid1.Rows Then
|
||
' Continue For
|
||
' End If
|
||
' Grid1.Row(row).Delete()
|
||
' End If
|
||
|
||
'Else
|
||
' Select Case ExecutionModebuf(1)
|
||
' Case "6"
|
||
' If strE.Contains("助眠") OrElse strE.Contains("提示音") Then
|
||
' Continue For
|
||
' Else
|
||
' If row >= Grid1.Rows Then
|
||
' Continue For
|
||
' End If
|
||
' Grid1.Row(row).Delete()
|
||
' End If
|
||
' Case Else
|
||
' If strE.Contains("助眠") Then
|
||
' Grid1.Row(row).Delete()
|
||
' End If
|
||
' If (KeyName.Equals("插卡") OrElse KeyName.Equals("拔卡")) AndAlso strE.Contains("播放门铃") Then
|
||
' Grid1.Row(row).Delete()
|
||
' End If
|
||
' End Select
|
||
|
||
'End If
|
||
|
||
Next
|
||
|
||
|
||
Select Case ComboBox1.Text
|
||
Case "播放提示音"， "播放助眠"， "播放助眠冥想", "播放助眠海浪", "播放助眠森林"
|
||
Table_Grid1.Row(4).Visible = False
|
||
'Table_Grid1.Row(3).Visible = False
|
||
Case "设置播放状态", "设置播放状态1"， "按键控制播放音量"
|
||
Table_Grid1.Row(3).Visible = False
|
||
Case "播放音乐"
|
||
Table_Grid1.Row(3).Visible = False
|
||
Case "设置全局百分比"
|
||
Case "设置开关机"
|
||
Case "播放门铃", "播放欢迎词"
|
||
Table_Grid1.Row(4).Visible = False
|
||
Table_Grid1.Row(3).Visible = False
|
||
Case "小宝功能设置"
|
||
Table_Grid1.Row(4).Visible = False
|
||
Table_Grid1.Row(5).Visible = False
|
||
Case "小宝音量设置"
|
||
Table_Grid1.Row(4).Visible = False
|
||
End Select
|
||
|
||
End If
|
||
Case "485MUSIC"
|
||
Dim row As Integer
|
||
Dim roC As Integer = Grid1.Rows - 1
|
||
Dim strE As String
|
||
If Grid1.Rows > 2 Then
|
||
For i = 0 To roC
|
||
row = roC - i
|
||
strE = Grid1.Cell(row, 1).Text
|
||
If Not strE.Contains("华尔思音乐控制") Then
|
||
Grid1.Row(row).Delete()
|
||
End If
|
||
|
||
Next
|
||
End If
|
||
|
||
Case "485FRESHAIR"
|
||
Dim strE As String = String.Empty
|
||
Dim Estrbuf As New List(Of String)
|
||
Estrbuf.Add("3 风速高速")
|
||
Estrbuf.Add("2 风速中速")
|
||
Estrbuf.Add("1 风速低速")
|
||
Grid1.Row(Grid1.Rows - 1).Delete()
|
||
strE = Grid1.Cell(1, 1).Text
|
||
If strE.Equals("开关机功能") Then
|
||
Table_Grid1.Row(3).Visible = False
|
||
Table_Grid1.AddItem("")
|
||
Dic_2.Add("设置风速", Estrbuf)
|
||
Table_Grid1.Cell(Table_Grid1.Rows - 1, 1).Text = "设置风速"
|
||
|
||
End If
|
||
|
||
Case "485FloorHeat".ToUpper
|
||
Dim strE As String = String.Empty
|
||
Dim Estrbuf As New List(Of String)
|
||
For i = 16 To 32
|
||
Estrbuf.Add(i)
|
||
Next
|
||
Grid1.Row(Grid1.Rows - 1).Delete()
|
||
strE = Grid1.Cell(1, 1).Text
|
||
If strE.Equals("开关机功能") Then
|
||
Table_Grid1.Row(3).Visible = False
|
||
|
||
Table_Grid1.AddItem("")
|
||
Dic_2.Add("设置温度", Estrbuf)
|
||
Table_Grid1.Cell(Table_Grid1.Rows - 1, 1).Text = "设置温度"
|
||
|
||
End If
|
||
|
||
|
||
End Select
|
||
|
||
|
||
Select Case ComboBox1.Text
|
||
Case "控制温控器"
|
||
If Table_Grid1.Rows > 6 Then
|
||
Table_Grid1.Row(6).Visible = False
|
||
End If
|
||
End Select
|
||
End Sub
|
||
Public oldrow As Integer = 0
|
||
Private Sub Grid1_Click(Sender As Object, e As EventArgs) Handles Grid1.Click
|
||
If Grid1.ActiveCell.Row > 0 Then
|
||
Grid1.Cell(oldrow, 1).BackColor = Color.White
|
||
For Index = 0 To ComboBox1.Items.Count - 1
|
||
If ComboBox1.Items(Index).ToString.Equals(Grid1.Cell(Grid1.ActiveCell.Row, 1).Text) Then
|
||
ComboBox1.SelectedIndex = Index
|
||
Grid1.Cell(Grid1.ActiveCell.Row, 1).BackColor = Color.LightBlue
|
||
oldrow = Grid1.ActiveCell.Row
|
||
End If
|
||
|
||
Next
|
||
|
||
End If
|
||
|
||
End Sub
|
||
Public IsCellChange As Boolean
|
||
Private Sub Table_Grid1_CellChange(Sender As Object, e As Grid.CellChangeEventArgs) Handles Table_Grid1.CellChange
|
||
|
||
|
||
If e.Row > 0 AndAlso IsCellChange = False Then
|
||
|
||
Dim liname As String = Table_Grid1.Cell(e.Row, 1).Text
|
||
Dim lival As String = Table_Grid1.Cell(e.Row, 2).Text
|
||
Dim li As List(Of String) = Dic_2.Item(liname)
|
||
|
||
For Each index In li
|
||
If index.Equals(lival) Then
|
||
Return
|
||
End If
|
||
Next
|
||
|
||
Table_Grid1.Cell(e.Row, 2).Text = li(0)
|
||
|
||
End If
|
||
|
||
|
||
|
||
End Sub
|
||
|
||
Private Function FGetDelayUnit(str As String) As String
|
||
Dim result As String = String.Empty
|
||
Select Case str
|
||
Case "1"
|
||
result = "毫秒"
|
||
Case "2"
|
||
result = "秒"
|
||
Case "3"
|
||
result = "分钟"
|
||
Case "4"
|
||
result = "小时"
|
||
Case "5"
|
||
result = "天"
|
||
Case Else
|
||
|
||
End Select
|
||
|
||
Return result.ToString
|
||
End Function
|
||
|
||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||
If Table_Grid1.Rows > 0 Then
|
||
Dim buf() As String
|
||
Dim Result As String = String.Empty
|
||
Dim displystr As String = String.Empty
|
||
Dim Resli As New Dictionary(Of String, String)
|
||
If Not (Table_Grid1.Rows > 1) Then
|
||
MsgBox("未选择设备方法！！")
|
||
Return
|
||
End If
|
||
For i = 1 To Table_Grid1.Rows - 1
|
||
If String.IsNullOrEmpty(Table_Grid1.Cell(i, 2).Text) Then
|
||
MsgBox($"第{i}行，方法参数为空！！")
|
||
Return
|
||
End If
|
||
If Table_Grid1.Row(i).Visible = True Then
|
||
displystr = $"{displystr}{Table_Grid1.Cell(i, 2).Text}*"
|
||
End If
|
||
|
||
Select Case g_nodename
|
||
Case "485FRESHAIR"
|
||
If i = Table_Grid1.Rows - 1 Then
|
||
Dim ti As String = Table_Grid1.Cell(1, 2).Text
|
||
Dim tid As String = Table_Grid1.Cell(2, 2).Text
|
||
buf = tid.Split(" ")
|
||
Dim tidv As String = Table_Grid1.Cell(i, 2).Text
|
||
Dim bufv = tidv.Split(" ")
|
||
|
||
Dim addinten = $"{ti},{GetDelayUnit(buf(0))},4,{bufv(0)},"
|
||
|
||
Resli.Add("设置风速功能", addinten)
|
||
Continue For
|
||
End If
|
||
Case "485FloorHeat".ToUpper
|
||
If i = Table_Grid1.Rows - 1 Then
|
||
Dim ti As String = Table_Grid1.Cell(1, 2).Text
|
||
Dim tid As String = Table_Grid1.Cell(2, 2).Text
|
||
buf = tid.Split(" ")
|
||
Dim tidv As String = Table_Grid1.Cell(i, 2).Text
|
||
Dim bufv = tidv.Split(" ")
|
||
Dim addinten = $"{ti},{GetDelayUnit(buf(0))},3,{bufv(0)},"
|
||
Resli.Add("设置温度功能", addinten)
|
||
Continue For
|
||
End If
|
||
End Select
|
||
|
||
|
||
buf = Table_Grid1.Cell(i, 2).Text.Split(" ")
|
||
|
||
|
||
If i = 2 Then
|
||
Result = $"{Result}{GetDelayUnit(buf(0))},"
|
||
Else
|
||
Result = $"{Result}{buf(0)},"
|
||
End If
|
||
|
||
Next
|
||
|
||
Resli.Add(ComboBox1.Text, Result)
|
||
If Not String.IsNullOrEmpty(displystr) Then
|
||
displystr = displystr.Substring(0, displystr.Length - 1)
|
||
End If
|
||
If ParamDic.ContainsKey(displystr.Trim) Then
|
||
MsgBox("已添加相同指令！请勿重复添加！")
|
||
Return
|
||
Else
|
||
ParamDic.Add(displystr.Trim, Resli)
|
||
End If
|
||
|
||
If Resli.Count > 0 Then
|
||
'Result = $"{G_Result}{ComboBox1.Text }"
|
||
' For Each index In Resli
|
||
CmdGrid.AddItem("")
|
||
CmdGrid.Cell(CmdGrid.Rows - 1, 1).Text = ComboBox1.Text
|
||
|
||
CmdGrid.Cell(CmdGrid.Rows - 1, 2).Text = displystr.Trim
|
||
'CmdGrid.Cell(CmdGrid.Rows - 1, 2).Text = index.Value.Substring(0, index.Value.Length - 1)
|
||
' Next
|
||
|
||
End If
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||
If CmdGrid.ActiveCell.Row > 0 Then
|
||
Dim gparstr = CmdGrid.Cell(CmdGrid.ActiveCell.Row, 2).Text
|
||
If String.IsNullOrEmpty(gparstr) OrElse IsNothing(ParamDic) OrElse Not ParamDic.ContainsKey(gparstr) Then
|
||
Else
|
||
ParamDic.Remove(gparstr)
|
||
End If
|
||
|
||
CmdGrid.Row(CmdGrid.ActiveCell.Row).Delete()
|
||
End If
|
||
End Sub
|
||
Public CmdGridoldrow As Integer = 0
|
||
Private Sub CmdGrid_Click(Sender As Object, e As EventArgs) Handles CmdGrid.Click
|
||
If CmdGrid.ActiveCell.Row > 0 AndAlso CmdGridoldrow < CmdGrid.ActiveCell.Row Then
|
||
CmdGrid.Range(CmdGridoldrow, 0, CmdGridoldrow, 2).BackColor = Color.White
|
||
CmdGrid.Range(CmdGrid.ActiveCell.Row, 0, CmdGrid.ActiveCell.Row, 2).BackColor = Color.LightBlue
|
||
CmdGridoldrow = CmdGrid.ActiveCell.Row
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
||
Dim b As Boolean
|
||
If Button4.Text.Equals("显示") Then
|
||
Button4.Text = "隐藏"
|
||
b = True
|
||
Else
|
||
Button4.Text = "显示"
|
||
If Grid1.Rows > 1 Then
|
||
Grid1.Cell(1, 1).SetFocus()
|
||
Grid1_Click(Nothing, Nothing)
|
||
End If
|
||
|
||
b = False
|
||
End If
|
||
For i = 2 To Grid1.Rows - 1
|
||
Grid1.Row(i).Visible = b
|
||
Next
|
||
|
||
End Sub
|
||
|
||
Private Sub Table_Grid1_OwnerDrawCell(Sender As Object, e As Grid.OwnerDrawCellEventArgs) Handles Table_Grid1.OwnerDrawCell
|
||
If e.Row < 1 OrElse e.Col < 1 Then Return
|
||
|
||
If e.Col = 2 Then
|
||
|
||
Try
|
||
Dim pen As New System.Drawing.Pen(Color.CornflowerBlue, 1)
|
||
pen.DashStyle = Drawing2D.DashStyle.Solid
|
||
|
||
|
||
Dim Trect As New Rectangle(e.Bounds.Right - 15, CInt(e.Bounds.Top + ((e.Bounds.Height - 9) / 2)), 8, 8)
|
||
Dim rect As New Rectangle(e.Bounds.Right - 18, CInt(e.Bounds.Top), 17, (e.Bounds.Height))
|
||
e.Graphics.FillRectangle(Brushes.LightGray, rect)
|
||
e.Graphics.DrawRectangle(Pens.LightGray, rect)
|
||
|
||
e.Graphics.DrawLine(Pens.Gray, Trect.Left, Trect.Top + 4, Trect.Left + 4, Trect.Bottom)
|
||
e.Graphics.DrawLine(Pens.Gray, Trect.Left + 4, Trect.Bottom, Trect.Right, Trect.Top + 4)
|
||
|
||
e.Graphics.DrawLine(Pens.Gray, Trect.Left, Trect.Top + 3, Trect.Left + 4, Trect.Bottom - 1)
|
||
e.Graphics.DrawLine(Pens.Gray, Trect.Left + 4, Trect.Bottom - 1, Trect.Right, Trect.Top + 3)
|
||
|
||
|
||
' '文字
|
||
Dim bColor As New SolidBrush(Table_Grid1.Cell(e.Row, e.Col).ForeColor)
|
||
bColor.Color = Color.Black
|
||
With Table_Grid1.Cell(e.Row, e.Col)
|
||
|
||
Dim ft = .Font
|
||
e.Graphics.DrawString(.Text, ft, bColor, e.Bounds.Left, e.Bounds.Top + (e.Bounds.Height - e.Graphics.MeasureString(.Text, .Font).Height) / 2 + 1)
|
||
|
||
End With
|
||
|
||
|
||
Catch ex As Exception
|
||
|
||
End Try
|
||
e.Handled = True
|
||
Else
|
||
Return
|
||
End If
|
||
|
||
End Sub
|
||
|
||
Private Sub Table_Grid1_CellChanging(Sender As Object, e As CellChangingEventArgs) Handles Table_Grid1.CellChanging
|
||
If ComboBox1.Text.Equals("播放提示音") AndAlso Table_Grid1.Rows > 5 Then
|
||
|
||
If (Table_Grid1.Cell(3, 2).Text.Equals("2 播放(提示音)") OrElse Table_Grid1.Cell(3, 2).Text.Equals("1 静音(提示音)")) Then
|
||
Table_Grid1.Row(5).Visible = False
|
||
Else
|
||
Table_Grid1.Row(5).Visible = True
|
||
End If
|
||
IsCellChange = True
|
||
If e.Row = 3 Then
|
||
|
||
If (Table_Grid1.Cell(3, 2).Text.Equals("5 音量加") OrElse Table_Grid1.Cell(3, 2).Text.Equals("6 音量减")) Then
|
||
Table_Grid1.Cell(5, 2).Text = Dic_2.Item("音量值")(0)
|
||
Table_Grid1.Cell(5, 1).Text = "音量值"
|
||
|
||
Else
|
||
Table_Grid1.Cell(5, 2).Text = Dic_2.Item("播放文件序号").Item(0)
|
||
Table_Grid1.Cell(5, 1).Text = "播放文件序号"
|
||
End If
|
||
End If
|
||
IsCellChange = False
|
||
|
||
ElseIf ComboBox1.Text.Equals("播放音乐") AndAlso Table_Grid1.Rows > 5 AndAlso IsCellChange = False Then
|
||
|
||
If (Table_Grid1.Cell(4, 2).Text.Equals("5 音量加") OrElse Table_Grid1.Cell(4, 2).Text.Equals("6 音量减")) Then
|
||
Table_Grid1.Row(5).Visible = True
|
||
Else
|
||
Table_Grid1.Row(5).Visible = False
|
||
End If
|
||
|
||
ElseIf ComboBox1.Text.Equals("华尔思音乐控制") AndAlso Table_Grid1.Rows > 6 Then
|
||
If Table_Grid1.Cell(3, 2).Text.Equals("2 关机") Then
|
||
For i As Integer = 4 To Table_Grid1.Rows - 1
|
||
Table_Grid1.Row(i).Visible = False
|
||
Next
|
||
Else
|
||
For i As Integer = 4 To Table_Grid1.Rows - 2
|
||
Table_Grid1.Row(i).Visible = True
|
||
Next
|
||
If Table_Grid1.Cell(5, 2).Text.Contains("音量") Then
|
||
Table_Grid1.Row(6).Visible = True
|
||
Else
|
||
Table_Grid1.Row(6).Visible = False
|
||
End If
|
||
End If
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Table_Grid1_Click(Sender As Object, e As EventArgs) Handles Table_Grid1.Click
|
||
|
||
Try
|
||
Dim point As Point = Table_Grid1.PointToClient(System.Windows.Forms.Cursor.Position)
|
||
|
||
Dim cel As Cell = Table_Grid1.HitTest(point.X, point.Y)
|
||
|
||
If cel Is Nothing Then Return
|
||
|
||
|
||
If cel.Row < 1 OrElse cel.Col <> 2 Then Return
|
||
|
||
|
||
|
||
Dim rect As New Rectangle(cel.Bounds.Right - 18, CInt(cel.Bounds.Top), 17, (cel.Bounds.Height))
|
||
'Dim rect As New Rectangle(cel.Bounds.Left + 2, cel.Bounds.Top + ((cel.Bounds.Height - 9) \ 2), 8, 8)
|
||
If rect.Contains(point) = False Then Return
|
||
Table_Grid1.Cell(cel.Row, cel.Col).SetFocus()
|
||
Table_Grid1.ComboBox(cel.Col).DropDown()
|
||
|
||
Catch ex As Exception
|
||
Console.WriteLine($"Grid_Click Error:{ex.Message}")
|
||
End Try
|
||
|
||
|
||
End Sub
|
||
|
||
Public Shared Function CheckDataIsOk(devtype As String， datastr As String, BasicClasses As DeviceObjectClasses) As Boolean
|
||
If String.IsNullOrEmpty(datastr) Then Return True
|
||
Dim cmdpar() As String = datastr.Split(vbLf)
|
||
|
||
For Each FPnode In cmdpar
|
||
|
||
Dim buf() As String = FPnode.Split(",")
|
||
Dim timeint As Integer = -1
|
||
Dim timecint As Integer = -1
|
||
If buf.Length < 2 Then Return False
|
||
If Not (Integer.TryParse(buf(0), timeint) And Integer.TryParse(buf(1), timecint)) Then
|
||
Return False
|
||
End If
|
||
|
||
If timeint < 0 OrElse timeint > 255 Then
|
||
Return False
|
||
End If
|
||
If timecint < 1 OrElse timecint > 5 Then
|
||
Return False
|
||
End If
|
||
Dim namebuf() As String
|
||
Dim Anamebuf() As String
|
||
Dim isok As Boolean = False
|
||
For Each node In BasicClasses.DeviceClass
|
||
If node.Name.ToUpper.Equals(devtype) Then
|
||
For Each Anode In node.Methods
|
||
If Anode.Name.Equals(buf(buf.Length - 2).Trim) Then
|
||
If (buf.Length - 4) = Anode.Params.Count Then
|
||
For inex = 0 To Anode.Params.Count - 1
|
||
Dim Index As DeviceChildNodeMethodParam = Anode.Params(inex)
|
||
Dim li As New List(Of String)
|
||
isok = False
|
||
If Index.Name.Equals（"无"） And buf（2 + inex) = 0 Then
|
||
Continue For
|
||
End If
|
||
If Index.DataType.Equals("List") Then
|
||
namebuf = Index.DataRange.Split(",")
|
||
For Each cindex In namebuf
|
||
Anamebuf = cindex.Split(" ")
|
||
If Anamebuf(0).Equals(buf（2 + inex)） Then
|
||
isok = True
|
||
Exit For
|
||
End If
|
||
Next
|
||
If isok Then
|
||
Continue For
|
||
Else
|
||
Return False
|
||
End If
|
||
|
||
ElseIf Index.DataType.Equals("Integer") Then
|
||
Dim parbuf() As String = Index.DataRange.Split(",")
|
||
Dim startint As Integer = 0
|
||
Dim endint As Integer = 1
|
||
Dim parint As Integer = -1
|
||
Integer.TryParse(parbuf(0), startint)
|
||
Integer.TryParse(parbuf(1), endint)
|
||
Integer.TryParse(buf（2 + inex), parint)
|
||
If parint >= startint AndAlso parint <= endint Then
|
||
Continue For
|
||
Else
|
||
Return False
|
||
End If
|
||
End If
|
||
Next
|
||
Return True
|
||
Else
|
||
Return False
|
||
End If
|
||
|
||
End If
|
||
Next
|
||
Return False
|
||
End If
|
||
|
||
Next
|
||
Next
|
||
Return False
|
||
End Function
|
||
|
||
|
||
Private Sub initCmdGrid()
|
||
With CmdGrid
|
||
.NewFile()
|
||
.Cols = 3
|
||
.Rows = 1
|
||
.ExtendLastCol = True
|
||
.Cell(0, 1).Text = "Device method name"
|
||
' .Cell(0, 2).Text = "方法参数值"
|
||
.Cell(0, 2).Text = "Parameter description"
|
||
'Table_Grid1.Cell(0, 3).Text = "设备端口"
|
||
.Column(1).Width = 130
|
||
.Column(2).Width = 100
|
||
.Column(1).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
||
.Column(2).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
||
.Column(1).Locked = True
|
||
.Column（2）.Locked = True
|
||
.SelectionMode = SelectionModeEnum.ByCell
|
||
End With
|
||
End Sub
|
||
|
||
|
||
End Class |