diff --git a/AUTS_Win/bin/Debug/AUTS_Win.exe b/AUTS_Win/bin/Debug/AUTS_Win.exe
index 1a1242c..d8529e8 100644
Binary files a/AUTS_Win/bin/Debug/AUTS_Win.exe and b/AUTS_Win/bin/Debug/AUTS_Win.exe differ
diff --git a/AUTS_Win/bin/Debug/AUTS_Win.pdb b/AUTS_Win/bin/Debug/AUTS_Win.pdb
index 2938bba..65b2991 100644
Binary files a/AUTS_Win/bin/Debug/AUTS_Win.pdb and b/AUTS_Win/bin/Debug/AUTS_Win.pdb differ
diff --git a/AUTS_Win/bin/Debug/UTS_Core.dll b/AUTS_Win/bin/Debug/UTS_Core.dll
index 6cb0a87..d17a9bf 100644
Binary files a/AUTS_Win/bin/Debug/UTS_Core.dll and b/AUTS_Win/bin/Debug/UTS_Core.dll differ
diff --git a/AUTS_Win/bin/Debug/UTS_Core.pdb b/AUTS_Win/bin/Debug/UTS_Core.pdb
index ddb0f42..bd11008 100644
Binary files a/AUTS_Win/bin/Debug/UTS_Core.pdb and b/AUTS_Win/bin/Debug/UTS_Core.pdb differ
diff --git a/AUTS_Win/bin/Debug/UTS_Core.xml b/AUTS_Win/bin/Debug/UTS_Core.xml
index d8ec957..9a1d437 100644
--- a/AUTS_Win/bin/Debug/UTS_Core.xml
+++ b/AUTS_Win/bin/Debug/UTS_Core.xml
@@ -6106,6 +6106,35 @@ UTS_Core
对第二行的Action执行一遍操作,以触发更新事件
+
+
+ 向后导航
+
+
+
+
+ 向前导航
+
+
+
+
+ 是否可以后退
+
+
+
+
+
+
+ 是否可以前进
+
+
+
+
+
+
+
+
+
光标离开grd表格时,黄色底色切换到选中行
@@ -6228,12 +6257,12 @@ UTS_Core
-
+
节点升级
-
+
节点降级
@@ -9774,6 +9803,46 @@ UTS系列App与UtsCore交互为避免重复书写产生的中间类
+
+
+ 是否正在执行导航操作
+
+
+
+
+
+ 是否可以后退
+
+
+
+
+
+ 是否可以前进
+
+
+
+
+
+
+ 添加导航
+ 导航
+
+
+
+
+
+
+
+
+
+ 向后导航
+
+
+
+
+ 向前导航
+
+
解析模式,并且确定有关参数
diff --git a/AUTS_Win/obj/Debug/AUTS_Win.exe b/AUTS_Win/obj/Debug/AUTS_Win.exe
index 1a1242c..d8529e8 100644
Binary files a/AUTS_Win/obj/Debug/AUTS_Win.exe and b/AUTS_Win/obj/Debug/AUTS_Win.exe differ
diff --git a/AUTS_Win/obj/Debug/AUTS_Win.pdb b/AUTS_Win/obj/Debug/AUTS_Win.pdb
index 2938bba..65b2991 100644
Binary files a/AUTS_Win/obj/Debug/AUTS_Win.pdb and b/AUTS_Win/obj/Debug/AUTS_Win.pdb differ
diff --git a/AUTS_Win/obj/Debug/AUTS_Win.vbproj.AssemblyReference.cache b/AUTS_Win/obj/Debug/AUTS_Win.vbproj.AssemblyReference.cache
index 9542ccc..5622f35 100644
Binary files a/AUTS_Win/obj/Debug/AUTS_Win.vbproj.AssemblyReference.cache and b/AUTS_Win/obj/Debug/AUTS_Win.vbproj.AssemblyReference.cache differ
diff --git a/UTS_Core/UTSModule/Station/FrmStationPlan.Designer.vb b/UTS_Core/UTSModule/Station/FrmStationPlan.Designer.vb
index 4ce53cc..defc978 100644
--- a/UTS_Core/UTSModule/Station/FrmStationPlan.Designer.vb
+++ b/UTS_Core/UTSModule/Station/FrmStationPlan.Designer.vb
@@ -38,701 +38,614 @@ 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()
- Me.TsBtnMoveRight = New System.Windows.Forms.ToolStripButton()
- Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
- Me.TsBtnDebugMode = New System.Windows.Forms.ToolStripButton()
- Me.TsBtnDebugStart = New System.Windows.Forms.ToolStripButton()
- Me.TsBtnFailMode = New System.Windows.Forms.ToolStripButton()
- Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator()
- Me.tslBtn_ActionOnly = New System.Windows.Forms.ToolStripButton()
- Me.TsBtn_Record = New System.Windows.Forms.ToolStripButton()
- Me.TsBtn_ExpandNode = New System.Windows.Forms.ToolStripButton()
- Me.StuMain = New System.Windows.Forms.StatusStrip()
- Me.TssLblTestStatus = New System.Windows.Forms.ToolStripStatusLabel()
- Me.TssLblTestTime = New System.Windows.Forms.ToolStripStatusLabel()
- Me.TssBarTestProgress = New System.Windows.Forms.ToolStripProgressBar()
- Me.SplStationPlan = New System.Windows.Forms.SplitContainer()
- Me.SplPlanDesign = New System.Windows.Forms.SplitContainer()
- 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()
- Me.tsBtn_UncheckAction = New System.Windows.Forms.ToolStripMenuItem()
- Me.ToolStripSeparator15 = New System.Windows.Forms.ToolStripSeparator()
- Me.MsiUndo = New System.Windows.Forms.ToolStripMenuItem()
- Me.MsiRedo = New System.Windows.Forms.ToolStripMenuItem()
- Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
- Me.MsiSaveNodeFile = New System.Windows.Forms.ToolStripMenuItem()
- Me.MsiLoadNodeFile = New System.Windows.Forms.ToolStripMenuItem()
- Me.ToolStripSeparator11 = New System.Windows.Forms.ToolStripSeparator()
- Me.TsmiDebugStart = New System.Windows.Forms.ToolStripMenuItem()
- Me.TsmiDebugEnd = New System.Windows.Forms.ToolStripMenuItem()
- Me.TsmiDebugStep = New System.Windows.Forms.ToolStripMenuItem()
- Me.TsmiDebugContinue = New System.Windows.Forms.ToolStripMenuItem()
- Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
- Me.TsmiDebugSetup = New System.Windows.Forms.ToolStripMenuItem()
- Me.TsmiDebugMain = New System.Windows.Forms.ToolStripMenuItem()
- Me.TsmiDebugPass = New System.Windows.Forms.ToolStripMenuItem()
- Me.TsmiDebugFail = New System.Windows.Forms.ToolStripMenuItem()
- Me.TsmiDebugCleanup = New System.Windows.Forms.ToolStripMenuItem()
- Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
- Me.TsmiDebugNode = New System.Windows.Forms.ToolStripMenuItem()
- Me.TsmiDebugNodeBegin = New System.Windows.Forms.ToolStripMenuItem()
- Me.GrpSingleRowInfo = New System.Windows.Forms.GroupBox()
- Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
- Me.GrdRowNode = New FlexCell.Grid()
- Me.RtxColTip = New System.Windows.Forms.RichTextBox()
- Me.GrpOutputInfo = New System.Windows.Forms.GroupBox()
- 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
- '
- '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.Location = New System.Drawing.Point(0, 0)
- Me.ToolStrip1.Name = "ToolStrip1"
- Me.ToolStrip1.Size = New System.Drawing.Size(977, 40)
- Me.ToolStrip1.TabIndex = 0
- Me.ToolStrip1.Text = "ToolStrip1"
- '
- 'TsBtnOpen
- '
- Me.TsBtnOpen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
- Me.TsBtnOpen.Image = CType(resources.GetObject("TsBtnOpen.Image"),System.Drawing.Image)
- Me.TsBtnOpen.ImageTransparentColor = System.Drawing.Color.Magenta
- Me.TsBtnOpen.Name = "TsBtnOpen"
- Me.TsBtnOpen.Size = New System.Drawing.Size(35, 37)
- Me.TsBtnOpen.Text = "打开"
- Me.TsBtnOpen.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
- '
- 'TsBtnSave
- '
- Me.TsBtnSave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
- Me.TsBtnSave.Image = CType(resources.GetObject("TsBtnSave.Image"),System.Drawing.Image)
- Me.TsBtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
- Me.TsBtnSave.Name = "TsBtnSave"
- Me.TsBtnSave.Size = New System.Drawing.Size(35, 37)
- Me.TsBtnSave.Text = "保存"
- Me.TsBtnSave.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
- '
- 'ToolStripSeparator4
- '
- Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
- Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 40)
- '
- 'TsBtnLoad
- '
- Me.TsBtnLoad.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
- Me.TsBtnLoad.Image = CType(resources.GetObject("TsBtnLoad.Image"),System.Drawing.Image)
- Me.TsBtnLoad.ImageTransparentColor = System.Drawing.Color.Magenta
- Me.TsBtnLoad.Name = "TsBtnLoad"
- Me.TsBtnLoad.Size = New System.Drawing.Size(35, 37)
- Me.TsBtnLoad.Text = "重载"
- Me.TsBtnLoad.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
- '
- 'TsBtnSaveAs
- '
- Me.TsBtnSaveAs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
- Me.TsBtnSaveAs.Image = CType(resources.GetObject("TsBtnSaveAs.Image"),System.Drawing.Image)
- Me.TsBtnSaveAs.ImageTransparentColor = System.Drawing.Color.Magenta
- Me.TsBtnSaveAs.Name = "TsBtnSaveAs"
- Me.TsBtnSaveAs.Size = New System.Drawing.Size(35, 37)
- Me.TsBtnSaveAs.Text = "导出"
- Me.TsBtnSaveAs.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
- '
- 'ToolStripSeparator3
- '
- Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
- Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 40)
- '
- 'tsBtnInsertRow
- '
- Me.tsBtnInsertRow.Image = CType(resources.GetObject("tsBtnInsertRow.Image"),System.Drawing.Image)
- Me.tsBtnInsertRow.ImageTransparentColor = System.Drawing.Color.Magenta
- Me.tsBtnInsertRow.Name = "tsBtnInsertRow"
- Me.tsBtnInsertRow.Size = New System.Drawing.Size(48, 37)
- Me.tsBtnInsertRow.Text = "插入行"
- Me.tsBtnInsertRow.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
- '
- 'tsBtnRemoveRow
- '
- Me.tsBtnRemoveRow.Image = CType(resources.GetObject("tsBtnRemoveRow.Image"),System.Drawing.Image)
- Me.tsBtnRemoveRow.ImageTransparentColor = System.Drawing.Color.Magenta
- Me.tsBtnRemoveRow.Name = "tsBtnRemoveRow"
- Me.tsBtnRemoveRow.Size = New System.Drawing.Size(48, 37)
- Me.tsBtnRemoveRow.Text = "移除行"
- Me.tsBtnRemoveRow.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
- '
- 'ToolStripSeparator13
- '
- Me.ToolStripSeparator13.Name = "ToolStripSeparator13"
- Me.ToolStripSeparator13.Size = New System.Drawing.Size(6, 40)
- '
- 'TsBtnCopyWholeRow
- '
- 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
- '
- 'TsBtnPasteWholdRows
- '
- 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 = "整行插入复制"
- '
- '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))
- Me.TsBtnMoveUp.Image = CType(resources.GetObject("TsBtnMoveUp.Image"),System.Drawing.Image)
- Me.TsBtnMoveUp.ImageTransparentColor = System.Drawing.Color.Magenta
- Me.TsBtnMoveUp.Name = "TsBtnMoveUp"
- Me.TsBtnMoveUp.Size = New System.Drawing.Size(35, 37)
- Me.TsBtnMoveUp.Text = "上移"
- Me.TsBtnMoveUp.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
- '
- 'TsBtnMoveDown
- '
- Me.TsBtnMoveDown.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
- Me.TsBtnMoveDown.Image = CType(resources.GetObject("TsBtnMoveDown.Image"),System.Drawing.Image)
- Me.TsBtnMoveDown.ImageTransparentColor = System.Drawing.Color.Magenta
- Me.TsBtnMoveDown.Name = "TsBtnMoveDown"
- Me.TsBtnMoveDown.Size = New System.Drawing.Size(35, 37)
- Me.TsBtnMoveDown.Text = "下移"
- Me.TsBtnMoveDown.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
- '
- 'TsBtnMoveLeft
- '
- Me.TsBtnMoveLeft.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
- Me.TsBtnMoveLeft.Image = CType(resources.GetObject("TsBtnMoveLeft.Image"),System.Drawing.Image)
- Me.TsBtnMoveLeft.ImageTransparentColor = System.Drawing.Color.Magenta
- Me.TsBtnMoveLeft.Name = "TsBtnMoveLeft"
- Me.TsBtnMoveLeft.Size = New System.Drawing.Size(35, 37)
- Me.TsBtnMoveLeft.Text = "升级"
- Me.TsBtnMoveLeft.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
- '
- 'TsBtnMoveRight
- '
- Me.TsBtnMoveRight.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
- Me.TsBtnMoveRight.Image = CType(resources.GetObject("TsBtnMoveRight.Image"),System.Drawing.Image)
- Me.TsBtnMoveRight.ImageTransparentColor = System.Drawing.Color.Magenta
- Me.TsBtnMoveRight.Name = "TsBtnMoveRight"
- Me.TsBtnMoveRight.Size = New System.Drawing.Size(35, 37)
- Me.TsBtnMoveRight.Text = "降级"
- Me.TsBtnMoveRight.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
- '
- 'ToolStripSeparator2
- '
- Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
- Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 40)
- '
- 'TsBtnDebugMode
- '
- Me.TsBtnDebugMode.Image = CType(resources.GetObject("TsBtnDebugMode.Image"),System.Drawing.Image)
- Me.TsBtnDebugMode.ImageTransparentColor = System.Drawing.Color.Magenta
- Me.TsBtnDebugMode.Name = "TsBtnDebugMode"
- Me.TsBtnDebugMode.Size = New System.Drawing.Size(60, 37)
- Me.TsBtnDebugMode.Text = "调试模式"
- Me.TsBtnDebugMode.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
- '
- 'TsBtnDebugStart
- '
- Me.TsBtnDebugStart.Image = CType(resources.GetObject("TsBtnDebugStart.Image"),System.Drawing.Image)
- Me.TsBtnDebugStart.ImageTransparentColor = System.Drawing.Color.Magenta
- Me.TsBtnDebugStart.Name = "TsBtnDebugStart"
- Me.TsBtnDebugStart.Size = New System.Drawing.Size(60, 37)
- Me.TsBtnDebugStart.Text = "开始调试"
- Me.TsBtnDebugStart.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
- '
- 'TsBtnFailMode
- '
- Me.TsBtnFailMode.Image = CType(resources.GetObject("TsBtnFailMode.Image"),System.Drawing.Image)
- Me.TsBtnFailMode.ImageTransparentColor = System.Drawing.Color.Magenta
- Me.TsBtnFailMode.Name = "TsBtnFailMode"
- Me.TsBtnFailMode.Size = New System.Drawing.Size(60, 37)
- Me.TsBtnFailMode.Text = "单步退出"
- Me.TsBtnFailMode.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
- '
- 'ToolStripSeparator10
- '
- Me.ToolStripSeparator10.Name = "ToolStripSeparator10"
- Me.ToolStripSeparator10.Size = New System.Drawing.Size(6, 40)
- '
- 'tslBtn_ActionOnly
- '
- Me.tslBtn_ActionOnly.Image = CType(resources.GetObject("tslBtn_ActionOnly.Image"),System.Drawing.Image)
- Me.tslBtn_ActionOnly.ImageTransparentColor = System.Drawing.Color.Magenta
- Me.tslBtn_ActionOnly.Name = "tslBtn_ActionOnly"
- Me.tslBtn_ActionOnly.Size = New System.Drawing.Size(48, 37)
- Me.tslBtn_ActionOnly.Text = "Action"
- Me.tslBtn_ActionOnly.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
- '
- 'TsBtn_Record
- '
- Me.TsBtn_Record.Image = CType(resources.GetObject("TsBtn_Record.Image"),System.Drawing.Image)
- Me.TsBtn_Record.ImageTransparentColor = System.Drawing.Color.Magenta
- Me.TsBtn_Record.Name = "TsBtn_Record"
- Me.TsBtn_Record.Size = New System.Drawing.Size(54, 37)
- Me.TsBtn_Record.Text = "Record"
- Me.TsBtn_Record.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
- '
- 'TsBtn_ExpandNode
- '
- Me.TsBtn_ExpandNode.Image = CType(resources.GetObject("TsBtn_ExpandNode.Image"),System.Drawing.Image)
- Me.TsBtn_ExpandNode.ImageTransparentColor = System.Drawing.Color.Magenta
- Me.TsBtn_ExpandNode.Name = "TsBtn_ExpandNode"
- Me.TsBtn_ExpandNode.Size = New System.Drawing.Size(55, 37)
- Me.TsBtn_ExpandNode.Text = "Expand"
- Me.TsBtn_ExpandNode.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
- '
- 'StuMain
- '
- Me.StuMain.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TssLblTestStatus, Me.TssLblTestTime, Me.TssBarTestProgress})
- Me.StuMain.Location = New System.Drawing.Point(0, 558)
- Me.StuMain.Name = "StuMain"
- Me.StuMain.Size = New System.Drawing.Size(977, 22)
- Me.StuMain.TabIndex = 1
- Me.StuMain.Text = "StatusStrip1"
- '
- 'TssLblTestStatus
- '
- 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.ForeColor = System.Drawing.Color.Green
- Me.TssLblTestTime.Name = "TssLblTestTime"
- Me.TssLblTestTime.Overflow = System.Windows.Forms.ToolStripItemOverflow.Always
- Me.TssLblTestTime.Size = New System.Drawing.Size(160, 17)
- Me.TssLblTestTime.Text = "TimeExpend:00:00:00:000"
- '
- 'TssBarTestProgress
- '
- Me.TssBarTestProgress.AutoSize = false
- Me.TssBarTestProgress.Name = "TssBarTestProgress"
- Me.TssBarTestProgress.Size = New System.Drawing.Size(200, 16)
- '
- 'SplStationPlan
- '
- Me.SplStationPlan.Dock = System.Windows.Forms.DockStyle.Fill
- Me.SplStationPlan.Location = New System.Drawing.Point(0, 40)
- Me.SplStationPlan.Name = "SplStationPlan"
- Me.SplStationPlan.Orientation = System.Windows.Forms.Orientation.Horizontal
- '
- 'SplStationPlan.Panel1
- '
- Me.SplStationPlan.Panel1.Controls.Add(Me.SplPlanDesign)
- '
- 'SplStationPlan.Panel2
- '
- Me.SplStationPlan.Panel2.Controls.Add(Me.GrpOutputInfo)
- Me.SplStationPlan.Size = New System.Drawing.Size(977, 518)
- Me.SplStationPlan.SplitterDistance = 348
- Me.SplStationPlan.TabIndex = 10
- '
- 'SplPlanDesign
- '
- Me.SplPlanDesign.Dock = System.Windows.Forms.DockStyle.Fill
- Me.SplPlanDesign.Location = New System.Drawing.Point(0, 0)
- Me.SplPlanDesign.Name = "SplPlanDesign"
- '
- 'SplPlanDesign.Panel1
- '
- Me.SplPlanDesign.Panel1.Controls.Add(Me.GrpStationPlan)
- '
- 'SplPlanDesign.Panel2
- '
- Me.SplPlanDesign.Panel2.Controls.Add(Me.GrpSingleRowInfo)
- Me.SplPlanDesign.Size = New System.Drawing.Size(977, 348)
- Me.SplPlanDesign.SplitterDistance = 671
- Me.SplPlanDesign.TabIndex = 0
- '
- 'GrpStationPlan
- '
- Me.GrpStationPlan.Controls.Add(Me.GrdStationPlan)
- Me.GrpStationPlan.Dock = System.Windows.Forms.DockStyle.Fill
- Me.GrpStationPlan.Location = New System.Drawing.Point(0, 0)
- Me.GrpStationPlan.Name = "GrpStationPlan"
- Me.GrpStationPlan.Size = New System.Drawing.Size(671, 348)
- Me.GrpStationPlan.TabIndex = 45
- 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.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.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.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)
- '
- 'MsiGridRowBlockInsert
- '
- Me.MsiGridRowBlockInsert.Image = CType(resources.GetObject("MsiGridRowBlockInsert.Image"),System.Drawing.Image)
- Me.MsiGridRowBlockInsert.Name = "MsiGridRowBlockInsert"
- Me.MsiGridRowBlockInsert.ShortcutKeyDisplayString = "Ctr+I"
- Me.MsiGridRowBlockInsert.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.I),System.Windows.Forms.Keys)
- 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)
- Me.MsiGridRowBlockDelete.Name = "MsiGridRowBlockDelete"
- Me.MsiGridRowBlockDelete.ShortcutKeyDisplayString = "Ctr+D"
- Me.MsiGridRowBlockDelete.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.D),System.Windows.Forms.Keys)
- Me.MsiGridRowBlockDelete.Size = New System.Drawing.Size(192, 22)
- Me.MsiGridRowBlockDelete.Text = "删除"
- '
- 'ToolStripSeparator7
- '
- Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
- Me.ToolStripSeparator7.Size = New System.Drawing.Size(189, 6)
- '
- 'tsBtn_CheckAction
- '
- Me.tsBtn_CheckAction.Image = CType(resources.GetObject("tsBtn_CheckAction.Image"),System.Drawing.Image)
- Me.tsBtn_CheckAction.Name = "tsBtn_CheckAction"
- Me.tsBtn_CheckAction.Size = New System.Drawing.Size(192, 22)
- Me.tsBtn_CheckAction.Text = "勾选测试"
- '
- 'tsBtn_UncheckAction
- '
- Me.tsBtn_UncheckAction.Image = CType(resources.GetObject("tsBtn_UncheckAction.Image"),System.Drawing.Image)
- Me.tsBtn_UncheckAction.Name = "tsBtn_UncheckAction"
- Me.tsBtn_UncheckAction.Size = New System.Drawing.Size(192, 22)
- Me.tsBtn_UncheckAction.Text = "取消勾选测试"
- '
- 'ToolStripSeparator15
- '
- Me.ToolStripSeparator15.Name = "ToolStripSeparator15"
- Me.ToolStripSeparator15.Size = New System.Drawing.Size(189, 6)
- '
- 'MsiUndo
- '
- 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.Name = "MsiRedo"
- Me.MsiRedo.Size = New System.Drawing.Size(192, 22)
- Me.MsiRedo.Text = "重做"
- '
- 'ToolStripSeparator6
- '
- Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
- Me.ToolStripSeparator6.Size = New System.Drawing.Size(189, 6)
- '
- 'MsiSaveNodeFile
- '
- Me.MsiSaveNodeFile.Name = "MsiSaveNodeFile"
- Me.MsiSaveNodeFile.Size = New System.Drawing.Size(192, 22)
- Me.MsiSaveNodeFile.Text = "另存为节点文件"
- '
- 'MsiLoadNodeFile
- '
- Me.MsiLoadNodeFile.Name = "MsiLoadNodeFile"
- Me.MsiLoadNodeFile.Size = New System.Drawing.Size(192, 22)
- Me.MsiLoadNodeFile.Text = "加载节点文件"
- '
- 'ToolStripSeparator11
- '
- Me.ToolStripSeparator11.Name = "ToolStripSeparator11"
- Me.ToolStripSeparator11.Size = New System.Drawing.Size(189, 6)
- '
- 'TsmiDebugStart
- '
- 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.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.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.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.Text = "继续执行"
- '
- 'ToolStripSeparator8
- '
- Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
- Me.ToolStripSeparator8.Size = New System.Drawing.Size(189, 6)
- '
- 'TsmiDebugSetup
- '
- Me.TsmiDebugSetup.Name = "TsmiDebugSetup"
- Me.TsmiDebugSetup.ShortcutKeys = System.Windows.Forms.Keys.F5
- Me.TsmiDebugSetup.Size = New System.Drawing.Size(192, 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.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.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.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.Text = "Cleanup模块执行"
- '
- 'ToolStripSeparator9
- '
- Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
- Me.ToolStripSeparator9.Size = New System.Drawing.Size(189, 6)
- '
- 'TsmiDebugNode
- '
- Me.TsmiDebugNode.Name = "TsmiDebugNode"
- Me.TsmiDebugNode.ShortcutKeys = System.Windows.Forms.Keys.F10
- Me.TsmiDebugNode.Size = New System.Drawing.Size(192, 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.Text = "节点开始测试"
- '
- 'GrpSingleRowInfo
- '
- Me.GrpSingleRowInfo.Controls.Add(Me.SplitContainer1)
- Me.GrpSingleRowInfo.Dock = System.Windows.Forms.DockStyle.Fill
- Me.GrpSingleRowInfo.Location = New System.Drawing.Point(0, 0)
- Me.GrpSingleRowInfo.Name = "GrpSingleRowInfo"
- Me.GrpSingleRowInfo.Size = New System.Drawing.Size(302, 348)
- Me.GrpSingleRowInfo.TabIndex = 1
- Me.GrpSingleRowInfo.TabStop = false
- Me.GrpSingleRowInfo.Text = "属性"
- '
- 'SplitContainer1
- '
- Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
- Me.SplitContainer1.FixedPanel = System.Windows.Forms.FixedPanel.Panel2
- Me.SplitContainer1.Location = New System.Drawing.Point(3, 17)
- Me.SplitContainer1.Name = "SplitContainer1"
- Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal
- '
- 'SplitContainer1.Panel1
- '
- Me.SplitContainer1.Panel1.Controls.Add(Me.GrdRowNode)
- '
- 'SplitContainer1.Panel2
- '
- Me.SplitContainer1.Panel2.Controls.Add(Me.RtxColTip)
- Me.SplitContainer1.Size = New System.Drawing.Size(296, 328)
- Me.SplitContainer1.SplitterDistance = 246
- Me.SplitContainer1.TabIndex = 1
- '
- 'GrdRowNode
- '
- Me.GrdRowNode.BorderStyle = FlexCell.BorderStyleEnum.None
- Me.GrdRowNode.CheckedImage = Nothing
- Me.GrdRowNode.DefaultFont = New System.Drawing.Font("宋体", 9!)
- 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.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.Location = New System.Drawing.Point(0, 0)
- Me.RtxColTip.Name = "RtxColTip"
- Me.RtxColTip.Size = New System.Drawing.Size(296, 78)
- Me.RtxColTip.TabIndex = 0
- Me.RtxColTip.Text = ""
+ Me.TsBtnMoveUp = New System.Windows.Forms.ToolStripButton()
+ Me.TsBtnMoveDown = New System.Windows.Forms.ToolStripButton()
+ Me.TsBtnMoveLeft = New System.Windows.Forms.ToolStripButton()
+ Me.TsBtnMoveRight = New System.Windows.Forms.ToolStripButton()
+ Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+ Me.TsBtnDebugMode = New System.Windows.Forms.ToolStripButton()
+ Me.TsBtnDebugStart = New System.Windows.Forms.ToolStripButton()
+ Me.TsBtnFailMode = New System.Windows.Forms.ToolStripButton()
+ Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator()
+ Me.tslBtn_ActionOnly = New System.Windows.Forms.ToolStripButton()
+ Me.TsBtn_Record = New System.Windows.Forms.ToolStripButton()
+ Me.TsBtn_ExpandNode = New System.Windows.Forms.ToolStripButton()
+ Me.StuMain = New System.Windows.Forms.StatusStrip()
+ Me.TssLblTestStatus = New System.Windows.Forms.ToolStripStatusLabel()
+ Me.TssLblTestTime = New System.Windows.Forms.ToolStripStatusLabel()
+ Me.TssBarTestProgress = New System.Windows.Forms.ToolStripProgressBar()
+ Me.SplStationPlan = New System.Windows.Forms.SplitContainer()
+ Me.SplPlanDesign = New System.Windows.Forms.SplitContainer()
+ Me.GrpStationPlan = New System.Windows.Forms.GroupBox()
+ Me.GrdStationPlan = New FlexCell.Grid()
+ Me.CmsPlanGrid = New System.Windows.Forms.ContextMenuStrip(Me.components)
+ Me.MsiGridRowBlockInsert = 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()
+ Me.tsBtn_UncheckAction = New System.Windows.Forms.ToolStripMenuItem()
+ Me.ToolStripSeparator15 = New System.Windows.Forms.ToolStripSeparator()
+ Me.MsiUndo = New System.Windows.Forms.ToolStripMenuItem()
+ Me.MsiRedo = New System.Windows.Forms.ToolStripMenuItem()
+ Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
+ Me.MsiSaveNodeFile = New System.Windows.Forms.ToolStripMenuItem()
+ Me.MsiLoadNodeFile = New System.Windows.Forms.ToolStripMenuItem()
+ Me.ToolStripSeparator11 = New System.Windows.Forms.ToolStripSeparator()
+ Me.TsmiDebugStart = New System.Windows.Forms.ToolStripMenuItem()
+ Me.TsmiDebugEnd = New System.Windows.Forms.ToolStripMenuItem()
+ Me.TsmiDebugStep = New System.Windows.Forms.ToolStripMenuItem()
+ Me.TsmiDebugContinue = New System.Windows.Forms.ToolStripMenuItem()
+ Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
+ Me.TsmiDebugSetup = New System.Windows.Forms.ToolStripMenuItem()
+ Me.TsmiDebugMain = New System.Windows.Forms.ToolStripMenuItem()
+ Me.TsmiDebugPass = New System.Windows.Forms.ToolStripMenuItem()
+ Me.TsmiDebugFail = New System.Windows.Forms.ToolStripMenuItem()
+ Me.TsmiDebugCleanup = New System.Windows.Forms.ToolStripMenuItem()
+ Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
+ Me.TsmiDebugNode = New System.Windows.Forms.ToolStripMenuItem()
+ Me.TsmiDebugNodeBegin = New System.Windows.Forms.ToolStripMenuItem()
+ Me.GrpSingleRowInfo = New System.Windows.Forms.GroupBox()
+ Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+ Me.GrdRowNode = New FlexCell.Grid()
+ Me.RtxColTip = New System.Windows.Forms.RichTextBox()
+ Me.GrpOutputInfo = New System.Windows.Forms.GroupBox()
+ 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()
+ '
+ 'ToolStrip1
+ '
+ 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)
+ Me.ToolStrip1.TabIndex = 0
+ Me.ToolStrip1.Text = "ToolStrip1"
+ '
+ 'TsBtnOpen
+ '
+ Me.TsBtnOpen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+ Me.TsBtnOpen.Image = CType(resources.GetObject("TsBtnOpen.Image"), System.Drawing.Image)
+ Me.TsBtnOpen.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.TsBtnOpen.Name = "TsBtnOpen"
+ Me.TsBtnOpen.Size = New System.Drawing.Size(35, 37)
+ Me.TsBtnOpen.Text = "打开"
+ Me.TsBtnOpen.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+ '
+ 'TsBtnSave
+ '
+ Me.TsBtnSave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+ Me.TsBtnSave.Image = CType(resources.GetObject("TsBtnSave.Image"), System.Drawing.Image)
+ Me.TsBtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.TsBtnSave.Name = "TsBtnSave"
+ Me.TsBtnSave.Size = New System.Drawing.Size(35, 37)
+ Me.TsBtnSave.Text = "保存"
+ Me.TsBtnSave.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+ '
+ 'ToolStripSeparator4
+ '
+ Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
+ Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 40)
+ '
+ 'TsBtnLoad
+ '
+ Me.TsBtnLoad.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+ Me.TsBtnLoad.Image = CType(resources.GetObject("TsBtnLoad.Image"), System.Drawing.Image)
+ Me.TsBtnLoad.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.TsBtnLoad.Name = "TsBtnLoad"
+ Me.TsBtnLoad.Size = New System.Drawing.Size(35, 37)
+ Me.TsBtnLoad.Text = "重载"
+ Me.TsBtnLoad.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+ '
+ 'TsBtnSaveAs
+ '
+ Me.TsBtnSaveAs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+ Me.TsBtnSaveAs.Image = CType(resources.GetObject("TsBtnSaveAs.Image"), System.Drawing.Image)
+ Me.TsBtnSaveAs.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.TsBtnSaveAs.Name = "TsBtnSaveAs"
+ Me.TsBtnSaveAs.Size = New System.Drawing.Size(35, 37)
+ Me.TsBtnSaveAs.Text = "导出"
+ Me.TsBtnSaveAs.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+ '
+ 'ToolStripSeparator3
+ '
+ Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
+ Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 40)
+ '
+ 'tsBtnInsertRow
+ '
+ Me.tsBtnInsertRow.Image = CType(resources.GetObject("tsBtnInsertRow.Image"), System.Drawing.Image)
+ Me.tsBtnInsertRow.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.tsBtnInsertRow.Name = "tsBtnInsertRow"
+ Me.tsBtnInsertRow.Size = New System.Drawing.Size(48, 37)
+ Me.tsBtnInsertRow.Text = "插入行"
+ Me.tsBtnInsertRow.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+ '
+ 'tsBtnRemoveRow
+ '
+ Me.tsBtnRemoveRow.Image = CType(resources.GetObject("tsBtnRemoveRow.Image"), System.Drawing.Image)
+ Me.tsBtnRemoveRow.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.tsBtnRemoveRow.Name = "tsBtnRemoveRow"
+ Me.tsBtnRemoveRow.Size = New System.Drawing.Size(48, 37)
+ Me.tsBtnRemoveRow.Text = "移除行"
+ Me.tsBtnRemoveRow.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+ '
+ 'ToolStripSeparator13
+ '
+ Me.ToolStripSeparator13.Name = "ToolStripSeparator13"
+ Me.ToolStripSeparator13.Size = New System.Drawing.Size(6, 40)
+ '
+ 'TsBtnBackward
+ '
+ 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
+ '
+ 'TsBtnForward
+ '
+ 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)
+ '
+ 'TsBtnMoveUp
+ '
+ Me.TsBtnMoveUp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+ Me.TsBtnMoveUp.Image = CType(resources.GetObject("TsBtnMoveUp.Image"), System.Drawing.Image)
+ Me.TsBtnMoveUp.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.TsBtnMoveUp.Name = "TsBtnMoveUp"
+ Me.TsBtnMoveUp.Size = New System.Drawing.Size(35, 37)
+ Me.TsBtnMoveUp.Text = "上移"
+ Me.TsBtnMoveUp.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+ '
+ 'TsBtnMoveDown
+ '
+ Me.TsBtnMoveDown.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+ Me.TsBtnMoveDown.Image = CType(resources.GetObject("TsBtnMoveDown.Image"), System.Drawing.Image)
+ Me.TsBtnMoveDown.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.TsBtnMoveDown.Name = "TsBtnMoveDown"
+ Me.TsBtnMoveDown.Size = New System.Drawing.Size(35, 37)
+ Me.TsBtnMoveDown.Text = "下移"
+ Me.TsBtnMoveDown.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+ '
+ 'TsBtnMoveLeft
+ '
+ Me.TsBtnMoveLeft.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+ Me.TsBtnMoveLeft.Image = CType(resources.GetObject("TsBtnMoveLeft.Image"), System.Drawing.Image)
+ Me.TsBtnMoveLeft.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.TsBtnMoveLeft.Name = "TsBtnMoveLeft"
+ Me.TsBtnMoveLeft.Size = New System.Drawing.Size(35, 37)
+ Me.TsBtnMoveLeft.Text = "升级"
+ Me.TsBtnMoveLeft.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+ '
+ 'TsBtnMoveRight
+ '
+ Me.TsBtnMoveRight.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
+ Me.TsBtnMoveRight.Image = CType(resources.GetObject("TsBtnMoveRight.Image"), System.Drawing.Image)
+ Me.TsBtnMoveRight.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.TsBtnMoveRight.Name = "TsBtnMoveRight"
+ Me.TsBtnMoveRight.Size = New System.Drawing.Size(35, 37)
+ Me.TsBtnMoveRight.Text = "降级"
+ Me.TsBtnMoveRight.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+ '
+ 'ToolStripSeparator2
+ '
+ Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+ Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 40)
+ '
+ 'TsBtnDebugMode
+ '
+ Me.TsBtnDebugMode.Image = CType(resources.GetObject("TsBtnDebugMode.Image"), System.Drawing.Image)
+ Me.TsBtnDebugMode.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.TsBtnDebugMode.Name = "TsBtnDebugMode"
+ Me.TsBtnDebugMode.Size = New System.Drawing.Size(60, 37)
+ Me.TsBtnDebugMode.Text = "调试模式"
+ Me.TsBtnDebugMode.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+ '
+ 'TsBtnDebugStart
+ '
+ Me.TsBtnDebugStart.Image = CType(resources.GetObject("TsBtnDebugStart.Image"), System.Drawing.Image)
+ Me.TsBtnDebugStart.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.TsBtnDebugStart.Name = "TsBtnDebugStart"
+ Me.TsBtnDebugStart.Size = New System.Drawing.Size(60, 37)
+ Me.TsBtnDebugStart.Text = "开始调试"
+ Me.TsBtnDebugStart.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+ '
+ 'TsBtnFailMode
+ '
+ Me.TsBtnFailMode.Image = CType(resources.GetObject("TsBtnFailMode.Image"), System.Drawing.Image)
+ Me.TsBtnFailMode.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.TsBtnFailMode.Name = "TsBtnFailMode"
+ Me.TsBtnFailMode.Size = New System.Drawing.Size(60, 37)
+ Me.TsBtnFailMode.Text = "单步退出"
+ Me.TsBtnFailMode.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+ '
+ 'ToolStripSeparator10
+ '
+ Me.ToolStripSeparator10.Name = "ToolStripSeparator10"
+ Me.ToolStripSeparator10.Size = New System.Drawing.Size(6, 40)
+ '
+ 'tslBtn_ActionOnly
+ '
+ Me.tslBtn_ActionOnly.Image = CType(resources.GetObject("tslBtn_ActionOnly.Image"), System.Drawing.Image)
+ Me.tslBtn_ActionOnly.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.tslBtn_ActionOnly.Name = "tslBtn_ActionOnly"
+ Me.tslBtn_ActionOnly.Size = New System.Drawing.Size(48, 37)
+ Me.tslBtn_ActionOnly.Text = "Action"
+ Me.tslBtn_ActionOnly.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+ '
+ 'TsBtn_Record
+ '
+ Me.TsBtn_Record.Image = CType(resources.GetObject("TsBtn_Record.Image"), System.Drawing.Image)
+ Me.TsBtn_Record.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.TsBtn_Record.Name = "TsBtn_Record"
+ Me.TsBtn_Record.Size = New System.Drawing.Size(54, 37)
+ Me.TsBtn_Record.Text = "Record"
+ Me.TsBtn_Record.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+ '
+ 'TsBtn_ExpandNode
+ '
+ Me.TsBtn_ExpandNode.Image = CType(resources.GetObject("TsBtn_ExpandNode.Image"), System.Drawing.Image)
+ Me.TsBtn_ExpandNode.ImageTransparentColor = System.Drawing.Color.Magenta
+ Me.TsBtn_ExpandNode.Name = "TsBtn_ExpandNode"
+ Me.TsBtn_ExpandNode.Size = New System.Drawing.Size(55, 37)
+ Me.TsBtn_ExpandNode.Text = "Expand"
+ Me.TsBtn_ExpandNode.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+ '
+ 'StuMain
+ '
+ Me.StuMain.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TssLblTestStatus, Me.TssLblTestTime, Me.TssBarTestProgress})
+ Me.StuMain.Location = New System.Drawing.Point(0, 558)
+ Me.StuMain.Name = "StuMain"
+ Me.StuMain.Size = New System.Drawing.Size(977, 22)
+ Me.StuMain.TabIndex = 1
+ Me.StuMain.Text = "StatusStrip1"
+ '
+ 'TssLblTestStatus
+ '
+ 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.ForeColor = System.Drawing.Color.Green
+ Me.TssLblTestTime.Name = "TssLblTestTime"
+ Me.TssLblTestTime.Overflow = System.Windows.Forms.ToolStripItemOverflow.Always
+ Me.TssLblTestTime.Size = New System.Drawing.Size(160, 17)
+ Me.TssLblTestTime.Text = "TimeExpend:00:00:00:000"
+ '
+ 'TssBarTestProgress
+ '
+ Me.TssBarTestProgress.AutoSize = False
+ Me.TssBarTestProgress.Name = "TssBarTestProgress"
+ Me.TssBarTestProgress.Size = New System.Drawing.Size(200, 16)
+ '
+ 'SplStationPlan
+ '
+ Me.SplStationPlan.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.SplStationPlan.Location = New System.Drawing.Point(0, 40)
+ Me.SplStationPlan.Name = "SplStationPlan"
+ Me.SplStationPlan.Orientation = System.Windows.Forms.Orientation.Horizontal
+ '
+ 'SplStationPlan.Panel1
+ '
+ Me.SplStationPlan.Panel1.Controls.Add(Me.SplPlanDesign)
+ '
+ 'SplStationPlan.Panel2
+ '
+ Me.SplStationPlan.Panel2.Controls.Add(Me.GrpOutputInfo)
+ Me.SplStationPlan.Size = New System.Drawing.Size(977, 518)
+ Me.SplStationPlan.SplitterDistance = 348
+ Me.SplStationPlan.TabIndex = 10
+ '
+ 'SplPlanDesign
+ '
+ Me.SplPlanDesign.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.SplPlanDesign.Location = New System.Drawing.Point(0, 0)
+ Me.SplPlanDesign.Name = "SplPlanDesign"
+ '
+ 'SplPlanDesign.Panel1
+ '
+ Me.SplPlanDesign.Panel1.Controls.Add(Me.GrpStationPlan)
+ '
+ 'SplPlanDesign.Panel2
+ '
+ Me.SplPlanDesign.Panel2.Controls.Add(Me.GrpSingleRowInfo)
+ Me.SplPlanDesign.Size = New System.Drawing.Size(977, 348)
+ Me.SplPlanDesign.SplitterDistance = 671
+ Me.SplPlanDesign.TabIndex = 0
+ '
+ 'GrpStationPlan
+ '
+ Me.GrpStationPlan.Controls.Add(Me.GrdStationPlan)
+ Me.GrpStationPlan.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.GrpStationPlan.Location = New System.Drawing.Point(0, 0)
+ Me.GrpStationPlan.Name = "GrpStationPlan"
+ Me.GrpStationPlan.Size = New System.Drawing.Size(671, 348)
+ Me.GrpStationPlan.TabIndex = 45
+ Me.GrpStationPlan.TabStop = False
+ Me.GrpStationPlan.Text = "执行流程"
+ '
+ 'GrdStationPlan
+ '
+ Me.GrdStationPlan.BorderStyle = FlexCell.BorderStyleEnum.None
+ Me.GrdStationPlan.ContextMenuStrip = Me.CmsPlanGrid
+ Me.GrdStationPlan.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
+ Me.GrdStationPlan.Dock = System.Windows.Forms.DockStyle.Fill
+ 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
+ '
+ 'CmsPlanGrid
+ '
+ 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(222, 458)
+ '
+ 'MsiGridRowBlockInsert
+ '
+ Me.MsiGridRowBlockInsert.Image = CType(resources.GetObject("MsiGridRowBlockInsert.Image"), System.Drawing.Image)
+ Me.MsiGridRowBlockInsert.Name = "MsiGridRowBlockInsert"
+ Me.MsiGridRowBlockInsert.ShortcutKeyDisplayString = "Ctr+I"
+ Me.MsiGridRowBlockInsert.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.I), System.Windows.Forms.Keys)
+ Me.MsiGridRowBlockInsert.Size = New System.Drawing.Size(192, 22)
+ Me.MsiGridRowBlockInsert.Text = "插入"
+ '
+ 'MsiGridRowBlockDelete
+ '
+ Me.MsiGridRowBlockDelete.Image = CType(resources.GetObject("MsiGridRowBlockDelete.Image"), System.Drawing.Image)
+ Me.MsiGridRowBlockDelete.Name = "MsiGridRowBlockDelete"
+ Me.MsiGridRowBlockDelete.ShortcutKeyDisplayString = "Ctr+D"
+ Me.MsiGridRowBlockDelete.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.D), System.Windows.Forms.Keys)
+ Me.MsiGridRowBlockDelete.Size = New System.Drawing.Size(192, 22)
+ Me.MsiGridRowBlockDelete.Text = "删除"
+ '
+ 'ToolStripSeparator7
+ '
+ Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
+ Me.ToolStripSeparator7.Size = New System.Drawing.Size(189, 6)
+ '
+ 'tsBtn_CheckAction
+ '
+ Me.tsBtn_CheckAction.Image = CType(resources.GetObject("tsBtn_CheckAction.Image"), System.Drawing.Image)
+ Me.tsBtn_CheckAction.Name = "tsBtn_CheckAction"
+ Me.tsBtn_CheckAction.Size = New System.Drawing.Size(192, 22)
+ Me.tsBtn_CheckAction.Text = "勾选测试"
+ '
+ 'tsBtn_UncheckAction
+ '
+ Me.tsBtn_UncheckAction.Image = CType(resources.GetObject("tsBtn_UncheckAction.Image"), System.Drawing.Image)
+ Me.tsBtn_UncheckAction.Name = "tsBtn_UncheckAction"
+ Me.tsBtn_UncheckAction.Size = New System.Drawing.Size(192, 22)
+ Me.tsBtn_UncheckAction.Text = "取消勾选测试"
+ '
+ 'ToolStripSeparator15
+ '
+ Me.ToolStripSeparator15.Name = "ToolStripSeparator15"
+ Me.ToolStripSeparator15.Size = New System.Drawing.Size(189, 6)
+ '
+ 'MsiUndo
+ '
+ 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.Name = "MsiRedo"
+ Me.MsiRedo.Size = New System.Drawing.Size(192, 22)
+ Me.MsiRedo.Text = "重做"
+ '
+ 'ToolStripSeparator6
+ '
+ Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
+ Me.ToolStripSeparator6.Size = New System.Drawing.Size(189, 6)
+ '
+ 'MsiSaveNodeFile
+ '
+ Me.MsiSaveNodeFile.Name = "MsiSaveNodeFile"
+ Me.MsiSaveNodeFile.Size = New System.Drawing.Size(192, 22)
+ Me.MsiSaveNodeFile.Text = "另存为节点文件"
+ '
+ 'MsiLoadNodeFile
+ '
+ Me.MsiLoadNodeFile.Name = "MsiLoadNodeFile"
+ Me.MsiLoadNodeFile.Size = New System.Drawing.Size(192, 22)
+ Me.MsiLoadNodeFile.Text = "加载节点文件"
+ '
+ 'ToolStripSeparator11
+ '
+ Me.ToolStripSeparator11.Name = "ToolStripSeparator11"
+ Me.ToolStripSeparator11.Size = New System.Drawing.Size(189, 6)
+ '
+ 'TsmiDebugStart
+ '
+ Me.TsmiDebugStart.Image = CType(resources.GetObject("TsmiDebugStart.Image"), System.Drawing.Image)
+ Me.TsmiDebugStart.Name = "TsmiDebugStart"
+ 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 = 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.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 = 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
+ '
+ Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
+ Me.ToolStripSeparator8.Size = New System.Drawing.Size(189, 6)
+ '
+ 'TsmiDebugSetup
+ '
+ Me.TsmiDebugSetup.Name = "TsmiDebugSetup"
+ 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 = 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 = 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 = 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 = 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
+ '
+ Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
+ Me.ToolStripSeparator9.Size = New System.Drawing.Size(189, 6)
+ '
+ 'TsmiDebugNode
+ '
+ Me.TsmiDebugNode.Name = "TsmiDebugNode"
+ 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 = 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
+ '
+ Me.GrpSingleRowInfo.Controls.Add(Me.SplitContainer1)
+ Me.GrpSingleRowInfo.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.GrpSingleRowInfo.Location = New System.Drawing.Point(0, 0)
+ Me.GrpSingleRowInfo.Name = "GrpSingleRowInfo"
+ Me.GrpSingleRowInfo.Size = New System.Drawing.Size(302, 348)
+ Me.GrpSingleRowInfo.TabIndex = 1
+ Me.GrpSingleRowInfo.TabStop = False
+ Me.GrpSingleRowInfo.Text = "属性"
+ '
+ 'SplitContainer1
+ '
+ Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.SplitContainer1.FixedPanel = System.Windows.Forms.FixedPanel.Panel2
+ Me.SplitContainer1.Location = New System.Drawing.Point(3, 17)
+ Me.SplitContainer1.Name = "SplitContainer1"
+ Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal
+ '
+ 'SplitContainer1.Panel1
+ '
+ Me.SplitContainer1.Panel1.Controls.Add(Me.GrdRowNode)
+ '
+ 'SplitContainer1.Panel2
+ '
+ Me.SplitContainer1.Panel2.Controls.Add(Me.RtxColTip)
+ Me.SplitContainer1.Size = New System.Drawing.Size(296, 328)
+ Me.SplitContainer1.SplitterDistance = 246
+ Me.SplitContainer1.TabIndex = 1
+ '
+ 'GrdRowNode
+ '
+ Me.GrdRowNode.BorderStyle = FlexCell.BorderStyleEnum.None
+ Me.GrdRowNode.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
+ Me.GrdRowNode.Dock = System.Windows.Forms.DockStyle.Fill
+ 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
+ '
+ 'RtxColTip
+ '
+ Me.RtxColTip.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.RtxColTip.Dock = System.Windows.Forms.DockStyle.Fill
+ 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)
+ Me.RtxColTip.TabIndex = 0
+ Me.RtxColTip.Text = ""
'
'GrpOutputInfo
'
@@ -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
\ No newline at end of file
diff --git a/UTS_Core/UTSModule/Station/FrmStationPlan.resx b/UTS_Core/UTSModule/Station/FrmStationPlan.resx
index 15aef57..f8397b5 100644
--- a/UTS_Core/UTSModule/Station/FrmStationPlan.resx
+++ b/UTS_Core/UTSModule/Station/FrmStationPlan.resx
@@ -192,7 +192,7 @@
hkoPasDAAACBjwD6rwhXUgAAAABJRU5ErkJggg==
-
+
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHJSURBVDhPvZHdK4NhGMb3pzAt4dgfIPmMosgBB8pHjnbA
@@ -206,25 +206,13 @@
gsd7A8Wc0VfbPf1MAAAAAElFTkSuQmCC
-
+
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACMSURBVDhPtZDRDYAgDET7wazu5AIOY/x2BX/dAHO2KNQW
MMZLXiK1d5zSLwohxBwZ+9IGEBc6sd6JjYXBNO8XOOfG9Kx3xF4GJIOF3hP7M6BGM6CXrgCi0aUzYIiW
MOcgUa2BJcy3bb1DWg34RkafGwF2A+hlg/vnJThAGkAI0WDRU9HAV/6tHp9FdAB/QLi4qrG0hAAAAABJ
RU5ErkJggg==
-
-
-
-
- iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
- YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFnSURBVHhe7ZpRasMwEER9pByjhdDerldtSz7SHciAKLYi
- J9Jau5kHAwF/rOYhKwZ7EUIIIYQQQgixj5Pl6xb89ubQ+Rj4bbne8mM5W7zALMzkfKzFVQKsczjza/GQ
- gBmY9X8+1uTGmgBktISt8oirAGy3cguWGSWhVh5rcT8H3izlOVAGC/209OLdUpv1YTkEDwnTlicjJUxf
- noyQEKY86SkhXHnSQ0LY8uQZCeHLk0ckpClP9khIV560SEhbntQkXCwouXYtRXlSk7CWVOVJq4SU5Qkk
- bG15BLdE2vIAB949AS0PSyGpnfZlICidhNbyTCoJtfL3/gbDS2h5yGl5WApJS3mSTsKe8iSNhEfKk/AS
- nilPwkroUZ6Ek9CzPAkjYUR5Mr2EkeXJtBI8ypPpJLz8y9GXfz2+JmB0ebIlwf37gPKexBb0KE8wq7wF
- sRb37wMwENYR9+HG0fOFEEIIIYQQIirL8gdhBPBs3RAiLQAAAABJRU5ErkJggg==
@@ -368,70 +356,11 @@
- 129, 17
+ 133, 21
235, 17
-
-
- iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
- vgAADr4B6kKxwAAAAH1JREFUOE+9j1EKgDAMQ/exs3onL+YVdgwlrGFdaJmi+CD40ewRy2tqrWcUO69B
- WXkkyQT8Wi3Hl+eHu2WTCHykoKwMoUMXMCgrlE4SChSWKQTjt9wSHllkogWktcMkTqDoAgaPu8AtiHJ7
- QU68AJkW5HywoJei4LZc8AulXG6IZu0vxOOrAAAAAElFTkSuQmCC
-
-
-
-
- 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
-
-
-
-
- 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=
-
-
-
-
- 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=
-
-
-
-
- iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
- vgAADr4B6kKxwAAAAIxJREFUOE+1kNENgCAMRPvBrO7kAg5j/HYFf90Ac7Yo1BYwxkteIrV3nNIvCiHE
- HBn70gYQFzqx3omNhcE07xc458b0rHfEXgYkg4XeE/szoEYzoJeuAKLRpTNgiJYw5yBRrYElzLdtvUNa
- DfhGRp8bAXYD6GWD++clOEAaQAjRYNFT0cBX/q0en0V0AH9AuLiqsbSEAAAAAElFTkSuQmCC
-
-
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -455,7 +384,7 @@
iVBORw0KGgoAAAANSUhEUgAAAA8AAAAPCAYAAAA71pVKAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
- vgAADr4B6kKxwAAAAGRJREFUOE+lzcENgDAIhWFmchbHcRN3YwEW4GblgDGFV9r0T96hCV9K+53Xs7yv
+ vAAADrwBlbxySQAAAGRJREFUOE+lzcENgDAIhWFmchbHcRN3YwEW4GblgDGFV9r0T96hCV9K+53Xs7yv
98HMYSISpqo1RrDEGTxuqjGCJfbDDA5xf4ygVWIELYhHP3oQ+zGCVor9+L+sgGehFfDy9iJq1K76qrTi
CkcAAAAASUVORK5CYII=
@@ -463,7 +392,7 @@
iVBORw0KGgoAAAANSUhEUgAAAA8AAAAPCAYAAAA71pVKAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
- vgAADr4B6kKxwAAAAFdJREFUOE+ly7ENACEMQ9EMeeMwaxbIAukANyfdQRIjvuTCxZP7ntaP9zaPqoYz
+ vAAADrwBlbxySQAAAFdJREFUOE+ly7ENACEMQ9EMeeMwaxbIAukANyfdQRIjvuTCxZP7ntaP9zaPqoYz
s89o/IfuzuEdpHAES5zBFFcwxAxEC2YhSnEGUYgriLaYgWjBx7tLZADW/iIHX3Y7QQAAAABJRU5ErkJg
gg==
@@ -483,6 +412,15 @@
vAAADrwBlbxySQAAAH1JREFUOE+9kEEOgCAMBHvi3Vx4N1pkzVKoFQ9O0sTW3TkgHiml+jQ95qOhUsow
LNC9R0dsyJYl530Bdi2/EkitgwS3pQBBnhYmyX3zBChM08OhwI4t820SWFqYyuEbWFBE6H8BYFEgOH+4
cxEIYlig323fAYJPZQXFuSxyANoUGxZ/KYqDAAAAAElFTkSuQmCC
+
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABIAAAARCAYAAADQWvz5AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+ vAAADrwBlbxySQAAALhJREFUOE+t1LsNwyAABFBGyCiZgZ4dUtCzQirWyBBMQZWGPrVFQcOnJL4IJMuy
+ MIacdI3BT7L5kBhjXuu893cyE0BCiLwsi0spPcrj6wFEKc2c82ytzcNYhSpmjMkhhGcZ7s8WQhljFXuV
+ KX3ZQxXTWv8w59ytTG3nCKpVSmFF311YC0K7sTMIBbZ+5qe8cpwzSErZt2Fb0F/+0SUE2UNDS49soeHN
+ iFRo6ngggKYPLAJo+gohhHwB0XQ+lRtjI7IAAAAASUVORK5CYII=
@@ -495,15 +433,6 @@
psL3YQDcxNTs7hEF7JE8C6ZyEPYFCL7X7HgBOj81jtefpus6lQ/SK+CD7Alc3CPpeOAUuT9sLI3snZuk
9lGLHOjazbZ/k/04ip7x3dRqgH77rjEpNU42/GmApMNN3v4bfI+C4AP3/yDWi5gZ5QAAAABJRU5ErkJg
gg==
-
-
-
-
- iVBORw0KGgoAAAANSUhEUgAAABIAAAARCAYAAADQWvz5AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
- vAAADrwBlbxySQAAALhJREFUOE+t1LsNwyAABFBGyCiZgZ4dUtCzQirWyBBMQZWGPrVFQcOnJL4IJMuy
- MIacdI3BT7L5kBhjXuu893cyE0BCiLwsi0spPcrj6wFEKc2c82ytzcNYhSpmjMkhhGcZ7s8WQhljFXuV
- KX3ZQxXTWv8w59ytTG3nCKpVSmFF311YC0K7sTMIBbZ+5qe8cpwzSErZt2Fb0F/+0SUE2UNDS49soeHN
- iFRo6ngggKYPLAJo+gohhHwB0XQ+lRtjI7IAAAAASUVORK5CYII=
diff --git a/UTS_Core/UTSModule/Station/FrmStationPlan.vb b/UTS_Core/UTSModule/Station/FrmStationPlan.vb
index 527c3dc..c587509 100644
--- a/UTS_Core/UTSModule/Station/FrmStationPlan.vb
+++ b/UTS_Core/UTSModule/Station/FrmStationPlan.vb
@@ -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
diff --git a/UTS_Core/UTSModule/Station/GridNavigation.vb b/UTS_Core/UTSModule/Station/GridNavigation.vb
new file mode 100644
index 0000000..abcf571
--- /dev/null
+++ b/UTS_Core/UTSModule/Station/GridNavigation.vb
@@ -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
\ No newline at end of file
diff --git a/UTS_Core/UTSModule/Station/GridNavigationManager.vb b/UTS_Core/UTSModule/Station/GridNavigationManager.vb
new file mode 100644
index 0000000..b6c20d7
--- /dev/null
+++ b/UTS_Core/UTSModule/Station/GridNavigationManager.vb
@@ -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
+
+ '''
+ ''' 是否正在执行导航操作
+ '''
+ '''
+ Public ReadOnly Property IsRunning As Boolean
+ Get
+ Return _isRunning
+ End Get
+ End Property
+
+
+ '''
+ ''' 是否可以后退
+ '''
+ '''
+ Public ReadOnly Property CanForward As Boolean
+ Get
+ Return _forwardStack.Count > 0
+ End Get
+ End Property
+
+ '''
+ ''' 是否可以前进
+ '''
+ '''
+ '''
+ Public ReadOnly Property CanBackward As Boolean
+ Get
+ Return _backwardStack.Count > 0
+ End Get
+ End Property
+
+ '''
+ ''' 添加导航
+ ''' 导航
+ '''
+ Public Sub Append(navigation As INavigation)
+ _backwardStack.Push(navigation)
+ _forwardStack.Clear()
+ End Sub
+
+ '''
+ '''
+ '''
+ 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
diff --git a/UTS_Core/UTSModule/Station/GridNodeMoveUpCommand.vb b/UTS_Core/UTSModule/Station/GridNodeMoveUpCommand.vb
new file mode 100644
index 0000000..d377db5
--- /dev/null
+++ b/UTS_Core/UTSModule/Station/GridNodeMoveUpCommand.vb
@@ -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
diff --git a/UTS_Core/UTSModule/Station/INavigation.vb b/UTS_Core/UTSModule/Station/INavigation.vb
new file mode 100644
index 0000000..c049ef0
--- /dev/null
+++ b/UTS_Core/UTSModule/Station/INavigation.vb
@@ -0,0 +1,12 @@
+Public Interface INavigation
+ '''
+ ''' 向后导航
+ '''
+ Sub Backward()
+
+ '''
+ ''' 向前导航
+ '''
+ Sub Forward()
+
+End Interface
diff --git a/UTS_Core/UTSModule/Station/RowNodeGrid.vb b/UTS_Core/UTSModule/Station/RowNodeGrid.vb
index 3f64d05..b98dfdd 100644
--- a/UTS_Core/UTSModule/Station/RowNodeGrid.vb
+++ b/UTS_Core/UTSModule/Station/RowNodeGrid.vb
@@ -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
diff --git a/UTS_Core/UTSModule/Station/StationPlanGrid.vb b/UTS_Core/UTSModule/Station/StationPlanGrid.vb
index fbf5662..83b99cf 100644
--- a/UTS_Core/UTSModule/Station/StationPlanGrid.vb
+++ b/UTS_Core/UTSModule/Station/StationPlanGrid.vb
@@ -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()
+ '''
+ ''' 向后导航
+ '''
+ Public Sub BackwardNavigation()
+ GridNavigationManager.Backward()
End Sub
- Public Sub MultiLinePasteData()
- Dim tmpFrisRow As Integer = _grd.Selection.FirstRow
+ '''
+ ''' 向前导航
+ '''
+ Public Sub ForwardNavigation()
+ GridNavigationManager.Forward()
+ End Sub
- LockGridAutoRedraw()
+ '''
+ ''' 是否可以后退
+ '''
+ '''
+ '''
+ Public Function CanBackward() As Boolean
+ Return GridNavigationManager.CanBackward
+ End Function
- '插入节点
- NodeAdd(gCopyWholeRows)
+ '''
+ ''' 是否可以前进
+ '''
+ '''
+ '''
+ Public Function CanForward() As Boolean
+ Return GridNavigationManager.CanForward
+ End Function
- _grd.Range(tmpFrisRow, ColNames.Action, tmpFrisRow + gCopyWholeRows, _grd.Cols - 1).PasteData()
-
- UnLockGridAutoRedraw()
+ '''
+ '''
+ '''
+ 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
'''
''' 节点升级
'''
- 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
'''
''' 节点降级
'''
- 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
diff --git a/UTS_Core/UTS_Core.vbproj b/UTS_Core/UTS_Core.vbproj
index 0f5ba8f..f06f920 100644
--- a/UTS_Core/UTS_Core.vbproj
+++ b/UTS_Core/UTS_Core.vbproj
@@ -298,6 +298,10 @@
+
+
+
+
diff --git a/UTS_Core/Undo/CommandManager.vb b/UTS_Core/Undo/CommandManager.vb
index 9d22aaf..bca0394 100644
--- a/UTS_Core/Undo/CommandManager.vb
+++ b/UTS_Core/Undo/CommandManager.vb
@@ -71,7 +71,6 @@
command.Redo()
UndoCommands.Push(command)
- 'MemberwiseClone()‘浅拷贝
End Sub
End Class
diff --git a/UTS_Core/Undo/ICommand.vb b/UTS_Core/Undo/ICommand.vb
index d77d2ae..3d35e96 100644
--- a/UTS_Core/Undo/ICommand.vb
+++ b/UTS_Core/Undo/ICommand.vb
@@ -6,7 +6,6 @@
Sub Execute()
-
'''
''' 重做命令
'''
diff --git a/UTS_Core/bin/Debug/UTS_Core.dll b/UTS_Core/bin/Debug/UTS_Core.dll
index 6cb0a87..d17a9bf 100644
Binary files a/UTS_Core/bin/Debug/UTS_Core.dll and b/UTS_Core/bin/Debug/UTS_Core.dll differ
diff --git a/UTS_Core/bin/Debug/UTS_Core.pdb b/UTS_Core/bin/Debug/UTS_Core.pdb
index ddb0f42..bd11008 100644
Binary files a/UTS_Core/bin/Debug/UTS_Core.pdb and b/UTS_Core/bin/Debug/UTS_Core.pdb differ
diff --git a/UTS_Core/bin/Debug/UTS_Core.xml b/UTS_Core/bin/Debug/UTS_Core.xml
index d8ec957..9a1d437 100644
--- a/UTS_Core/bin/Debug/UTS_Core.xml
+++ b/UTS_Core/bin/Debug/UTS_Core.xml
@@ -6106,6 +6106,35 @@ UTS_Core
对第二行的Action执行一遍操作,以触发更新事件
+
+
+ 向后导航
+
+
+
+
+ 向前导航
+
+
+
+
+ 是否可以后退
+
+
+
+
+
+
+ 是否可以前进
+
+
+
+
+
+
+
+
+
光标离开grd表格时,黄色底色切换到选中行
@@ -6228,12 +6257,12 @@ UTS_Core
-
+
节点升级
-
+
节点降级
@@ -9774,6 +9803,46 @@ UTS系列App与UtsCore交互为避免重复书写产生的中间类
+
+
+ 是否正在执行导航操作
+
+
+
+
+
+ 是否可以后退
+
+
+
+
+
+ 是否可以前进
+
+
+
+
+
+
+ 添加导航
+ 导航
+
+
+
+
+
+
+
+
+
+ 向后导航
+
+
+
+
+ 向前导航
+
+
解析模式,并且确定有关参数
diff --git a/UTS_Core/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/UTS_Core/obj/Debug/DesignTimeResolveAssemblyReferences.cache
index 5b63842..122f6f8 100644
Binary files a/UTS_Core/obj/Debug/DesignTimeResolveAssemblyReferences.cache and b/UTS_Core/obj/Debug/DesignTimeResolveAssemblyReferences.cache differ
diff --git a/UTS_Core/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/UTS_Core/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
index 2b9577f..db79fb2 100644
Binary files a/UTS_Core/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache and b/UTS_Core/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ
diff --git a/UTS_Core/obj/Debug/UTS_Core.UTSModule.Station.FrmStationPlan.resources b/UTS_Core/obj/Debug/UTS_Core.UTSModule.Station.FrmStationPlan.resources
index 1953947..6e4425a 100644
Binary files a/UTS_Core/obj/Debug/UTS_Core.UTSModule.Station.FrmStationPlan.resources and b/UTS_Core/obj/Debug/UTS_Core.UTSModule.Station.FrmStationPlan.resources differ
diff --git a/UTS_Core/obj/Debug/UTS_Core.dll b/UTS_Core/obj/Debug/UTS_Core.dll
index 6cb0a87..d17a9bf 100644
Binary files a/UTS_Core/obj/Debug/UTS_Core.dll and b/UTS_Core/obj/Debug/UTS_Core.dll differ
diff --git a/UTS_Core/obj/Debug/UTS_Core.pdb b/UTS_Core/obj/Debug/UTS_Core.pdb
index ddb0f42..bd11008 100644
Binary files a/UTS_Core/obj/Debug/UTS_Core.pdb and b/UTS_Core/obj/Debug/UTS_Core.pdb differ
diff --git a/UTS_Core/obj/Debug/UTS_Core.vbproj.AssemblyReference.cache b/UTS_Core/obj/Debug/UTS_Core.vbproj.AssemblyReference.cache
index 17d3654..0c0d4cb 100644
Binary files a/UTS_Core/obj/Debug/UTS_Core.vbproj.AssemblyReference.cache and b/UTS_Core/obj/Debug/UTS_Core.vbproj.AssemblyReference.cache differ
diff --git a/UTS_Core/obj/Debug/UTS_Core.vbproj.CoreCompileInputs.cache b/UTS_Core/obj/Debug/UTS_Core.vbproj.CoreCompileInputs.cache
index 43d2206..b0ffe15 100644
--- a/UTS_Core/obj/Debug/UTS_Core.vbproj.CoreCompileInputs.cache
+++ b/UTS_Core/obj/Debug/UTS_Core.vbproj.CoreCompileInputs.cache
@@ -1 +1 @@
-c5e447f21e4566eafb50096c9ff8e17beb0c61abb20024da831ee1debf91f22c
+af7ffd6c70aae8262a8fd7fa2be8ccce4d83b9bc4c1bfc834a19f24335ece0da
diff --git a/UTS_Core/obj/Debug/UTS_Core.vbproj.GenerateResource.cache b/UTS_Core/obj/Debug/UTS_Core.vbproj.GenerateResource.cache
index c52bb0d..424edcd 100644
Binary files a/UTS_Core/obj/Debug/UTS_Core.vbproj.GenerateResource.cache and b/UTS_Core/obj/Debug/UTS_Core.vbproj.GenerateResource.cache differ
diff --git a/UTS_Core/obj/Debug/UTS_Core.xml b/UTS_Core/obj/Debug/UTS_Core.xml
index d8ec957..9a1d437 100644
--- a/UTS_Core/obj/Debug/UTS_Core.xml
+++ b/UTS_Core/obj/Debug/UTS_Core.xml
@@ -6106,6 +6106,35 @@ UTS_Core
对第二行的Action执行一遍操作,以触发更新事件
+
+
+ 向后导航
+
+
+
+
+ 向前导航
+
+
+
+
+ 是否可以后退
+
+
+
+
+
+
+ 是否可以前进
+
+
+
+
+
+
+
+
+
光标离开grd表格时,黄色底色切换到选中行
@@ -6228,12 +6257,12 @@ UTS_Core
-
+
节点升级
-
+
节点降级
@@ -9774,6 +9803,46 @@ UTS系列App与UtsCore交互为避免重复书写产生的中间类
+
+
+ 是否正在执行导航操作
+
+
+
+
+
+ 是否可以后退
+
+
+
+
+
+ 是否可以前进
+
+
+
+
+
+
+ 添加导航
+ 导航
+
+
+
+
+
+
+
+
+
+ 向后导航
+
+
+
+
+ 向前导航
+
+
解析模式,并且确定有关参数