UTS/AUTS_OLD
Archived
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

新增导航功能，节点操作支持多行操作

Browse Source
This commit is contained in:
dk02ssq
2025-04-09 19:59:49 +08:00
parent 501fa77e5a
commit 9da8e6fecd
32 changed files with 1326 additions and 953 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
AUTS_Win/bin/Debug/AUTS_Win.exe
View File

Binary file not shown.

BIN
AUTS_Win/bin/Debug/AUTS_Win.pdb
View File

Binary file not shown.

BIN
AUTS_Win/bin/Debug/UTS_Core.dll
View File

Binary file not shown.

BIN
AUTS_Win/bin/Debug/UTS_Core.pdb
View File

Binary file not shown.

73
AUTS_Win/bin/Debug/UTS_Core.xml
View File

@@ -6106,6 +6106,35 @@ UTS_Core
对第二行的Action执行一遍操作，以触发更新事件
</summary>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.BackwardNavigation">
<summary>
向后导航
</summary>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.ForwardNavigation">
<summary>
向前导航
</summary>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.CanBackward">
<summary>
是否可以后退
</summary>
<returns></returns>
<remarks></remarks>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.CanForward">
<summary>
是否可以前进
</summary>
<returns></returns>
<remarks></remarks>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.ClearNavigation">
<summary>
</summary>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.Grid_MouseLeave(System.Object,System.EventArgs)">
<summary>
光标离开grd表格时，黄色底色切换到选中行
@@ -6228,12 +6257,12 @@ UTS_Core
</summary>
<param name="node"></param>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveLeft(System.Int32)">
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveLeft(System.Int32,System.Int32)">
<summary>
节点升级
</summary>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveRight(System.Int32)">
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveRight(System.Int32,System.Int32)">
<summary>
节点降级
</summary>
@@ -9774,6 +9803,46 @@ UTS系列App与UtsCore交互为避免重复书写产生的中间类
</summary>
<returns></returns>
</member>
<member name="P:UTS_Core.GridNavigationManager.IsRunning">
<summary>
是否正在执行导航操作
</summary>
<remarks></remarks>
</member>
<member name="P:UTS_Core.GridNavigationManager.CanForward">
<summary>
是否可以后退
</summary>
<returns></returns>
</member>
<member name="P:UTS_Core.GridNavigationManager.CanBackward">
<summary>
是否可以前进
</summary>
<returns></returns>
<remarks></remarks>
</member>
<member name="M:UTS_Core.GridNavigationManager.Append(UTS_Core.INavigation)">
<summary>
添加导航
<param name="navigation">导航</param>
</summary>
</member>
<member name="M:UTS_Core.GridNavigationManager.RemoveForward">
<summary>
</summary>
</member>
<member name="M:UTS_Core.INavigation.Backward">
<summary>
向后导航
</summary>
</member>
<member name="M:UTS_Core.INavigation.Forward">
<summary>
向前导航
</summary>
</member>
<member name="M:UTS_Core.utsLabel.RunMode">
<summary>
解析模式，并且确定有关参数

BIN
AUTS_Win/obj/Debug/AUTS_Win.exe
View File

Binary file not shown.

BIN
AUTS_Win/obj/Debug/AUTS_Win.pdb
View File

Binary file not shown.

BIN
AUTS_Win/obj/Debug/AUTS_Win.vbproj.AssemblyReference.cache
View File

Binary file not shown.

255
UTS_Core/UTSModule/Station/FrmStationPlan.Designer.vb generated
View File

@@ -38,11 +38,9 @@ Namespace UTSModule.Station
Me.tsBtnInsertRow = New System.Windows.Forms.ToolStripButton()
Me.tsBtnRemoveRow = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator13 = New System.Windows.Forms.ToolStripSeparator()
Me.TsBtnCopyWholeRow = New System.Windows.Forms.ToolStripButton()
Me.TsBtnPasteWholdRows = New System.Windows.Forms.ToolStripButton()
Me.TsBtnBackward = New System.Windows.Forms.ToolStripButton()
Me.TsBtnForward = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator14 = New System.Windows.Forms.ToolStripSeparator()
Me.TsBtnClearAll = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.TsBtnMoveUp = New System.Windows.Forms.ToolStripButton()
Me.TsBtnMoveDown = New System.Windows.Forms.ToolStripButton()
Me.TsBtnMoveLeft = New System.Windows.Forms.ToolStripButton()
@@ -64,15 +62,7 @@ Namespace UTSModule.Station
Me.GrpStationPlan = New System.Windows.Forms.GroupBox()
Me.GrdStationPlan = New FlexCell.Grid()
Me.CmsPlanGrid = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.MsiCopyNode = New System.Windows.Forms.ToolStripMenuItem()
Me.MsiCutNode = New System.Windows.Forms.ToolStripMenuItem()
Me.MsiNodePaste = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
Me.MsiCopyWholeRow = New System.Windows.Forms.ToolStripMenuItem()
Me.MsiPasteWholeRow = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator()
Me.MsiGridRowBlockInsert = New System.Windows.Forms.ToolStripMenuItem()
Me.tsBtn_InsertChildNode = New System.Windows.Forms.ToolStripMenuItem()
Me.MsiGridRowBlockDelete = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
Me.tsBtn_CheckAction = New System.Windows.Forms.ToolStripMenuItem()
@@ -105,31 +95,31 @@ Namespace UTSModule.Station
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TpOutputInfo = New System.Windows.Forms.TabPage()
Me.RtxOutputInfo = New System.Windows.Forms.RichTextBox()
Me.ToolStrip1.SuspendLayout
Me.StuMain.SuspendLayout
CType(Me.SplStationPlan,System.ComponentModel.ISupportInitialize).BeginInit
Me.SplStationPlan.Panel1.SuspendLayout
Me.SplStationPlan.Panel2.SuspendLayout
Me.SplStationPlan.SuspendLayout
CType(Me.SplPlanDesign,System.ComponentModel.ISupportInitialize).BeginInit
Me.SplPlanDesign.Panel1.SuspendLayout
Me.SplPlanDesign.Panel2.SuspendLayout
Me.SplPlanDesign.SuspendLayout
Me.GrpStationPlan.SuspendLayout
Me.CmsPlanGrid.SuspendLayout
Me.GrpSingleRowInfo.SuspendLayout
CType(Me.SplitContainer1,System.ComponentModel.ISupportInitialize).BeginInit
Me.SplitContainer1.Panel1.SuspendLayout
Me.SplitContainer1.Panel2.SuspendLayout
Me.SplitContainer1.SuspendLayout
Me.GrpOutputInfo.SuspendLayout
Me.TabControl1.SuspendLayout
Me.TpOutputInfo.SuspendLayout
Me.SuspendLayout
Me.ToolStrip1.SuspendLayout()
Me.StuMain.SuspendLayout()
CType(Me.SplStationPlan, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplStationPlan.Panel1.SuspendLayout()
Me.SplStationPlan.Panel2.SuspendLayout()
Me.SplStationPlan.SuspendLayout()
CType(Me.SplPlanDesign, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplPlanDesign.Panel1.SuspendLayout()
Me.SplPlanDesign.Panel2.SuspendLayout()
Me.SplPlanDesign.SuspendLayout()
Me.GrpStationPlan.SuspendLayout()
Me.CmsPlanGrid.SuspendLayout()
Me.GrpSingleRowInfo.SuspendLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout()
Me.GrpOutputInfo.SuspendLayout()
Me.TabControl1.SuspendLayout()
Me.TpOutputInfo.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TsBtnOpen, Me.TsBtnSave, Me.ToolStripSeparator4, Me.TsBtnLoad, Me.TsBtnSaveAs, Me.ToolStripSeparator3, Me.tsBtnInsertRow, Me.tsBtnRemoveRow, Me.ToolStripSeparator13, Me.TsBtnCopyWholeRow, Me.TsBtnPasteWholdRows, Me.ToolStripSeparator14, Me.TsBtnClearAll, Me.ToolStripSeparator1, Me.TsBtnMoveUp, Me.TsBtnMoveDown, Me.TsBtnMoveLeft, Me.TsBtnMoveRight, Me.ToolStripSeparator2, Me.TsBtnDebugMode, Me.TsBtnDebugStart, Me.TsBtnFailMode, Me.ToolStripSeparator10, Me.tslBtn_ActionOnly, Me.TsBtn_Record, Me.TsBtn_ExpandNode})
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TsBtnOpen, Me.TsBtnSave, Me.ToolStripSeparator4, Me.TsBtnLoad, Me.TsBtnSaveAs, Me.ToolStripSeparator3, Me.TsBtnBackward, Me.TsBtnForward, Me.ToolStripSeparator13, Me.tsBtnInsertRow, Me.tsBtnRemoveRow, Me.ToolStripSeparator14, Me.TsBtnMoveUp, Me.TsBtnMoveDown, Me.TsBtnMoveLeft, Me.TsBtnMoveRight, Me.ToolStripSeparator2, Me.TsBtnDebugMode, Me.TsBtnDebugStart, Me.TsBtnFailMode, Me.ToolStripSeparator10, Me.tslBtn_ActionOnly, Me.TsBtn_Record, Me.TsBtn_ExpandNode})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(977, 40)
@@ -209,47 +199,32 @@ Namespace UTSModule.Station
Me.ToolStripSeparator13.Name = "ToolStripSeparator13"
Me.ToolStripSeparator13.Size = New System.Drawing.Size(6, 40)
'
'TsBtnCopyWholeRow
'TsBtnBackward
'
Me.TsBtnCopyWholeRow.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
Me.TsBtnCopyWholeRow.Image = CType(resources.GetObject("TsBtnCopyWholeRow.Image"),System.Drawing.Image)
Me.TsBtnCopyWholeRow.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TsBtnCopyWholeRow.Name = "TsBtnCopyWholeRow"
Me.TsBtnCopyWholeRow.Size = New System.Drawing.Size(59, 37)
Me.TsBtnCopyWholeRow.Text = "整行复制"
Me.TsBtnCopyWholeRow.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.TsBtnBackward.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.TsBtnBackward.Image = CType(resources.GetObject("TsBtnBackward.Image"), System.Drawing.Image)
Me.TsBtnBackward.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TsBtnBackward.Name = "TsBtnBackward"
Me.TsBtnBackward.Size = New System.Drawing.Size(59, 37)
Me.TsBtnBackward.Text = "向后导航"
Me.TsBtnBackward.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'TsBtnPasteWholdRows
'TsBtnForward
'
Me.TsBtnPasteWholdRows.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
Me.TsBtnPasteWholdRows.Image = CType(resources.GetObject("TsBtnPasteWholdRows.Image"),System.Drawing.Image)
Me.TsBtnPasteWholdRows.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TsBtnPasteWholdRows.Name = "TsBtnPasteWholdRows"
Me.TsBtnPasteWholdRows.Size = New System.Drawing.Size(59, 37)
Me.TsBtnPasteWholdRows.Text = "插入粘贴"
Me.TsBtnPasteWholdRows.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.TsBtnPasteWholdRows.ToolTipText = "整行插入复制"
Me.TsBtnForward.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.TsBtnForward.Image = CType(resources.GetObject("TsBtnForward.Image"), System.Drawing.Image)
Me.TsBtnForward.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TsBtnForward.Name = "TsBtnForward"
Me.TsBtnForward.Size = New System.Drawing.Size(59, 37)
Me.TsBtnForward.Text = "向前导航"
Me.TsBtnForward.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.TsBtnForward.ToolTipText = "向前导航"
'
'ToolStripSeparator14
'
Me.ToolStripSeparator14.Name = "ToolStripSeparator14"
Me.ToolStripSeparator14.Size = New System.Drawing.Size(6, 40)
'
'TsBtnClearAll
'
Me.TsBtnClearAll.Enabled = false
Me.TsBtnClearAll.Image = CType(resources.GetObject("TsBtnClearAll.Image"),System.Drawing.Image)
Me.TsBtnClearAll.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TsBtnClearAll.Name = "TsBtnClearAll"
Me.TsBtnClearAll.Size = New System.Drawing.Size(60, 37)
Me.TsBtnClearAll.Text = "清空节点"
Me.TsBtnClearAll.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 40)
'
'TsBtnMoveUp
'
Me.TsBtnMoveUp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
@@ -365,14 +340,14 @@ Namespace UTSModule.Station
'
'TssLblTestStatus
'
Me.TssLblTestStatus.AutoSize = false
Me.TssLblTestStatus.AutoSize = False
Me.TssLblTestStatus.Name = "TssLblTestStatus"
Me.TssLblTestStatus.Size = New System.Drawing.Size(120, 17)
Me.TssLblTestStatus.Text = "测试状态"
'
'TssLblTestTime
'
Me.TssLblTestTime.AutoSize = false
Me.TssLblTestTime.AutoSize = False
Me.TssLblTestTime.ForeColor = System.Drawing.Color.Green
Me.TssLblTestTime.Name = "TssLblTestTime"
Me.TssLblTestTime.Overflow = System.Windows.Forms.ToolStripItemOverflow.Always
@@ -381,7 +356,7 @@ Namespace UTSModule.Station
'
'TssBarTestProgress
'
Me.TssBarTestProgress.AutoSize = false
Me.TssBarTestProgress.AutoSize = False
Me.TssBarTestProgress.Name = "TssBarTestProgress"
Me.TssBarTestProgress.Size = New System.Drawing.Size(200, 16)
'
@@ -428,80 +403,27 @@ Namespace UTSModule.Station
Me.GrpStationPlan.Name = "GrpStationPlan"
Me.GrpStationPlan.Size = New System.Drawing.Size(671, 348)
Me.GrpStationPlan.TabIndex = 45
Me.GrpStationPlan.TabStop = false
Me.GrpStationPlan.TabStop = False
Me.GrpStationPlan.Text = "执行流程"
'
'GrdStationPlan
'
Me.GrdStationPlan.BorderStyle = FlexCell.BorderStyleEnum.None
Me.GrdStationPlan.CheckedImage = Nothing
Me.GrdStationPlan.ContextMenuStrip = Me.CmsPlanGrid
Me.GrdStationPlan.DefaultFont = New System.Drawing.Font("宋体", 9!)
Me.GrdStationPlan.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
Me.GrdStationPlan.Dock = System.Windows.Forms.DockStyle.Fill
Me.GrdStationPlan.Font = New System.Drawing.Font("宋体", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
Me.GrdStationPlan.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
Me.GrdStationPlan.Location = New System.Drawing.Point(3, 17)
Me.GrdStationPlan.MouseWheelSpeed = CType(3, Short)
Me.GrdStationPlan.Name = "GrdStationPlan"
Me.GrdStationPlan.Size = New System.Drawing.Size(665, 328)
Me.GrdStationPlan.TabIndex = 0
Me.GrdStationPlan.UncheckedImage = Nothing
'
'CmsPlanGrid
'
Me.CmsPlanGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MsiCopyNode, Me.MsiCutNode, Me.MsiNodePaste, Me.ToolStripSeparator5, Me.MsiCopyWholeRow, Me.MsiPasteWholeRow, Me.ToolStripSeparator12, Me.MsiGridRowBlockInsert, Me.tsBtn_InsertChildNode, Me.MsiGridRowBlockDelete, Me.ToolStripSeparator7, Me.tsBtn_CheckAction, Me.tsBtn_UncheckAction, Me.ToolStripSeparator15, Me.MsiUndo, Me.MsiRedo, Me.ToolStripSeparator6, Me.MsiSaveNodeFile, Me.MsiLoadNodeFile, Me.ToolStripSeparator11, Me.TsmiDebugStart, Me.TsmiDebugEnd, Me.TsmiDebugStep, Me.TsmiDebugContinue, Me.ToolStripSeparator8, Me.TsmiDebugSetup, Me.TsmiDebugMain, Me.TsmiDebugPass, Me.TsmiDebugFail, Me.TsmiDebugCleanup, Me.ToolStripSeparator9, Me.TsmiDebugNode, Me.TsmiDebugNodeBegin})
Me.CmsPlanGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MsiGridRowBlockInsert, Me.MsiGridRowBlockDelete, Me.ToolStripSeparator7, Me.tsBtn_CheckAction, Me.tsBtn_UncheckAction, Me.ToolStripSeparator15, Me.MsiUndo, Me.MsiRedo, Me.ToolStripSeparator6, Me.MsiSaveNodeFile, Me.MsiLoadNodeFile, Me.ToolStripSeparator11, Me.TsmiDebugStart, Me.TsmiDebugEnd, Me.TsmiDebugContinue, Me.TsmiDebugStep, Me.ToolStripSeparator8, Me.TsmiDebugSetup, Me.TsmiDebugMain, Me.TsmiDebugPass, Me.TsmiDebugFail, Me.TsmiDebugCleanup, Me.ToolStripSeparator9, Me.TsmiDebugNode, Me.TsmiDebugNodeBegin})
Me.CmsPlanGrid.Name = "CmsMain"
Me.CmsPlanGrid.Size = New System.Drawing.Size(193, 624)
'
'MsiCopyNode
'
Me.MsiCopyNode.Image = CType(resources.GetObject("MsiCopyNode.Image"),System.Drawing.Image)
Me.MsiCopyNode.Name = "MsiCopyNode"
Me.MsiCopyNode.ShortcutKeyDisplayString = "Ctr+C"
Me.MsiCopyNode.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.C),System.Windows.Forms.Keys)
Me.MsiCopyNode.Size = New System.Drawing.Size(192, 22)
Me.MsiCopyNode.Text = "复制"
'
'MsiCutNode
'
Me.MsiCutNode.Image = CType(resources.GetObject("MsiCutNode.Image"),System.Drawing.Image)
Me.MsiCutNode.Name = "MsiCutNode"
Me.MsiCutNode.ShortcutKeyDisplayString = "Ctr+X"
Me.MsiCutNode.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.X),System.Windows.Forms.Keys)
Me.MsiCutNode.Size = New System.Drawing.Size(192, 22)
Me.MsiCutNode.Text = "剪切"
'
'MsiNodePaste
'
Me.MsiNodePaste.Image = CType(resources.GetObject("MsiNodePaste.Image"),System.Drawing.Image)
Me.MsiNodePaste.Name = "MsiNodePaste"
Me.MsiNodePaste.ShortcutKeyDisplayString = "Ctr+V"
Me.MsiNodePaste.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.V),System.Windows.Forms.Keys)
Me.MsiNodePaste.Size = New System.Drawing.Size(192, 22)
Me.MsiNodePaste.Text = "粘贴"
'
'ToolStripSeparator5
'
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(189, 6)
'
'MsiCopyWholeRow
'
Me.MsiCopyWholeRow.Image = CType(resources.GetObject("MsiCopyWholeRow.Image"),System.Drawing.Image)
Me.MsiCopyWholeRow.Name = "MsiCopyWholeRow"
Me.MsiCopyWholeRow.Size = New System.Drawing.Size(192, 22)
Me.MsiCopyWholeRow.Text = "整行复制"
'
'MsiPasteWholeRow
'
Me.MsiPasteWholeRow.Image = CType(resources.GetObject("MsiPasteWholeRow.Image"),System.Drawing.Image)
Me.MsiPasteWholeRow.Name = "MsiPasteWholeRow"
Me.MsiPasteWholeRow.Size = New System.Drawing.Size(192, 22)
Me.MsiPasteWholeRow.Text = "整行插入粘贴"
'
'ToolStripSeparator12
'
Me.ToolStripSeparator12.Name = "ToolStripSeparator12"
Me.ToolStripSeparator12.Size = New System.Drawing.Size(189, 6)
Me.CmsPlanGrid.Size = New System.Drawing.Size(222, 458)
'
'MsiGridRowBlockInsert
'
@@ -512,13 +434,6 @@ Namespace UTSModule.Station
Me.MsiGridRowBlockInsert.Size = New System.Drawing.Size(192, 22)
Me.MsiGridRowBlockInsert.Text = "插入"
'
'tsBtn_InsertChildNode
'
Me.tsBtn_InsertChildNode.Enabled = false
Me.tsBtn_InsertChildNode.Name = "tsBtn_InsertChildNode"
Me.tsBtn_InsertChildNode.Size = New System.Drawing.Size(192, 22)
Me.tsBtn_InsertChildNode.Text = "插入子节点"
'
'MsiGridRowBlockDelete
'
Me.MsiGridRowBlockDelete.Image = CType(resources.GetObject("MsiGridRowBlockDelete.Image"), System.Drawing.Image)
@@ -554,14 +469,14 @@ Namespace UTSModule.Station
'
'MsiUndo
'
Me.MsiUndo.Enabled = false
Me.MsiUndo.Enabled = False
Me.MsiUndo.Name = "MsiUndo"
Me.MsiUndo.Size = New System.Drawing.Size(192, 22)
Me.MsiUndo.Text = "撤销"
'
'MsiRedo
'
Me.MsiRedo.Enabled = false
Me.MsiRedo.Enabled = False
Me.MsiRedo.Name = "MsiRedo"
Me.MsiRedo.Size = New System.Drawing.Size(192, 22)
Me.MsiRedo.Text = "重做"
@@ -592,32 +507,32 @@ Namespace UTSModule.Station
'
Me.TsmiDebugStart.Image = CType(resources.GetObject("TsmiDebugStart.Image"), System.Drawing.Image)
Me.TsmiDebugStart.Name = "TsmiDebugStart"
Me.TsmiDebugStart.ShortcutKeys = System.Windows.Forms.Keys.F1
Me.TsmiDebugStart.Size = New System.Drawing.Size(192, 22)
Me.TsmiDebugStart.ShortcutKeys = System.Windows.Forms.Keys.F5
Me.TsmiDebugStart.Size = New System.Drawing.Size(207, 22)
Me.TsmiDebugStart.Text = "开始执行"
'
'TsmiDebugEnd
'
Me.TsmiDebugEnd.Image = CType(resources.GetObject("TsmiDebugEnd.Image"), System.Drawing.Image)
Me.TsmiDebugEnd.Name = "TsmiDebugEnd"
Me.TsmiDebugEnd.ShortcutKeys = System.Windows.Forms.Keys.F2
Me.TsmiDebugEnd.Size = New System.Drawing.Size(192, 22)
Me.TsmiDebugEnd.ShortcutKeys = CType((System.Windows.Forms.Keys.Shift Or System.Windows.Forms.Keys.F5), System.Windows.Forms.Keys)
Me.TsmiDebugEnd.Size = New System.Drawing.Size(207, 22)
Me.TsmiDebugEnd.Text = "退出执行"
'
'TsmiDebugStep
'
Me.TsmiDebugStep.Image = CType(resources.GetObject("TsmiDebugStep.Image"), System.Drawing.Image)
Me.TsmiDebugStep.Name = "TsmiDebugStep"
Me.TsmiDebugStep.ShortcutKeys = System.Windows.Forms.Keys.F3
Me.TsmiDebugStep.Size = New System.Drawing.Size(192, 22)
Me.TsmiDebugStep.ShortcutKeys = System.Windows.Forms.Keys.F11
Me.TsmiDebugStep.Size = New System.Drawing.Size(207, 22)
Me.TsmiDebugStep.Text = "单步执行"
'
'TsmiDebugContinue
'
Me.TsmiDebugContinue.Image = CType(resources.GetObject("TsmiDebugContinue.Image"), System.Drawing.Image)
Me.TsmiDebugContinue.Name = "TsmiDebugContinue"
Me.TsmiDebugContinue.ShortcutKeys = System.Windows.Forms.Keys.F4
Me.TsmiDebugContinue.Size = New System.Drawing.Size(192, 22)
Me.TsmiDebugContinue.ShortcutKeys = CType((System.Windows.Forms.Keys.Alt Or System.Windows.Forms.Keys.F5), System.Windows.Forms.Keys)
Me.TsmiDebugContinue.Size = New System.Drawing.Size(207, 22)
Me.TsmiDebugContinue.Text = "继续执行"
'
'ToolStripSeparator8
@@ -628,36 +543,36 @@ Namespace UTSModule.Station
'TsmiDebugSetup
'
Me.TsmiDebugSetup.Name = "TsmiDebugSetup"
Me.TsmiDebugSetup.ShortcutKeys = System.Windows.Forms.Keys.F5
Me.TsmiDebugSetup.Size = New System.Drawing.Size(192, 22)
Me.TsmiDebugSetup.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.F1), System.Windows.Forms.Keys)
Me.TsmiDebugSetup.Size = New System.Drawing.Size(207, 22)
Me.TsmiDebugSetup.Text = "Setup模块执行"
'
'TsmiDebugMain
'
Me.TsmiDebugMain.Name = "TsmiDebugMain"
Me.TsmiDebugMain.ShortcutKeys = System.Windows.Forms.Keys.F6
Me.TsmiDebugMain.Size = New System.Drawing.Size(192, 22)
Me.TsmiDebugMain.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.F2), System.Windows.Forms.Keys)
Me.TsmiDebugMain.Size = New System.Drawing.Size(207, 22)
Me.TsmiDebugMain.Text = "Main模块执行"
'
'TsmiDebugPass
'
Me.TsmiDebugPass.Name = "TsmiDebugPass"
Me.TsmiDebugPass.ShortcutKeys = System.Windows.Forms.Keys.F7
Me.TsmiDebugPass.Size = New System.Drawing.Size(192, 22)
Me.TsmiDebugPass.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.F3), System.Windows.Forms.Keys)
Me.TsmiDebugPass.Size = New System.Drawing.Size(221, 22)
Me.TsmiDebugPass.Text = "Pass模块执行"
'
'TsmiDebugFail
'
Me.TsmiDebugFail.Name = "TsmiDebugFail"
Me.TsmiDebugFail.ShortcutKeys = System.Windows.Forms.Keys.F8
Me.TsmiDebugFail.Size = New System.Drawing.Size(192, 22)
Me.TsmiDebugFail.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.F4), System.Windows.Forms.Keys)
Me.TsmiDebugFail.Size = New System.Drawing.Size(221, 22)
Me.TsmiDebugFail.Text = "Fail模块执行"
'
'TsmiDebugCleanup
'
Me.TsmiDebugCleanup.Name = "TsmiDebugCleanup"
Me.TsmiDebugCleanup.ShortcutKeys = System.Windows.Forms.Keys.F9
Me.TsmiDebugCleanup.Size = New System.Drawing.Size(192, 22)
Me.TsmiDebugCleanup.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.F5), System.Windows.Forms.Keys)
Me.TsmiDebugCleanup.Size = New System.Drawing.Size(221, 22)
Me.TsmiDebugCleanup.Text = "Cleanup模块执行"
'
'ToolStripSeparator9
@@ -668,15 +583,15 @@ Namespace UTSModule.Station
'TsmiDebugNode
'
Me.TsmiDebugNode.Name = "TsmiDebugNode"
Me.TsmiDebugNode.ShortcutKeys = System.Windows.Forms.Keys.F10
Me.TsmiDebugNode.Size = New System.Drawing.Size(192, 22)
Me.TsmiDebugNode.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.F10), System.Windows.Forms.Keys)
Me.TsmiDebugNode.Size = New System.Drawing.Size(221, 22)
Me.TsmiDebugNode.Text = "节点测试"
'
'TsmiDebugNodeBegin
'
Me.TsmiDebugNodeBegin.Name = "TsmiDebugNodeBegin"
Me.TsmiDebugNodeBegin.ShortcutKeys = System.Windows.Forms.Keys.F11
Me.TsmiDebugNodeBegin.Size = New System.Drawing.Size(192, 22)
Me.TsmiDebugNodeBegin.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.F11), System.Windows.Forms.Keys)
Me.TsmiDebugNodeBegin.Size = New System.Drawing.Size(221, 22)
Me.TsmiDebugNodeBegin.Text = "节点开始测试"
'
'GrpSingleRowInfo
@@ -687,7 +602,7 @@ Namespace UTSModule.Station
Me.GrpSingleRowInfo.Name = "GrpSingleRowInfo"
Me.GrpSingleRowInfo.Size = New System.Drawing.Size(302, 348)
Me.GrpSingleRowInfo.TabIndex = 1
Me.GrpSingleRowInfo.TabStop = false
Me.GrpSingleRowInfo.TabStop = False
Me.GrpSingleRowInfo.Text = "属性"
'
'SplitContainer1
@@ -712,22 +627,20 @@ Namespace UTSModule.Station
'GrdRowNode
'
Me.GrdRowNode.BorderStyle = FlexCell.BorderStyleEnum.None
Me.GrdRowNode.CheckedImage = Nothing
Me.GrdRowNode.DefaultFont = New System.Drawing.Font("宋体", 9!)
Me.GrdRowNode.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
Me.GrdRowNode.Dock = System.Windows.Forms.DockStyle.Fill
Me.GrdRowNode.Font = New System.Drawing.Font("宋体", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
Me.GrdRowNode.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
Me.GrdRowNode.Location = New System.Drawing.Point(0, 0)
Me.GrdRowNode.MouseWheelSpeed = CType(3, Short)
Me.GrdRowNode.Name = "GrdRowNode"
Me.GrdRowNode.Size = New System.Drawing.Size(296, 246)
Me.GrdRowNode.TabIndex = 0
Me.GrdRowNode.UncheckedImage = Nothing
'
'RtxColTip
'
Me.RtxColTip.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.RtxColTip.Dock = System.Windows.Forms.DockStyle.Fill
Me.RtxColTip.Enabled = false
Me.RtxColTip.Enabled = False
Me.RtxColTip.Location = New System.Drawing.Point(0, 0)
Me.RtxColTip.Name = "RtxColTip"
Me.RtxColTip.Size = New System.Drawing.Size(296, 78)
@@ -823,16 +736,12 @@ End Sub
Friend WithEvents SplitContainer1 As SplitContainer
Friend WithEvents RtxColTip As RichTextBox
Friend WithEvents GrpOutputInfo As GroupBox
Friend WithEvents TsBtnCopyWholeRow As ToolStripButton
Friend WithEvents TsBtnPasteWholdRows As ToolStripButton
Friend WithEvents TsBtnBackward As ToolStripButton
Friend WithEvents TsBtnForward As ToolStripButton
Friend WithEvents TsBtnMoveUp As ToolStripButton
Friend WithEvents GrdRowNode As FlexCell.Grid
Friend WithEvents CmsPlanGrid As ContextMenuStrip
Friend WithEvents MsiCopyNode As ToolStripMenuItem
Friend WithEvents MsiCutNode As ToolStripMenuItem
Friend WithEvents MsiNodePaste As ToolStripMenuItem
Friend WithEvents MsiSaveNodeFile As ToolStripMenuItem
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents TsBtnMoveDown As ToolStripButton
Friend WithEvents TsBtnMoveLeft As ToolStripButton
Friend WithEvents TsBtnMoveRight As ToolStripButton
@@ -840,12 +749,10 @@ End Sub
Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
Friend WithEvents TsBtnLoad As ToolStripButton
Friend WithEvents TsBtnSave As ToolStripButton
Friend WithEvents ToolStripSeparator5 As ToolStripSeparator
Friend WithEvents MsiLoadNodeFile As ToolStripMenuItem
Friend WithEvents ToolStripSeparator6 As ToolStripSeparator
Friend WithEvents MsiUndo As ToolStripMenuItem
Friend WithEvents MsiRedo As ToolStripMenuItem
Friend WithEvents TsBtnClearAll As ToolStripButton
Friend WithEvents TsBtnOpen As ToolStripButton
Friend WithEvents GrdStationPlan As FlexCell.Grid
Friend WithEvents TsBtnDebugStart As ToolStripButton
@@ -882,14 +789,10 @@ End Sub
Friend WithEvents MsiGridRowBlockInsert As ToolStripMenuItem
Friend WithEvents MsiGridRowBlockDelete As ToolStripMenuItem
Friend WithEvents ToolStripSeparator11 As ToolStripSeparator
Friend WithEvents MsiCopyWholeRow As ToolStripMenuItem
Friend WithEvents MsiPasteWholeRow As ToolStripMenuItem
Friend WithEvents ToolStripSeparator12 As ToolStripSeparator
Friend WithEvents ToolStripSeparator13 As ToolStripSeparator
Friend WithEvents ToolStripSeparator14 As ToolStripSeparator
Friend WithEvents tsBtn_CheckAction As ToolStripMenuItem
Friend WithEvents tsBtn_UncheckAction As ToolStripMenuItem
Friend WithEvents ToolStripSeparator15 As ToolStripSeparator
Friend WithEvents tsBtn_InsertChildNode As ToolStripMenuItem
End Class
End Namespace

99
UTS_Core/UTSModule/Station/FrmStationPlan.resx
View File

@@ -192,7 +192,7 @@
hkoPasDAAACBjwD6rwhXUgAAAABJRU5ErkJggg==
</value>
</data>
<data name="TsBtnCopyWholeRow.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="TsBtnBackward.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHJSURBVDhPvZHdK4NhGMb3pzAt4dgfIPmMosgBB8pHjnbA
@@ -206,25 +206,13 @@
gsd7A8Wc0VfbPf1MAAAAAElFTkSuQmCC
</value>
</data>
<data name="TsBtnPasteWholdRows.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="TsBtnForward.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACMSURBVDhPtZDRDYAgDET7wazu5AIOY/x2BX/dAHO2KNQW
MMZLXiK1d5zSLwohxBwZ+9IGEBc6sd6JjYXBNO8XOOfG9Kx3xF4GJIOF3hP7M6BGM6CXrgCi0aUzYIiW
MOcgUa2BJcy3bb1DWg34RkafGwF2A+hlg/vnJThAGkAI0WDRU9HAV/6tHp9FdAB/QLi4qrG0hAAAAABJ
RU5ErkJggg==
</value>
</data>
<data name="TsBtnClearAll.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFnSURBVHhe7ZpRasMwEER9pByjhdDerldtSz7SHciAKLYi
J9Jau5kHAwF/rOYhKwZ7EUIIIYQQQgixj5Pl6xb89ubQ+Rj4bbne8mM5W7zALMzkfKzFVQKsczjza/GQ
gBmY9X8+1uTGmgBktISt8oirAGy3cguWGSWhVh5rcT8H3izlOVAGC/209OLdUpv1YTkEDwnTlicjJUxf
noyQEKY86SkhXHnSQ0LY8uQZCeHLk0ckpClP9khIV560SEhbntQkXCwouXYtRXlSk7CWVOVJq4SU5Qkk
bG15BLdE2vIAB949AS0PSyGpnfZlICidhNbyTCoJtfL3/gbDS2h5yGl5WApJS3mSTsKe8iSNhEfKk/AS
nilPwkroUZ6Ek9CzPAkjYUR5Mr2EkeXJtBI8ypPpJLz8y9GXfz2+JmB0ebIlwf37gPKexBb0KE8wq7wF
sRb37wMwENYR9+HG0fOFEEIIIYQQIirL8gdhBPBs3RAiLQAAAABJRU5ErkJggg==
</value>
</data>
<data name="TsBtnMoveUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -368,70 +356,11 @@
</value>
</data>
<metadata name="StuMain.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>129, 17</value>
<value>133, 21</value>
</metadata>
<metadata name="CmsPlanGrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>235, 17</value>
</metadata>
<data name="MsiCopyNode.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vgAADr4B6kKxwAAAAH1JREFUOE+9j1EKgDAMQ/exs3onL+YVdgwlrGFdaJmi+CD40ewRy2tqrWcUO69B
WXkkyQT8Wi3Hl+eHu2WTCHykoKwMoUMXMCgrlE4SChSWKQTjt9wSHllkogWktcMkTqDoAgaPu8AtiHJ7
QU68AJkW5HywoJei4LZc8AulXG6IZu0vxOOrAAAAAElFTkSuQmCC
</value>
</data>
<data name="MsiCutNode.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vgAADr4B6kKxwAAAAZFJREFUOE+1jNsrg3Ech/e3uFAuFDlEyakmLuZU7+vGaVu8OTQpZ2/Cwhy25jSH
5pC3pDHZaHqHC3NIstHakjFk7EYOIXH1YS8pF95eyXP1+337PI/oX7DueDA5x+Lzy+E580OtN3+7/YjN
dY0eHQPb4cOXMGtexYhxR1ggQL/egOmlD8Hnv0FxBQ2GPRQeMCyuo3uA4YT1bQfIgnJMr50ID8xb994D
U9DPLKO2RQMilxIuB1ixX6KqWQO5oglEXikU9Z2/CwSgqntAFlaCoDowZNwXHrA6X9HA3INsO0fVsAeS
OjuyaBf37jNd8IdY5wvytbcglV4kFU4hrUiPjBobMhrdEJexUKg3+AM0cwOy/QpJxQuIJXohpY2Q1Oxi
0fGIbsMxogktfyCn7QKWg2eYd28Rla3mxtm0GzNbd2gdtyM0uZw/QChPYXE8QWfyIjK9nRvLVAeIlxkQ
EidHUHA4f4BSHyFBNouIzC7EpJZw40HzKSLEpQhLlKJpdJs/MMH6kCIfexcoqCY2+cd/RyR6A4ZK7Qq0
XkbzAAAAAElFTkSuQmCC
</value>
</data>
<data name="MsiNodePaste.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vgAADr4B6kKxwAAAAlZJREFUOE+1kltIVFEUhg/0YC9FF+qpp4LoJYoIqoeMwixMM4zEjKyJGJUUlcnS
KbW8oZO3SdPGyMug5q0SRaVIhMwhs9JwjC4SqZHTZM2Z8Z7F1zlHRxsygqAffjbsvf9vrb3Ywn9RW0Mq
LbcTqSuOZXbrz3rU0UltWfacizOPYbOUM2q5wUBvBufUnmSnaLim06JPif4dKIcmxBqm7NVM2CowFmgY
Gy4l+UIYL9tjuBjmTYxqK5a2Eww3rSUi6KArRAbI4Sl7Jfmpx+kyZSB+yGWoV8s70ynqC30JDnSnPG4N
z7IFQo8ecAVUl2bOAMRb6OKCSNAEoA3353yoHxq1L5Eqb0ICPciJWKcAArzcXQEVRTomxSomrQbGBtOw
vgjHXLpScU/JCroKlvBE76aEZXvs2OwKMBpSGbcWM96fxNirM4w+P4zYsJSskibSDHVculpFjM5IZGIh
wbF6gqLSXQFFeYmMDOgZ7VUz0umN4+EWPt1dpYSdmpr+js0+Qf+QDf+Qy/ic1M5DCrPiEV8n4ejwxNG6
EXvzagZKBKWyrKI7bYoNlS309FmU8P12M/v8VDOQvPRYvnSfxd6yAbFxOdYaN/puCkrb36Z/8NUhVf5o
o+etBVP3e7wCI/GUwnv2H8J95y6EnORorI9DpPAyPtcuZrBsEeZ8gQjpzXLbzg6uSx3kGpupbzUrq+zt
m9YjXEmIUj6Ic8pOq6WB/Vr5gemNEq6510Vl09N5gKys+NPSD/NF5bcXn93blAN52vKbndUW8hxgIR2R
pi1f+Jtnr/+rBOEn8vTydCQEu0UAAAAASUVORK5CYII=
</value>
</data>
<data name="MsiCopyWholeRow.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vgAADr4B6kKxwAAAAclJREFUOE+9kd0rg2EYxvenMC3h2B8g+YyiyAEHykeOdsCRIyGKNJramAnz1Tbe
MQkTGma+Grb5mgzFVkPvy9jGOy57n40xNUr51XXyPF2/u/t5eH9Gu3wELtSSlUQ5a8Kgdh2h65/hypEo
Jo2obBj+nUSzaA3VgvhfXiEZmYfOYEVxdfvPEuXcDinqbAC1C5jtDDoVM6BWGaiXaaj0NPrnaIgnbklC
tTCDWiMRcDw9+8Hc++BwuYkgkqbRayRXGL5K5Go9uewzPEM0y6CeukLNgB0jCzfk/DPVMhe0GwySiibD
EmlgX27vRw+La9qDc8cdDuw3kE87SamV8pOYT+5QKnIisWgKCQVjiM8bCkq4fb0+9mOyUG5DlXQfHapz
IniHeWBxcumFwXIPGbUNQW5vWMC4fTg8c2Hn2AGj+QJLW6do6At+b92oG0KpEyVtNuQ37pHIqE0IsrvC
guSssm+pEe8RARtYz0WzsNgfsWhioFm5RfeYEXEZ4q+PGUl50wYRfJ78ni71GvhpouiCwlo9PE8vkE+Y
0KPZhmx8k0zmylLlKmJTW6ILMoS6wGurSOLzFBDk9CAuUwJ+enug3IqYlObogn+Cx3sDxZzRV9s9/UwA
AAAASUVORK5CYII=
</value>
</data>
<data name="MsiPasteWholeRow.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vgAADr4B6kKxwAAAAIxJREFUOE+1kNENgCAMRPvBrO7kAg5j/HYFf90Ac7Yo1BYwxkteIrV3nNIvCiHE
HBn70gYQFzqx3omNhcE07xc458b0rHfEXgYkg4XeE/szoEYzoJeuAKLRpTNgiJYw5yBRrYElzLdtvUNa
DfhGRp8bAXYD6GWD++clOEAaQAjRYNFT0cBX/q0en0V0AH9AuLiqsbSEAAAAAElFTkSuQmCC
</value>
</data>
<data name="MsiGridRowBlockInsert.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -455,7 +384,7 @@
<data name="tsBtn_CheckAction.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAA8AAAAPCAYAAAA71pVKAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vgAADr4B6kKxwAAAAGRJREFUOE+lzcENgDAIhWFmchbHcRN3YwEW4GblgDGFV9r0T96hCV9K+53Xs7yv
vAAADrwBlbxySQAAAGRJREFUOE+lzcENgDAIhWFmchbHcRN3YwEW4GblgDGFV9r0T96hCV9K+53Xs7yv
98HMYSISpqo1RrDEGTxuqjGCJfbDDA5xf4ygVWIELYhHP3oQ+zGCVor9+L+sgGehFfDy9iJq1K76qrTi
CkcAAAAASUVORK5CYII=
</value>
@@ -463,7 +392,7 @@
<data name="tsBtn_UncheckAction.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAA8AAAAPCAYAAAA71pVKAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vgAADr4B6kKxwAAAAFdJREFUOE+ly7ENACEMQ9EMeeMwaxbIAukANyfdQRIjvuTCxZP7ntaP9zaPqoYz
vAAADrwBlbxySQAAAFdJREFUOE+ly7ENACEMQ9EMeeMwaxbIAukANyfdQRIjvuTCxZP7ntaP9zaPqoYz
s89o/IfuzuEdpHAES5zBFFcwxAxEC2YhSnEGUYgriLaYgWjBx7tLZADW/iIHX3Y7QQAAAABJRU5ErkJg
gg==
</value>
@@ -483,6 +412,15 @@
vAAADrwBlbxySQAAAH1JREFUOE+9kEEOgCAMBHvi3Vx4N1pkzVKoFQ9O0sTW3TkgHiml+jQ95qOhUsow
LNC9R0dsyJYl530Bdi2/EkitgwS3pQBBnhYmyX3zBChM08OhwI4t820SWFqYyuEbWFBE6H8BYFEgOH+4
cxEIYlig323fAYJPZQXFuSxyANoUGxZ/KYqDAAAAAElFTkSuQmCC
</value>
</data>
<data name="TsmiDebugContinue.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABIAAAARCAYAAADQWvz5AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAALhJREFUOE+t1LsNwyAABFBGyCiZgZ4dUtCzQirWyBBMQZWGPrVFQcOnJL4IJMuy
MIacdI3BT7L5kBhjXuu893cyE0BCiLwsi0spPcrj6wFEKc2c82ytzcNYhSpmjMkhhGcZ7s8WQhljFXuV
KX3ZQxXTWv8w59ytTG3nCKpVSmFF311YC0K7sTMIBbZ+5qe8cpwzSErZt2Fb0F/+0SUE2UNDS49soeHN
iFRo6ngggKYPLAJo+gohhHwB0XQ+lRtjI7IAAAAASUVORK5CYII=
</value>
</data>
<data name="TsmiDebugStep.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -495,15 +433,6 @@
psL3YQDcxNTs7hEF7JE8C6ZyEPYFCL7X7HgBOj81jtefpus6lQ/SK+CD7Alc3CPpeOAUuT9sLI3snZuk
9lGLHOjazbZ/k/04ip7x3dRqgH77rjEpNU42/GmApMNN3v4bfI+C4AP3/yDWi5gZ5QAAAABJRU5ErkJg
gg==
</value>
</data>
<data name="TsmiDebugContinue.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABIAAAARCAYAAADQWvz5AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAALhJREFUOE+t1LsNwyAABFBGyCiZgZ4dUtCzQirWyBBMQZWGPrVFQcOnJL4IJMuy
MIacdI3BT7L5kBhjXuu893cyE0BCiLwsi0spPcrj6wFEKc2c82ytzcNYhSpmjMkhhGcZ7s8WQhljFXuV
KX3ZQxXTWv8w59ytTG3nCKpVSmFF311YC0K7sTMIBbZ+5qe8cpwzSErZt2Fb0F/+0SUE2UNDS49soeHN
iFRo6ngggKYPLAJo+gohhHwB0XQ+lRtjI7IAAAAASUVORK5CYII=
</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">

81
UTS_Core/UTSModule/Station/FrmStationPlan.vb
View File

@@ -2,9 +2,7 @@
Imports System.Threading
Imports System.Windows.Forms
Imports UTS_Core.DebugLog
Imports UTS_Core.UTSModule.Production
Imports UTS_Core.UTSModule.Test
Imports UTS_Core.UTSModule.Test.Command
Imports UTS_Core.UTSModule.Test.StatusMonitor
Namespace UTSModule.Station
@@ -95,6 +93,7 @@ Namespace UTSModule.Station
.Grid = GrdRowNode,
.RtxColTip = RtxColTip}
AddHandler _planGrid.PlanNodeSelectChanged, AddressOf PlanGridSelectChanged
AddHandler _planGrid.PlanNodeSelectChanged, AddressOf _nodeGrid.Grid_PlanNodeSelectChanged
AddHandler _planGrid.RowNodeTextChanged, AddressOf _nodeGrid.Grid_RowNodeTextChanged
@@ -113,6 +112,10 @@ Namespace UTSModule.Station
ApplicationLog.WriteInfoLog($"编辑页面加载完成。")
End Sub
Public Sub PlanGridSelectChanged(sender As Object, ByVal e As PlanNodeSelectChangedEventArgs)
TsBtnBackward.Enabled = _planGrid.CanBackward
TsBtnForward.Enabled = _planGrid.CanForward
End Sub
Private Function InitializeUtsApp() As Boolean
_utsApp = UtsAppForm.CreateSingleton()
@@ -253,31 +256,36 @@ Namespace UTSModule.Station
End If
End Sub
Private Sub TsBtnClearAll_Click(sender As Object, e As EventArgs) Handles TsBtnClearAll.Click
_planGrid.NodeClear()
End Sub
Private Sub TsBtnMoveUp_Click(sender As Object, e As EventArgs) Handles TsBtnMoveUp.Click
Dim tmpFrisRow As Integer = GrdStationPlan.Selection.FirstRow
Dim tmpLastRow As Integer = GrdStationPlan.Selection.LastRow
' gCopyWholeRows = tmpLastRow - tmpFrisRow + 1
_planGrid.NodeMoveUp(tmpLastRow - tmpFrisRow + 1)
If GrdStationPlan Is Nothing OrElse GrdStationPlan.Tree.SelectedNode Is Nothing Then Return
Dim startMoveRow As Integer = GrdStationPlan.Selection.FirstRow
Dim moveRows As Integer = GrdStationPlan.Selection.LastRow - GrdStationPlan.Selection.FirstRow + 1
_planGrid.NodeMoveUp(startMoveRow, moveRows)
End Sub
Private Sub TsBtnMoveDown_Click(sender As Object, e As EventArgs) Handles TsBtnMoveDown.Click
_planGrid.NodeMoveDown()
If GrdStationPlan Is Nothing OrElse GrdStationPlan.Tree.SelectedNode Is Nothing Then Return
Dim startMoveRow As Integer = GrdStationPlan.Selection.FirstRow
Dim moveRows As Integer = GrdStationPlan.Selection.LastRow - GrdStationPlan.Selection.FirstRow + 1
_planGrid.NodeMoveDown(startMoveRow, moveRows)
End Sub
Private Sub TsBtnMoveLeft_Click(sender As Object, e As EventArgs) Handles TsBtnMoveLeft.Click
Dim tmpFrisRow As Integer = GrdStationPlan.Selection.FirstRow
Dim tmpLastRow As Integer = GrdStationPlan.Selection.LastRow
_planGrid.NodeMoveLeft(tmpLastRow - tmpFrisRow + 1)
If GrdStationPlan Is Nothing OrElse GrdStationPlan.Tree.SelectedNode Is Nothing Then Return
Dim startMoveRow As Integer = GrdStationPlan.Selection.FirstRow
Dim moveRows As Integer = GrdStationPlan.Selection.LastRow - GrdStationPlan.Selection.FirstRow + 1
_planGrid.NodeMoveLeft(startMoveRow, moveRows)
End Sub
Private Sub TsBtnMoveRight_Click(sender As Object, e As EventArgs) Handles TsBtnMoveRight.Click
Dim tmpFrisRow As Integer = GrdStationPlan.Selection.FirstRow
Dim tmpLastRow As Integer = GrdStationPlan.Selection.LastRow
_planGrid.NodeMoveRight(tmpLastRow - tmpFrisRow + 1)
If GrdStationPlan Is Nothing OrElse GrdStationPlan.Tree.SelectedNode Is Nothing Then Return
Dim startMoveRow As Integer = GrdStationPlan.Selection.FirstRow
Dim moveRows As Integer = GrdStationPlan.Selection.LastRow - GrdStationPlan.Selection.FirstRow + 1
_planGrid.NodeMoveRight(startMoveRow, moveRows)
End Sub
Private Sub TsBtnOpen_Click(sender As Object, e As EventArgs) Handles TsBtnOpen.Click
@@ -290,12 +298,19 @@ Namespace UTSModule.Station
ApplicationLog.WriteInfoLog($"编辑页面执行流程加载完成。")
End If
End Using
_planGrid.ClearNavigation()
TsBtnBackward.Enabled = _planGrid.CanBackward
TsBtnForward.Enabled = _planGrid.CanForward
End Sub
Private Sub TsBtnLoad_Click(sender As Object, e As EventArgs) Handles TsBtnLoad.Click
If MsgBox("重载会将流程返回为上一次保存的流程状态,是否继续", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
ApplicationLog.WriteInfoLog($"编辑页面执行流程重载中。")
LoadTreeViewFormXml()
_planGrid.ClearNavigation()
TsBtnBackward.Enabled = _planGrid.CanBackward
TsBtnForward.Enabled = _planGrid.CanForward
ApplicationLog.WriteInfoLog($"编辑页面执行流程重载完成。")
End If
End Sub
@@ -747,14 +762,14 @@ Namespace UTSModule.Station
Dim tmpFrisRow As Integer = GrdStationPlan.Selection.FirstRow
Dim tmpLastRow As Integer = GrdStationPlan.Selection.LastRow
Dim tempRowCount As Integer = tmpLastRow - tmpFrisRow + 1
_planGrid.NodeAdd(tempRowCount)
_planGrid.NodeAdd(tmpFrisRow, tempRowCount)
End Sub
Private Sub tsBtnRemoveRow_Click(sender As Object, e As EventArgs) Handles tsBtnRemoveRow.Click
Dim tmpFrisRow As Integer = GrdStationPlan.Selection.FirstRow
Dim tmpLastRow As Integer = GrdStationPlan.Selection.LastRow
Dim tempRowCount As Integer = tmpLastRow - tmpFrisRow + 1
_planGrid.NodeDel(tempRowCount)
_planGrid.NodeDel(tmpFrisRow, tempRowCount)
End Sub
Private Sub MsiGridRowBlockInsert_Click(sender As Object, e As EventArgs) Handles MsiGridRowBlockInsert.Click
@@ -765,32 +780,12 @@ Namespace UTSModule.Station
tsBtnRemoveRow.PerformClick()
End Sub
Private Sub MsiCopyNode_Click(sender As Object, e As EventArgs) Handles MsiCopyNode.Click
GrdStationPlan.Selection.CopyData()
Private Sub TsBtnCopyWholeRow_Click(sender As Object, e As EventArgs) Handles TsBtnBackward.Click
_planGrid.BackwardNavigation()
End Sub
Private Sub MsiCutNode_Click(sender As Object, e As EventArgs) Handles MsiCutNode.Click
GrdStationPlan.Selection.CutData()
End Sub
Private Sub MsiNodePaste_Click(sender As Object, e As EventArgs) Handles MsiNodePaste.Click
GrdStationPlan.Selection.PasteData()
End Sub
Private Sub MsiCopyWholeRow_Click(sender As Object, e As EventArgs) Handles MsiCopyWholeRow.Click
TsBtnCopyWholeRow.PerformClick()
End Sub
Private Sub MsiPasteWholeRow_Click(sender As Object, e As EventArgs) Handles MsiPasteWholeRow.Click
TsBtnPasteWholdRows.PerformClick()
End Sub
Private Sub TsBtnCopyWholeRow_Click(sender As Object, e As EventArgs) Handles TsBtnCopyWholeRow.Click
_planGrid.MultiLineCopyData()
End Sub
Private Sub TsBtnPasteWholdRows_Click(sender As Object, e As EventArgs) Handles TsBtnPasteWholdRows.Click
_planGrid.MultiLinePasteData()
Private Sub TsBtnPasteWholdRows_Click(sender As Object, e As EventArgs) Handles TsBtnForward.Click
_planGrid.ForwardNavigation()
End Sub
Private Sub tsBtn_CheckAction_Click(sender As Object, e As EventArgs) Handles tsBtn_CheckAction.Click

36
UTS_Core/UTSModule/Station/GridNavigation.vb Normal file
View File

@@ -0,0 +1,36 @@
Imports FlexCell
Public Class GridNavigation : Implements INavigation
Private ReadOnly _grd As Grid
Private ReadOnly _beforeRange As GridSelectRange
Private ReadOnly _afterRange As GridSelectRange
Sub New(grd As FlexCell.Grid, beforeRange As GridSelectRange, afterRange As GridSelectRange)
_grd = grd
Me._beforeRange = beforeRange
Me._afterRange = afterRange
End Sub
Public Sub Backward() Implements INavigation.Backward
_grd.Range(_beforeRange.StartRow, _beforeRange.StartCol, _beforeRange.EndRow, _beforeRange.EndCol).SelectCells()
End Sub
Public Sub Forward() Implements INavigation.Forward
_grd.Range(_afterRange.StartRow, _afterRange.StartCol, _afterRange.EndRow, _afterRange.EndCol).SelectCells()
End Sub
End Class
Public Class GridSelectRange
Public Property StartRow As Integer
Public Property StartCol As Integer
Public Property EndRow As Integer
Public Property EndCol As Integer
End Class

82
UTS_Core/UTSModule/Station/GridNavigationManager.vb Normal file
View File

@@ -0,0 +1,82 @@
Public Module GridNavigationManager
Private _forwardStack As New Stack(Of INavigation)()
Private _backwardStack As New Stack(Of INavigation)()
Private _isRunning As Boolean = False
Sub New()
End Sub
''' <summary>
''' 是否正在执行导航操作
''' </summary>
''' <remarks></remarks>
Public ReadOnly Property IsRunning As Boolean
Get
Return _isRunning
End Get
End Property
''' <summary>
''' 是否可以后退
''' </summary>
''' <returns></returns>
Public ReadOnly Property CanForward As Boolean
Get
Return _forwardStack.Count > 0
End Get
End Property
''' <summary>
''' 是否可以前进
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property CanBackward As Boolean
Get
Return _backwardStack.Count > 0
End Get
End Property
''' <summary>
''' 添加导航
''' <param name="navigation">导航</param>
''' </summary>
Public Sub Append(navigation As INavigation)
_backwardStack.Push(navigation)
_forwardStack.Clear()
End Sub
''' <summary>
'''
''' </summary>
Public Sub RemoveForward()
If CanBackward Then _backwardStack.Pop()
End Sub
Public Sub Clear()
_forwardStack.Clear()
_backwardStack.Clear()
End Sub
Public Sub Forward()
If Not CanForward Then Return
Dim navigation As INavigation = _forwardStack.Pop()
_backwardStack.Push(navigation)
_isRunning = True
navigation.Forward()
_isRunning = False
End Sub
Public Sub Backward()
If Not CanBackward Then Return
Dim navigation As INavigation = _backwardStack.Pop()
_forwardStack.Push(navigation)
_isRunning = True
navigation.Backward()
_isRunning = False
End Sub
End Module

28
UTS_Core/UTSModule/Station/GridNodeMoveUpCommand.vb Normal file
View File

@@ -0,0 +1,28 @@
Imports UTS_Core.Undo
Imports UTS_Core.UTSModule.Station
Public Class GridNodeMoveUpCommand : Implements ICommand
Private ReadOnly grd As StationPlanGrid
Private ReadOnly startMoveRow As Integer
Private ReadOnly moveRows As Integer
Sub New(grd As StationPlanGrid, startMoveRow As Integer, moveRows As Integer)
Me.grd = grd
Me.startMoveRow = startMoveRow
Me.moveRows = moveRows
End Sub
Public Sub Execute() Implements ICommand.Execute
grd.NodeMoveUp(startMoveRow, moveRows)
End Sub
Public Sub Redo() Implements ICommand.Redo
grd.NodeMoveUp(startMoveRow, moveRows)
End Sub
Public Sub Undo() Implements ICommand.Undo
grd.NodeMoveDown(startMoveRow, moveRows)
End Sub
End Class

12
UTS_Core/UTSModule/Station/INavigation.vb Normal file
View File

@@ -0,0 +1,12 @@
Public Interface INavigation
''' <summary>
''' 向后导航
''' </summary>
Sub Backward()
''' <summary>
''' 向前导航
''' </summary>
Sub Forward()
End Interface

2
UTS_Core/UTSModule/Station/RowNodeGrid.vb
View File

@@ -419,8 +419,6 @@ Namespace UTSModule.Station
Public Sub AfterSelectUpdateGrid(node As RowNode, LineNumber As Integer, LineActionEn As Boolean)
Dim col As Integer = ColNames.ColValue
Dim textColor As Color
Dim idx As Integer
Dim RecordNameEn As Boolean
_grd.AutoRedraw = False

397
UTS_Core/UTSModule/Station/StationPlanGrid.vb
View File

@@ -1,8 +1,10 @@
Imports System.Drawing
Imports System.Reflection.Emit
Imports System.Text
Imports System.Web.UI.WebControls
Imports System.Windows.Forms
Imports FlexCell
Imports Steema.TeeChart.Walls
Imports UTS_Core.UTSModule.Production
Imports UTS_Core.UTSModule.Test.Command
Imports UTS_Core.UTSModule.Test.StatusMonitor
@@ -120,6 +122,7 @@ Namespace UTSModule.Station
RemoveHandler _grd.Click, AddressOf Grid_Click
RemoveHandler _grd.CellChange, AddressOf Grid_CellChange
RemoveHandler _grd.SelChange, AddressOf Grid_SelChange
RemoveHandler _grd.LeaveCell, AddressOf Grid_LeaveCell
RemoveHandler _grd.ComboDropDown, AddressOf Grid_ComboDropDown
RemoveHandler _grd.ComboClick, AddressOf Grid_ComboClick
RemoveHandler _grd.MouseMove, AddressOf Grid_MouseMove
@@ -132,6 +135,7 @@ Namespace UTSModule.Station
AddHandler _grd.Click, AddressOf Grid_Click
AddHandler _grd.CellChange, AddressOf Grid_CellChange
AddHandler _grd.SelChange, AddressOf Grid_SelChange
AddHandler _grd.LeaveCell, AddressOf Grid_LeaveCell
AddHandler _grd.ComboDropDown, AddressOf Grid_ComboDropDown
AddHandler _grd.ComboClick, AddressOf Grid_ComboClick
AddHandler _grd.MouseMove, AddressOf Grid_MouseMove
@@ -174,28 +178,45 @@ Namespace UTSModule.Station
End Sub
Private gCopyWholeRows As Integer '整行复制时记录行数
Private gCopyRow As Integer '整行复制时记录行数
Private gIsCopyRowDataReady As Boolean = False '整行复制时标记，只能复制一次
Public Sub MultiLineCopyData()
Dim tmpFrisRow As Integer = _grd.Selection.FirstRow
Dim tmpLastRow As Integer = _grd.Selection.LastRow
gCopyWholeRows = tmpLastRow - tmpFrisRow + 1
_grd.Range(tmpFrisRow, ColNames.Action, tmpLastRow, _grd.Cols - 1).CopyData()
''' <summary>
''' 向后导航
''' </summary>
Public Sub BackwardNavigation()
GridNavigationManager.Backward()
End Sub
Public Sub MultiLinePasteData()
Dim tmpFrisRow As Integer = _grd.Selection.FirstRow
''' <summary>
''' 向前导航
''' </summary>
Public Sub ForwardNavigation()
GridNavigationManager.Forward()
End Sub
LockGridAutoRedraw()
''' <summary>
''' 是否可以后退
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function CanBackward() As Boolean
Return GridNavigationManager.CanBackward
End Function
'插入节点
NodeAdd(gCopyWholeRows)
''' <summary>
''' 是否可以前进
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function CanForward() As Boolean
Return GridNavigationManager.CanForward
End Function
_grd.Range(tmpFrisRow, ColNames.Action, tmpFrisRow + gCopyWholeRows, _grd.Cols - 1).PasteData()
UnLockGridAutoRedraw()
''' <summary>
'''
''' </summary>
Public Sub ClearNavigation()
GridNavigationManager.Clear()
_lastSelction = Nothing
_lastTempSelction = Nothing
End Sub
'离开表格时活动单元格背景颜色
@@ -1265,11 +1286,41 @@ Namespace UTSModule.Station
RaiseEvent RowNodeTextChanged(sender, args)
End Sub
Private _lastSelction As GridSelectRange
Private _lastTempSelction As GridSelectRange
Private _isSelection As Boolean = False
Private Sub Grid_SelChange(sender As Object, e As Grid.SelChangeEventArgs)
'todo:更新详情表格
If _headNode Is Nothing Then Return
Dim node As RowNode = _headNode.RowList(_grd.ActiveCell.Row - _drawStartRow + 1)
If node Is Nothing Then Return
Console.WriteLine($"Grid_SelChange: row:{e.FirstRow} col:{e.FirstCol} end row{e.LastRow} {e.LastCol}")
If Not GridNavigationManager.IsRunning Then
Dim newSelection As New GridSelectRange With {.StartRow = e.FirstRow, .StartCol = e.FirstCol, .EndRow = e.LastRow, .EndCol = e.LastCol}
If _lastSelction IsNot Nothing AndAlso _lastTempSelction IsNot Nothing Then
If _lastTempSelction IsNot Nothing AndAlso _lastTempSelction.StartRow = newSelection.StartRow AndAlso _lastTempSelction.StartCol = newSelection.StartCol Then
_isSelection = True
GridNavigationManager.RemoveForward()
GridNavigationManager.Append(New GridNavigation(_grd, _lastSelction, newSelection))
Else
If _isSelection Then
GridNavigationManager.RemoveForward()
GridNavigationManager.Append(New GridNavigation(_grd, _lastSelction, _lastTempSelction))
GridNavigationManager.Append(New GridNavigation(_grd, _lastTempSelction, newSelection))
_lastSelction = _lastTempSelction
_isSelection = False
Else
GridNavigationManager.Append(New GridNavigation(_grd, _lastTempSelction, newSelection))
If _lastSelction Is Nothing OrElse (_lastSelction.StartRow <> _lastTempSelction.StartRow AndAlso _lastSelction.StartCol <> _lastTempSelction.StartCol) Then _lastSelction = _lastTempSelction
End If
End If
_lastTempSelction = newSelection
Else
_lastTempSelction = newSelection
_lastSelction = _lastTempSelction
End If
End If
ActiveNode = node
@@ -1286,6 +1337,15 @@ Namespace UTSModule.Station
RaiseEvent PlanNodeSelectChanged(sender, event2)
End Sub
Private Sub Grid_LeaveCell(sender As Object, e As Grid.LeaveCellEventArgs)
'If Not GrdiNavigationManager.IsRunning Then
' Dim lastSelection As New GridSelectRange With {.StartRow = e.Row, .StartCol = e.Col, .EndRow = e.Row, .EndCol = e.Col}
' Dim newSelection As New GridSelectRange With {.StartRow = e.NewRow, .StartCol = e.NewCol, .EndRow = e.NewRow, .EndCol = e.NewCol}
' GrdiNavigationManager.Append(New GridNavigation(_grd, lastSelection, newSelection))
' Console.WriteLine($"GridNavigation: row:{e.NewRow} col:{e.NewCol} last row{e.Row} {e.Col}")
'End If
End Sub
Private _dropCol As Integer = 0
Private _dropRow As Integer = 0
@@ -1480,20 +1540,19 @@ Namespace UTSModule.Station
End Sub
Public Sub NodeAdd(rows As Integer)
Public Sub NodeAdd(startMoveRow As Integer, rows As Integer)
Dim idx As Integer
Dim node As RowNode
If rows < 1 Then Return
If _grd.ActiveCell Is Nothing OrElse _grd.Tree.SelectedNode Is Nothing Then Return
If _headNode Is Nothing Then Return
LockGridAutoRedraw()
Dim row As Integer = _grd.ActiveCell.Row + rows
Dim row As Integer = startMoveRow + rows
For idx = 1 To rows
node = _headNode.RowList(_grd.ActiveCell.Row - _drawStartRow + 1)
node = _headNode.RowList(startMoveRow - _drawStartRow + 1)
If node Is Nothing Then Exit For
@@ -1519,19 +1578,18 @@ Namespace UTSModule.Station
UnLockGridAutoRedraw()
End Sub
Public Sub NodeDel(rows As Integer)
Public Sub NodeDel(startMoveRow As Integer, rows As Integer)
Dim idx As Integer
Dim node As RowNode
If rows < 1 Then Return
If _grd.ActiveCell Is Nothing OrElse _grd.Tree.SelectedNode Is Nothing Then Return
If _headNode Is Nothing Then Return
LockGridAutoRedraw()
Dim row As Integer = _grd.ActiveCell.Row - 1
Dim row As Integer = startMoveRow - 1
For idx = 1 To rows
node = _headNode.RowList(_grd.ActiveCell.Row - _drawStartRow + 1)
node = _headNode.RowList(startMoveRow - _drawStartRow + 1)
If node Is Nothing Then Exit For
'更新内存
@@ -1578,62 +1636,220 @@ Namespace UTSModule.Station
End Sub
Public Sub NodeMoveUp(rows As Integer)
Dim node As RowNode
Dim moveDownRow As Integer '下移动前起始位置
Dim moveDownCount As Integer '下移动总量
Dim moveUpRow As Integer '上移动前起始位置
Dim moveUpCount As Integer '上移动总量
If rows < 1 Then Return
If _grd.ActiveCell Is Nothing OrElse _grd.Tree.SelectedNode Is Nothing Then Return
Public Sub NodeMoveUp(startMoveRow As Integer, moveRows As Integer)
If _headNode Is Nothing Then Return
'获取起始节点信息
Dim lstMoveNodes As New List(Of RowNode)
Dim lstFixNodes As New List(Of RowNode)
Dim isMoveUp As Boolean = True
node = _headNode.RowList(_grd.ActiveCell.Row - _drawStartRow + 1)
If node Is Nothing Then Return
Dim startNode As RowNode = _headNode.RowList(startMoveRow - _drawStartRow + 1)
Dim prevNode As RowNode = startNode.PrevNode
Dim node As RowNode = startNode
Dim moveUpRows As Integer = node.AllChildCount + 1
'更新内存
If node.PrevNode Is Nothing Then Return
If prevNode Is Nothing Then Return
moveDownRow = node.PrevNode.RowListIndex '下移动前起始位置
moveDownCount = node.PrevNode.AllChildCount + 1 '下移动总量
'获取所有移动节点信息
lstMoveNodes.Add(node)
For i As Integer = 2 To moveRows
node = _headNode.RowList(startMoveRow - _drawStartRow + i)
If node.RowLever < node.RowLever Then Exit For '高于起始节点级别不移动
If node.RowLever > node.RowLever Then Continue For '低于起始节点级别认为是子节点不记录
moveUpRow = node.RowListIndex '上移动前起始位置
moveUpCount = node.AllChildCount + 1 '上移动总量
moveUpRows += node.AllChildCount + 1
lstMoveNodes.Add(node)
Next
node.MoveUp()
'如果需要上移的节点过多则修改为上一节点下移操作
lstFixNodes.Add(prevNode)
isMoveUp = moveUpRows < prevNode.AllChildCount
UpdateGrid(_grd.Tree.SelectedNode.PrevNode, _grd.Tree.SelectedNode)
If isMoveUp Then
NodeMoveUp(lstFixNodes, lstMoveNodes)
Else
NodeMoveNext(lstFixNodes, lstMoveNodes)
End If
'Dim grdNode As FlexCell.Node
'Dim grdPrevNode As FlexCell.Node
''进行移动操作
'LockGridAutoRedraw()
'_uploading = True
'For i As Integer = 0 To lstMoveNodes.Count - 1
' node = lstMoveNodes(i)
' grdNode = _grd.Tree.FindNode(node.RowListIndex)
' grdPrevNode = grdNode.PrevNode
' If node Is Nothing Then Exit For
' If node.PrevNode Is Nothing Then Exit For
' If isMoveUp Then
' node.MoveUp()
' grdNode.Remove()
' grdPrevNode.Parent.Nodes.Insert(grdPrevNode.Index, String.Empty)
' UpdateGrid(_grd, node.RowListIndex, node)
' '获取表格节点，添加其子节点
' Dim pNode As FlexCell.Node = _grd.Tree.FindNode(node.RowListIndex)
' AddGridTreeNode(pNode, node)
' ' UpdateGrid(grdPrevNode, grdNode)
' Else
' node.MoveDown()
' grdNode.Remove()
' grdPrevNode.Parent.Nodes.Insert(grdPrevNode.Index, String.Empty)
' End If
'Next
''节点修改
'StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Changed
'_uploading = False
'UnLockGridAutoRedraw()
End Sub
Public Sub NodeMoveNext(upNode As List(Of RowNode), downNode As List(Of RowNode))
LockGridAutoRedraw()
_uploading = True
Dim grdNode As FlexCell.Node
Dim grdParentNode As FlexCell.Node
Dim preNode As RowNode = downNode(downNode.Count - 1)
For Each node As RowNode In upNode
grdNode = _grd.Tree.FindNode(node.RowListIndex)
grdParentNode = grdNode.Parent
node.Remove()
preNode.ParentNode.InsertNode(preNode.RowIndex + 1, node)
grdNode.Remove()
grdParentNode.Nodes.Insert(node.RowIndex, String.Empty)
UpdateGrid(_grd, node.RowListIndex, node)
'获取表格节点，添加其子节点
Dim pNode As FlexCell.Node = _grd.Tree.FindNode(node.RowListIndex)
AddGridTreeNode(pNode, node)
preNode = node
Next
'节点修改
StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Changed
_uploading = False
UnLockGridAutoRedraw()
End Sub
Public Sub NodeMoveUp(upNode As List(Of RowNode), downNode As List(Of RowNode))
LockGridAutoRedraw()
_uploading = True
Dim grdNode As FlexCell.Node
Dim grdParentNode As FlexCell.Node
Dim nextNode As RowNode = upNode(0)
For Each node As RowNode In downNode
grdNode = _grd.Tree.FindNode(node.RowListIndex)
grdParentNode = grdNode.Parent
node.Remove()
nextNode.ParentNode.InsertNode(nextNode.RowIndex, node)
grdNode.Remove()
grdParentNode.Nodes.Insert(node.RowIndex, String.Empty)
UpdateGrid(_grd, node.RowListIndex, node)
'获取表格节点，添加其子节点
Dim pNode As FlexCell.Node = _grd.Tree.FindNode(node.RowListIndex)
AddGridTreeNode(pNode, node)
nextNode = node
Next
'节点修改
StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Changed
_uploading = False
UnLockGridAutoRedraw()
_grd.Cell(node.RowListIndex, _grd.ActiveCell.Col).SetFocus()
End Sub
Public Sub NodeMoveDown()
If _grd.ActiveCell Is Nothing OrElse _grd.Tree.SelectedNode Is Nothing Then Return
Public Sub NodeMoveDown(startMoveRow As Integer, moveRows As Integer)
If _headNode Is Nothing Then Return
Dim node As RowNode = _headNode.RowList(_grd.ActiveCell.Row - _drawStartRow + 1)
If node Is Nothing Then Return
'获取起始节点信息
Dim lstMoveNodes As New List(Of RowNode)
Dim lstFixNodes As New List(Of RowNode)
Dim isMoveDown As Boolean = True
Dim endNode As RowNode = _headNode.RowList(startMoveRow + moveRows - _drawStartRow)
Dim nextNode As RowNode = endNode.NextNode
Dim node As RowNode = endNode
Dim moveDownRows As Integer = 0
If nextNode Is Nothing Then Return
'获取所有移动节点信息
For i As Integer = 1 To moveRows
node = _headNode.RowList(startMoveRow - _drawStartRow + i)
If node.RowLever < node.RowLever Then Exit For '高于起始节点级别不移动
If node.RowLever > node.RowLever Then Continue For '低于起始节点级别认为是子节点不记录
moveDownRows += node.AllChildCount + 1
lstMoveNodes.Add(node)
Next
'如果需要上移的节点过多则修改为上一节点下移操作
lstFixNodes.Add(nextNode)
isMoveDown = moveDownRows < nextNode.AllChildCount
If isMoveDown Then
NodeMoveNext(lstMoveNodes, lstFixNodes)
Else
NodeMoveUp(lstMoveNodes, lstFixNodes)
End If
'更新内存
If node.NextNode Is Nothing Then Return
Dim moveDownRow As Integer = node.RowListIndex '下移动前起始位置
Dim moveDownCount As Integer = node.AllChildCount + 1 '下移动总量
Dim moveUpRow As Integer = node.NextNode.RowListIndex '上移动前起始位置
Dim moveUpCount As Integer = node.NextNode.AllChildCount + 1 '上移动总量
node.MoveDown()
UpdateGrid(_grd.Tree.SelectedNode, _grd.Tree.SelectedNode.NextNode)
_grd.Cell(node.RowListIndex, _grd.ActiveCell.Col).SetFocus()
'If _grd.ActiveCell Is Nothing OrElse _grd.Tree.SelectedNode Is Nothing Then Return
'If _headNode Is Nothing Then Return
'Dim node As RowNode = _headNode.RowList(_grd.ActiveCell.Row - _drawStartRow + 1)
'If node Is Nothing Then Return
''更新内存
'If node.NextNode Is Nothing Then Return
'Dim moveDownRow As Integer = node.RowListIndex '下移动前起始位置
'Dim moveDownCount As Integer = node.AllChildCount + 1 '下移动总量
'Dim moveUpRow As Integer = node.NextNode.RowListIndex '上移动前起始位置
'Dim moveUpCount As Integer = node.NextNode.AllChildCount + 1 '上移动总量
'node.MoveDown()
'UpdateGrid(_grd.Tree.SelectedNode, _grd.Tree.SelectedNode.NextNode)
'_grd.Cell(node.RowListIndex, _grd.ActiveCell.Col).SetFocus()
End Sub
@@ -1706,27 +1922,16 @@ Namespace UTSModule.Station
''' <summary>
''' 节点升级
''' </summary>
Public Sub NodeMoveLeft(rows As Integer)
Dim node As RowNode
Dim moveDownRow As Integer '下移动前起始位置
Dim moveDownCount As Integer '下移动总量
Dim moveUpRow As Integer '上移动前起始位置
Dim moveUpCount As Integer '上移动总量
Dim nextNode As RowNode
If rows < 1 Then Return
If _grd.ActiveCell Is Nothing OrElse _grd.Tree.SelectedNode Is Nothing Then Return
Public Sub NodeMoveLeft(startMoveRow As Integer, moveRows As Integer)
If _headNode Is Nothing Then Return
Dim moveLeftSatrtRow As Integer = _grd.ActiveCell.Row
Dim node As RowNode
Dim grdNode As FlexCell.Node
Dim grdParentNode As FlexCell.Node
LockGridAutoRedraw()
_uploading = True
For idx As Integer = 1 To rows
node = _headNode.RowList(moveLeftSatrtRow - _drawStartRow + 1)
For idx As Integer = moveRows To 1 Step -1
node = _headNode.RowList(startMoveRow - _drawStartRow + idx)
Console.WriteLine($"Index:{node.RowListIndex}")
If node Is Nothing Then Exit For
@@ -1735,28 +1940,6 @@ Namespace UTSModule.Station
grdNode = _grd.Tree.FindNode(node.RowListIndex)
grdParentNode = grdNode.Parent
'更新内存
If node.NextNode Is Nothing Then
node.MoveLeft()
grdNode.Remove()
grdParentNode.Parent.Nodes.Insert(grdParentNode.Index + 1, "")
UpdateGrid(_grd, node.RowListIndex, node)
AddGridTreeNode(_grd.Tree.FindNode(node.RowListIndex), node)
Exit For
End If
moveDownRow = node.RowListIndex '下移动前起始位置
moveDownCount = node.AllChildCount + 1 '下移动总量
moveUpRow = node.NextNode.RowListIndex '上移动前起始位置
moveUpCount = 0 '上移动总量
nextNode = node.NextNode
While nextNode IsNot Nothing
moveUpCount += nextNode.AllChildCount + 1
nextNode = nextNode.NextNode
End While
node.MoveLeft()
Console.WriteLine($"Node:{node.RowLever}")
@@ -1764,9 +1947,11 @@ Namespace UTSModule.Station
grdParentNode.Parent.Nodes.Insert(grdParentNode.Index + 1, "")
UpdateGrid(_grd, node.RowListIndex, node)
AddGridTreeNode(_grd.Tree.FindNode(node.RowListIndex), node)
_grd.Cell(node.RowListIndex, _grd.ActiveCell.Col).SetFocus()
StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Changed
Next
_uploading = False
UnLockGridAutoRedraw()
End Sub
@@ -1775,20 +1960,18 @@ Namespace UTSModule.Station
''' <summary>
''' 节点降级
''' </summary>
Public Sub NodeMoveRight(rows As Integer)
Dim node As RowNode
If rows < 1 Then Return
If _grd.ActiveCell Is Nothing OrElse _grd.Tree.SelectedNode Is Nothing Then Return
Public Sub NodeMoveRight(startMoveRow As Integer, moveRows As Integer)
If _headNode Is Nothing Then Return
Dim node As RowNode
Dim grdNode As FlexCell.Node
Dim grdPreNode As FlexCell.Node
Dim moveLeftSatrtRow As Integer = _grd.ActiveCell.Row
LockGridAutoRedraw()
_uploading = True
For idx As Integer = 1 To rows
node = _headNode.RowList(_grd.ActiveCell.Row - _drawStartRow + idx)
For idx As Integer = 1 To moveRows
node = _headNode.RowList(startMoveRow - _drawStartRow + idx)
If node Is Nothing Then Exit For
If node.RowType = RowNode.RowTypeEnum.FixedModule Then Exit For
If node.RowIndex = 0 Then Exit For
@@ -1802,11 +1985,9 @@ Namespace UTSModule.Station
grdPreNode.Nodes.Add("", "")
UpdateGrid(_grd, node.RowListIndex, node)
AddGridTreeNode(_grd.Tree.FindNode(node.RowListIndex), node)
_grd.Cell(node.RowListIndex, _grd.ActiveCell.Col).SetFocus()
StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Changed
Next
_uploading = False
UnLockGridAutoRedraw()
End Sub

4
UTS_Core/UTS_Core.vbproj
View File

@@ -298,6 +298,10 @@
<Compile Include="UTSModule\Service\AppRegister.vb" />
<Compile Include="UTSModule\Service\AutsTcpClient.vb" />
<Compile Include="UTSModule\Service\ServiceTask.vb" />
<Compile Include="UTSModule\Station\GridNavigationManager.vb" />
<Compile Include="UTSModule\Station\GridNavigation.vb" />
<Compile Include="UTSModule\Station\GridNodeMoveUpCommand.vb" />
<Compile Include="UTSModule\Station\INavigation.vb" />
<Compile Include="UTSModule\Station\IStationPlan.vb" />
<Compile Include="UTSModule\Station\StationPackagePlan.vb" />
<Compile Include="UTSModule\Station\PlanNodeSelectChangedEventArgs.vb" />

1
UTS_Core/Undo/CommandManager.vb
View File

@@ -71,7 +71,6 @@
command.Redo()
UndoCommands.Push(command)
'MemberwiseClone()‘浅拷贝
End Sub
End Class

1
UTS_Core/Undo/ICommand.vb
View File

@@ -6,7 +6,6 @@
Sub Execute()
''' <summary>
''' 重做命令
''' </summary>

BIN
UTS_Core/bin/Debug/UTS_Core.dll
View File

Binary file not shown.

BIN
UTS_Core/bin/Debug/UTS_Core.pdb
View File

Binary file not shown.

73
UTS_Core/bin/Debug/UTS_Core.xml
View File

@@ -6106,6 +6106,35 @@ UTS_Core
对第二行的Action执行一遍操作，以触发更新事件
</summary>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.BackwardNavigation">
<summary>
向后导航
</summary>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.ForwardNavigation">
<summary>
向前导航
</summary>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.CanBackward">
<summary>
是否可以后退
</summary>
<returns></returns>
<remarks></remarks>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.CanForward">
<summary>
是否可以前进
</summary>
<returns></returns>
<remarks></remarks>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.ClearNavigation">
<summary>
</summary>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.Grid_MouseLeave(System.Object,System.EventArgs)">
<summary>
光标离开grd表格时，黄色底色切换到选中行
@@ -6228,12 +6257,12 @@ UTS_Core
</summary>
<param name="node"></param>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveLeft(System.Int32)">
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveLeft(System.Int32,System.Int32)">
<summary>
节点升级
</summary>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveRight(System.Int32)">
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveRight(System.Int32,System.Int32)">
<summary>
节点降级
</summary>
@@ -9774,6 +9803,46 @@ UTS系列App与UtsCore交互为避免重复书写产生的中间类
</summary>
<returns></returns>
</member>
<member name="P:UTS_Core.GridNavigationManager.IsRunning">
<summary>
是否正在执行导航操作
</summary>
<remarks></remarks>
</member>
<member name="P:UTS_Core.GridNavigationManager.CanForward">
<summary>
是否可以后退
</summary>
<returns></returns>
</member>
<member name="P:UTS_Core.GridNavigationManager.CanBackward">
<summary>
是否可以前进
</summary>
<returns></returns>
<remarks></remarks>
</member>
<member name="M:UTS_Core.GridNavigationManager.Append(UTS_Core.INavigation)">
<summary>
添加导航
<param name="navigation">导航</param>
</summary>
</member>
<member name="M:UTS_Core.GridNavigationManager.RemoveForward">
<summary>
</summary>
</member>
<member name="M:UTS_Core.INavigation.Backward">
<summary>
向后导航
</summary>
</member>
<member name="M:UTS_Core.INavigation.Forward">
<summary>
向前导航
</summary>
</member>
<member name="M:UTS_Core.utsLabel.RunMode">
<summary>
解析模式，并且确定有关参数

BIN
UTS_Core/obj/Debug/DesignTimeResolveAssemblyReferences.cache
View File

Binary file not shown.

BIN
UTS_Core/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
View File

Binary file not shown.

BIN
UTS_Core/obj/Debug/UTS_Core.UTSModule.Station.FrmStationPlan.resources
View File

Binary file not shown.

BIN
UTS_Core/obj/Debug/UTS_Core.dll
View File

Binary file not shown.

BIN
UTS_Core/obj/Debug/UTS_Core.pdb
View File

Binary file not shown.

BIN
UTS_Core/obj/Debug/UTS_Core.vbproj.AssemblyReference.cache
View File

Binary file not shown.

2
UTS_Core/obj/Debug/UTS_Core.vbproj.CoreCompileInputs.cache
View File

@@ -1 +1 @@
c5e447f21e4566eafb50096c9ff8e17beb0c61abb20024da831ee1debf91f22c
af7ffd6c70aae8262a8fd7fa2be8ccce4d83b9bc4c1bfc834a19f24335ece0da

BIN
UTS_Core/obj/Debug/UTS_Core.vbproj.GenerateResource.cache
View File

Binary file not shown.

73
UTS_Core/obj/Debug/UTS_Core.xml
View File

@@ -6106,6 +6106,35 @@ UTS_Core
对第二行的Action执行一遍操作，以触发更新事件
</summary>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.BackwardNavigation">
<summary>
向后导航
</summary>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.ForwardNavigation">
<summary>
向前导航
</summary>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.CanBackward">
<summary>
是否可以后退
</summary>
<returns></returns>
<remarks></remarks>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.CanForward">
<summary>
是否可以前进
</summary>
<returns></returns>
<remarks></remarks>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.ClearNavigation">
<summary>
</summary>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.Grid_MouseLeave(System.Object,System.EventArgs)">
<summary>
光标离开grd表格时，黄色底色切换到选中行
@@ -6228,12 +6257,12 @@ UTS_Core
</summary>
<param name="node"></param>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveLeft(System.Int32)">
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveLeft(System.Int32,System.Int32)">
<summary>
节点升级
</summary>
</member>
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveRight(System.Int32)">
<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveRight(System.Int32,System.Int32)">
<summary>
节点降级
</summary>
@@ -9774,6 +9803,46 @@ UTS系列App与UtsCore交互为避免重复书写产生的中间类
</summary>
<returns></returns>
</member>
<member name="P:UTS_Core.GridNavigationManager.IsRunning">
<summary>
是否正在执行导航操作
</summary>
<remarks></remarks>
</member>
<member name="P:UTS_Core.GridNavigationManager.CanForward">
<summary>
是否可以后退
</summary>
<returns></returns>
</member>
<member name="P:UTS_Core.GridNavigationManager.CanBackward">
<summary>
是否可以前进
</summary>
<returns></returns>
<remarks></remarks>
</member>
<member name="M:UTS_Core.GridNavigationManager.Append(UTS_Core.INavigation)">
<summary>
添加导航
<param name="navigation">导航</param>
</summary>
</member>
<member name="M:UTS_Core.GridNavigationManager.RemoveForward">
<summary>
</summary>
</member>
<member name="M:UTS_Core.INavigation.Backward">
<summary>
向后导航
</summary>
</member>
<member name="M:UTS_Core.INavigation.Forward">
<summary>
向前导航
</summary>
</member>
<member name="M:UTS_Core.utsLabel.RunMode">
<summary>
解析模式，并且确定有关参数