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

This commit is contained in:
2025-04-09 19:59:49 +08:00
parent 501fa77e5a
commit 9da8e6fecd
32 changed files with 1326 additions and 953 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

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

Binary file not shown.

Binary file not shown.

View File

@@ -38,11 +38,9 @@ Namespace UTSModule.Station
Me.tsBtnInsertRow = New System.Windows.Forms.ToolStripButton() Me.tsBtnInsertRow = New System.Windows.Forms.ToolStripButton()
Me.tsBtnRemoveRow = New System.Windows.Forms.ToolStripButton() Me.tsBtnRemoveRow = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator13 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator13 = New System.Windows.Forms.ToolStripSeparator()
Me.TsBtnCopyWholeRow = New System.Windows.Forms.ToolStripButton() Me.TsBtnBackward = New System.Windows.Forms.ToolStripButton()
Me.TsBtnPasteWholdRows = New System.Windows.Forms.ToolStripButton() Me.TsBtnForward = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator14 = New System.Windows.Forms.ToolStripSeparator() 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.TsBtnMoveUp = New System.Windows.Forms.ToolStripButton()
Me.TsBtnMoveDown = New System.Windows.Forms.ToolStripButton() Me.TsBtnMoveDown = New System.Windows.Forms.ToolStripButton()
Me.TsBtnMoveLeft = New System.Windows.Forms.ToolStripButton() Me.TsBtnMoveLeft = New System.Windows.Forms.ToolStripButton()
@@ -64,15 +62,7 @@ Namespace UTSModule.Station
Me.GrpStationPlan = New System.Windows.Forms.GroupBox() Me.GrpStationPlan = New System.Windows.Forms.GroupBox()
Me.GrdStationPlan = New FlexCell.Grid() Me.GrdStationPlan = New FlexCell.Grid()
Me.CmsPlanGrid = New System.Windows.Forms.ContextMenuStrip(Me.components) 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.MsiGridRowBlockInsert = New System.Windows.Forms.ToolStripMenuItem()
Me.tsBtn_InsertChildNode = New System.Windows.Forms.ToolStripMenuItem()
Me.MsiGridRowBlockDelete = New System.Windows.Forms.ToolStripMenuItem() Me.MsiGridRowBlockDelete = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
Me.tsBtn_CheckAction = New System.Windows.Forms.ToolStripMenuItem() Me.tsBtn_CheckAction = New System.Windows.Forms.ToolStripMenuItem()
@@ -105,31 +95,31 @@ Namespace UTSModule.Station
Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TpOutputInfo = New System.Windows.Forms.TabPage() Me.TpOutputInfo = New System.Windows.Forms.TabPage()
Me.RtxOutputInfo = New System.Windows.Forms.RichTextBox() Me.RtxOutputInfo = New System.Windows.Forms.RichTextBox()
Me.ToolStrip1.SuspendLayout Me.ToolStrip1.SuspendLayout()
Me.StuMain.SuspendLayout Me.StuMain.SuspendLayout()
CType(Me.SplStationPlan,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.SplStationPlan, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplStationPlan.Panel1.SuspendLayout Me.SplStationPlan.Panel1.SuspendLayout()
Me.SplStationPlan.Panel2.SuspendLayout Me.SplStationPlan.Panel2.SuspendLayout()
Me.SplStationPlan.SuspendLayout Me.SplStationPlan.SuspendLayout()
CType(Me.SplPlanDesign,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.SplPlanDesign, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplPlanDesign.Panel1.SuspendLayout Me.SplPlanDesign.Panel1.SuspendLayout()
Me.SplPlanDesign.Panel2.SuspendLayout Me.SplPlanDesign.Panel2.SuspendLayout()
Me.SplPlanDesign.SuspendLayout Me.SplPlanDesign.SuspendLayout()
Me.GrpStationPlan.SuspendLayout Me.GrpStationPlan.SuspendLayout()
Me.CmsPlanGrid.SuspendLayout Me.CmsPlanGrid.SuspendLayout()
Me.GrpSingleRowInfo.SuspendLayout Me.GrpSingleRowInfo.SuspendLayout()
CType(Me.SplitContainer1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout Me.SplitContainer1.SuspendLayout()
Me.GrpOutputInfo.SuspendLayout Me.GrpOutputInfo.SuspendLayout()
Me.TabControl1.SuspendLayout Me.TabControl1.SuspendLayout()
Me.TpOutputInfo.SuspendLayout Me.TpOutputInfo.SuspendLayout()
Me.SuspendLayout Me.SuspendLayout()
' '
'ToolStrip1 'ToolStrip1
' '
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TsBtnOpen, Me.TsBtnSave, Me.ToolStripSeparator4, Me.TsBtnLoad, Me.TsBtnSaveAs, Me.ToolStripSeparator3, Me.tsBtnInsertRow, Me.tsBtnRemoveRow, Me.ToolStripSeparator13, Me.TsBtnCopyWholeRow, Me.TsBtnPasteWholdRows, Me.ToolStripSeparator14, Me.TsBtnClearAll, Me.ToolStripSeparator1, Me.TsBtnMoveUp, Me.TsBtnMoveDown, Me.TsBtnMoveLeft, Me.TsBtnMoveRight, Me.ToolStripSeparator2, Me.TsBtnDebugMode, Me.TsBtnDebugStart, Me.TsBtnFailMode, Me.ToolStripSeparator10, Me.tslBtn_ActionOnly, Me.TsBtn_Record, Me.TsBtn_ExpandNode}) Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TsBtnOpen, Me.TsBtnSave, Me.ToolStripSeparator4, Me.TsBtnLoad, Me.TsBtnSaveAs, Me.ToolStripSeparator3, Me.TsBtnBackward, Me.TsBtnForward, Me.ToolStripSeparator13, Me.tsBtnInsertRow, Me.tsBtnRemoveRow, Me.ToolStripSeparator14, Me.TsBtnMoveUp, Me.TsBtnMoveDown, Me.TsBtnMoveLeft, Me.TsBtnMoveRight, Me.ToolStripSeparator2, Me.TsBtnDebugMode, Me.TsBtnDebugStart, Me.TsBtnFailMode, Me.ToolStripSeparator10, Me.tslBtn_ActionOnly, Me.TsBtn_Record, Me.TsBtn_ExpandNode})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1" Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(977, 40) Me.ToolStrip1.Size = New System.Drawing.Size(977, 40)
@@ -138,8 +128,8 @@ Namespace UTSModule.Station
' '
'TsBtnOpen '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.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.Image = CType(resources.GetObject("TsBtnOpen.Image"), System.Drawing.Image)
Me.TsBtnOpen.ImageTransparentColor = System.Drawing.Color.Magenta Me.TsBtnOpen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TsBtnOpen.Name = "TsBtnOpen" Me.TsBtnOpen.Name = "TsBtnOpen"
Me.TsBtnOpen.Size = New System.Drawing.Size(35, 37) Me.TsBtnOpen.Size = New System.Drawing.Size(35, 37)
@@ -148,8 +138,8 @@ Namespace UTSModule.Station
' '
'TsBtnSave '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.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.Image = CType(resources.GetObject("TsBtnSave.Image"), System.Drawing.Image)
Me.TsBtnSave.ImageTransparentColor = System.Drawing.Color.Magenta Me.TsBtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TsBtnSave.Name = "TsBtnSave" Me.TsBtnSave.Name = "TsBtnSave"
Me.TsBtnSave.Size = New System.Drawing.Size(35, 37) Me.TsBtnSave.Size = New System.Drawing.Size(35, 37)
@@ -163,8 +153,8 @@ Namespace UTSModule.Station
' '
'TsBtnLoad '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.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.Image = CType(resources.GetObject("TsBtnLoad.Image"), System.Drawing.Image)
Me.TsBtnLoad.ImageTransparentColor = System.Drawing.Color.Magenta Me.TsBtnLoad.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TsBtnLoad.Name = "TsBtnLoad" Me.TsBtnLoad.Name = "TsBtnLoad"
Me.TsBtnLoad.Size = New System.Drawing.Size(35, 37) Me.TsBtnLoad.Size = New System.Drawing.Size(35, 37)
@@ -173,8 +163,8 @@ Namespace UTSModule.Station
' '
'TsBtnSaveAs '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.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.Image = CType(resources.GetObject("TsBtnSaveAs.Image"), System.Drawing.Image)
Me.TsBtnSaveAs.ImageTransparentColor = System.Drawing.Color.Magenta Me.TsBtnSaveAs.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TsBtnSaveAs.Name = "TsBtnSaveAs" Me.TsBtnSaveAs.Name = "TsBtnSaveAs"
Me.TsBtnSaveAs.Size = New System.Drawing.Size(35, 37) Me.TsBtnSaveAs.Size = New System.Drawing.Size(35, 37)
@@ -188,7 +178,7 @@ Namespace UTSModule.Station
' '
'tsBtnInsertRow 'tsBtnInsertRow
' '
Me.tsBtnInsertRow.Image = CType(resources.GetObject("tsBtnInsertRow.Image"),System.Drawing.Image) Me.tsBtnInsertRow.Image = CType(resources.GetObject("tsBtnInsertRow.Image"), System.Drawing.Image)
Me.tsBtnInsertRow.ImageTransparentColor = System.Drawing.Color.Magenta Me.tsBtnInsertRow.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsBtnInsertRow.Name = "tsBtnInsertRow" Me.tsBtnInsertRow.Name = "tsBtnInsertRow"
Me.tsBtnInsertRow.Size = New System.Drawing.Size(48, 37) Me.tsBtnInsertRow.Size = New System.Drawing.Size(48, 37)
@@ -197,7 +187,7 @@ Namespace UTSModule.Station
' '
'tsBtnRemoveRow 'tsBtnRemoveRow
' '
Me.tsBtnRemoveRow.Image = CType(resources.GetObject("tsBtnRemoveRow.Image"),System.Drawing.Image) Me.tsBtnRemoveRow.Image = CType(resources.GetObject("tsBtnRemoveRow.Image"), System.Drawing.Image)
Me.tsBtnRemoveRow.ImageTransparentColor = System.Drawing.Color.Magenta Me.tsBtnRemoveRow.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsBtnRemoveRow.Name = "tsBtnRemoveRow" Me.tsBtnRemoveRow.Name = "tsBtnRemoveRow"
Me.tsBtnRemoveRow.Size = New System.Drawing.Size(48, 37) Me.tsBtnRemoveRow.Size = New System.Drawing.Size(48, 37)
@@ -209,51 +199,36 @@ Namespace UTSModule.Station
Me.ToolStripSeparator13.Name = "ToolStripSeparator13" Me.ToolStripSeparator13.Name = "ToolStripSeparator13"
Me.ToolStripSeparator13.Size = New System.Drawing.Size(6, 40) Me.ToolStripSeparator13.Size = New System.Drawing.Size(6, 40)
' '
'TsBtnCopyWholeRow 'TsBtnBackward
' '
Me.TsBtnCopyWholeRow.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte)) Me.TsBtnBackward.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.TsBtnBackward.Image = CType(resources.GetObject("TsBtnBackward.Image"), System.Drawing.Image)
Me.TsBtnCopyWholeRow.ImageTransparentColor = System.Drawing.Color.Magenta Me.TsBtnBackward.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TsBtnCopyWholeRow.Name = "TsBtnCopyWholeRow" Me.TsBtnBackward.Name = "TsBtnBackward"
Me.TsBtnCopyWholeRow.Size = New System.Drawing.Size(59, 37) Me.TsBtnBackward.Size = New System.Drawing.Size(59, 37)
Me.TsBtnCopyWholeRow.Text = "整行复制" Me.TsBtnBackward.Text = "向后导航"
Me.TsBtnCopyWholeRow.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText Me.TsBtnBackward.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
' '
'TsBtnPasteWholdRows 'TsBtnForward
' '
Me.TsBtnPasteWholdRows.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte)) Me.TsBtnForward.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.TsBtnForward.Image = CType(resources.GetObject("TsBtnForward.Image"), System.Drawing.Image)
Me.TsBtnPasteWholdRows.ImageTransparentColor = System.Drawing.Color.Magenta Me.TsBtnForward.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TsBtnPasteWholdRows.Name = "TsBtnPasteWholdRows" Me.TsBtnForward.Name = "TsBtnForward"
Me.TsBtnPasteWholdRows.Size = New System.Drawing.Size(59, 37) Me.TsBtnForward.Size = New System.Drawing.Size(59, 37)
Me.TsBtnPasteWholdRows.Text = "插入粘贴" Me.TsBtnForward.Text = "向前导航"
Me.TsBtnPasteWholdRows.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText Me.TsBtnForward.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.TsBtnPasteWholdRows.ToolTipText = "整行插入复制" Me.TsBtnForward.ToolTipText = "向前导航"
' '
'ToolStripSeparator14 'ToolStripSeparator14
' '
Me.ToolStripSeparator14.Name = "ToolStripSeparator14" Me.ToolStripSeparator14.Name = "ToolStripSeparator14"
Me.ToolStripSeparator14.Size = New System.Drawing.Size(6, 40) 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 '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.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.Image = CType(resources.GetObject("TsBtnMoveUp.Image"), System.Drawing.Image)
Me.TsBtnMoveUp.ImageTransparentColor = System.Drawing.Color.Magenta Me.TsBtnMoveUp.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TsBtnMoveUp.Name = "TsBtnMoveUp" Me.TsBtnMoveUp.Name = "TsBtnMoveUp"
Me.TsBtnMoveUp.Size = New System.Drawing.Size(35, 37) Me.TsBtnMoveUp.Size = New System.Drawing.Size(35, 37)
@@ -262,8 +237,8 @@ Namespace UTSModule.Station
' '
'TsBtnMoveDown '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.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.Image = CType(resources.GetObject("TsBtnMoveDown.Image"), System.Drawing.Image)
Me.TsBtnMoveDown.ImageTransparentColor = System.Drawing.Color.Magenta Me.TsBtnMoveDown.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TsBtnMoveDown.Name = "TsBtnMoveDown" Me.TsBtnMoveDown.Name = "TsBtnMoveDown"
Me.TsBtnMoveDown.Size = New System.Drawing.Size(35, 37) Me.TsBtnMoveDown.Size = New System.Drawing.Size(35, 37)
@@ -272,8 +247,8 @@ Namespace UTSModule.Station
' '
'TsBtnMoveLeft '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.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.Image = CType(resources.GetObject("TsBtnMoveLeft.Image"), System.Drawing.Image)
Me.TsBtnMoveLeft.ImageTransparentColor = System.Drawing.Color.Magenta Me.TsBtnMoveLeft.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TsBtnMoveLeft.Name = "TsBtnMoveLeft" Me.TsBtnMoveLeft.Name = "TsBtnMoveLeft"
Me.TsBtnMoveLeft.Size = New System.Drawing.Size(35, 37) Me.TsBtnMoveLeft.Size = New System.Drawing.Size(35, 37)
@@ -282,8 +257,8 @@ Namespace UTSModule.Station
' '
'TsBtnMoveRight '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.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.Image = CType(resources.GetObject("TsBtnMoveRight.Image"), System.Drawing.Image)
Me.TsBtnMoveRight.ImageTransparentColor = System.Drawing.Color.Magenta Me.TsBtnMoveRight.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TsBtnMoveRight.Name = "TsBtnMoveRight" Me.TsBtnMoveRight.Name = "TsBtnMoveRight"
Me.TsBtnMoveRight.Size = New System.Drawing.Size(35, 37) Me.TsBtnMoveRight.Size = New System.Drawing.Size(35, 37)
@@ -297,7 +272,7 @@ Namespace UTSModule.Station
' '
'TsBtnDebugMode 'TsBtnDebugMode
' '
Me.TsBtnDebugMode.Image = CType(resources.GetObject("TsBtnDebugMode.Image"),System.Drawing.Image) Me.TsBtnDebugMode.Image = CType(resources.GetObject("TsBtnDebugMode.Image"), System.Drawing.Image)
Me.TsBtnDebugMode.ImageTransparentColor = System.Drawing.Color.Magenta Me.TsBtnDebugMode.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TsBtnDebugMode.Name = "TsBtnDebugMode" Me.TsBtnDebugMode.Name = "TsBtnDebugMode"
Me.TsBtnDebugMode.Size = New System.Drawing.Size(60, 37) Me.TsBtnDebugMode.Size = New System.Drawing.Size(60, 37)
@@ -306,7 +281,7 @@ Namespace UTSModule.Station
' '
'TsBtnDebugStart 'TsBtnDebugStart
' '
Me.TsBtnDebugStart.Image = CType(resources.GetObject("TsBtnDebugStart.Image"),System.Drawing.Image) Me.TsBtnDebugStart.Image = CType(resources.GetObject("TsBtnDebugStart.Image"), System.Drawing.Image)
Me.TsBtnDebugStart.ImageTransparentColor = System.Drawing.Color.Magenta Me.TsBtnDebugStart.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TsBtnDebugStart.Name = "TsBtnDebugStart" Me.TsBtnDebugStart.Name = "TsBtnDebugStart"
Me.TsBtnDebugStart.Size = New System.Drawing.Size(60, 37) Me.TsBtnDebugStart.Size = New System.Drawing.Size(60, 37)
@@ -315,7 +290,7 @@ Namespace UTSModule.Station
' '
'TsBtnFailMode 'TsBtnFailMode
' '
Me.TsBtnFailMode.Image = CType(resources.GetObject("TsBtnFailMode.Image"),System.Drawing.Image) Me.TsBtnFailMode.Image = CType(resources.GetObject("TsBtnFailMode.Image"), System.Drawing.Image)
Me.TsBtnFailMode.ImageTransparentColor = System.Drawing.Color.Magenta Me.TsBtnFailMode.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TsBtnFailMode.Name = "TsBtnFailMode" Me.TsBtnFailMode.Name = "TsBtnFailMode"
Me.TsBtnFailMode.Size = New System.Drawing.Size(60, 37) Me.TsBtnFailMode.Size = New System.Drawing.Size(60, 37)
@@ -329,7 +304,7 @@ Namespace UTSModule.Station
' '
'tslBtn_ActionOnly 'tslBtn_ActionOnly
' '
Me.tslBtn_ActionOnly.Image = CType(resources.GetObject("tslBtn_ActionOnly.Image"),System.Drawing.Image) Me.tslBtn_ActionOnly.Image = CType(resources.GetObject("tslBtn_ActionOnly.Image"), System.Drawing.Image)
Me.tslBtn_ActionOnly.ImageTransparentColor = System.Drawing.Color.Magenta Me.tslBtn_ActionOnly.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tslBtn_ActionOnly.Name = "tslBtn_ActionOnly" Me.tslBtn_ActionOnly.Name = "tslBtn_ActionOnly"
Me.tslBtn_ActionOnly.Size = New System.Drawing.Size(48, 37) Me.tslBtn_ActionOnly.Size = New System.Drawing.Size(48, 37)
@@ -338,7 +313,7 @@ Namespace UTSModule.Station
' '
'TsBtn_Record 'TsBtn_Record
' '
Me.TsBtn_Record.Image = CType(resources.GetObject("TsBtn_Record.Image"),System.Drawing.Image) Me.TsBtn_Record.Image = CType(resources.GetObject("TsBtn_Record.Image"), System.Drawing.Image)
Me.TsBtn_Record.ImageTransparentColor = System.Drawing.Color.Magenta Me.TsBtn_Record.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TsBtn_Record.Name = "TsBtn_Record" Me.TsBtn_Record.Name = "TsBtn_Record"
Me.TsBtn_Record.Size = New System.Drawing.Size(54, 37) Me.TsBtn_Record.Size = New System.Drawing.Size(54, 37)
@@ -347,7 +322,7 @@ Namespace UTSModule.Station
' '
'TsBtn_ExpandNode 'TsBtn_ExpandNode
' '
Me.TsBtn_ExpandNode.Image = CType(resources.GetObject("TsBtn_ExpandNode.Image"),System.Drawing.Image) Me.TsBtn_ExpandNode.Image = CType(resources.GetObject("TsBtn_ExpandNode.Image"), System.Drawing.Image)
Me.TsBtn_ExpandNode.ImageTransparentColor = System.Drawing.Color.Magenta Me.TsBtn_ExpandNode.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TsBtn_ExpandNode.Name = "TsBtn_ExpandNode" Me.TsBtn_ExpandNode.Name = "TsBtn_ExpandNode"
Me.TsBtn_ExpandNode.Size = New System.Drawing.Size(55, 37) Me.TsBtn_ExpandNode.Size = New System.Drawing.Size(55, 37)
@@ -365,14 +340,14 @@ Namespace UTSModule.Station
' '
'TssLblTestStatus 'TssLblTestStatus
' '
Me.TssLblTestStatus.AutoSize = false Me.TssLblTestStatus.AutoSize = False
Me.TssLblTestStatus.Name = "TssLblTestStatus" Me.TssLblTestStatus.Name = "TssLblTestStatus"
Me.TssLblTestStatus.Size = New System.Drawing.Size(120, 17) Me.TssLblTestStatus.Size = New System.Drawing.Size(120, 17)
Me.TssLblTestStatus.Text = "测试状态" Me.TssLblTestStatus.Text = "测试状态"
' '
'TssLblTestTime 'TssLblTestTime
' '
Me.TssLblTestTime.AutoSize = false Me.TssLblTestTime.AutoSize = False
Me.TssLblTestTime.ForeColor = System.Drawing.Color.Green Me.TssLblTestTime.ForeColor = System.Drawing.Color.Green
Me.TssLblTestTime.Name = "TssLblTestTime" Me.TssLblTestTime.Name = "TssLblTestTime"
Me.TssLblTestTime.Overflow = System.Windows.Forms.ToolStripItemOverflow.Always Me.TssLblTestTime.Overflow = System.Windows.Forms.ToolStripItemOverflow.Always
@@ -381,7 +356,7 @@ Namespace UTSModule.Station
' '
'TssBarTestProgress 'TssBarTestProgress
' '
Me.TssBarTestProgress.AutoSize = false Me.TssBarTestProgress.AutoSize = False
Me.TssBarTestProgress.Name = "TssBarTestProgress" Me.TssBarTestProgress.Name = "TssBarTestProgress"
Me.TssBarTestProgress.Size = New System.Drawing.Size(200, 16) Me.TssBarTestProgress.Size = New System.Drawing.Size(200, 16)
' '
@@ -428,103 +403,43 @@ Namespace UTSModule.Station
Me.GrpStationPlan.Name = "GrpStationPlan" Me.GrpStationPlan.Name = "GrpStationPlan"
Me.GrpStationPlan.Size = New System.Drawing.Size(671, 348) Me.GrpStationPlan.Size = New System.Drawing.Size(671, 348)
Me.GrpStationPlan.TabIndex = 45 Me.GrpStationPlan.TabIndex = 45
Me.GrpStationPlan.TabStop = false Me.GrpStationPlan.TabStop = False
Me.GrpStationPlan.Text = "执行流程" Me.GrpStationPlan.Text = "执行流程"
' '
'GrdStationPlan 'GrdStationPlan
' '
Me.GrdStationPlan.BorderStyle = FlexCell.BorderStyleEnum.None Me.GrdStationPlan.BorderStyle = FlexCell.BorderStyleEnum.None
Me.GrdStationPlan.CheckedImage = Nothing
Me.GrdStationPlan.ContextMenuStrip = Me.CmsPlanGrid Me.GrdStationPlan.ContextMenuStrip = Me.CmsPlanGrid
Me.GrdStationPlan.DefaultFont = New System.Drawing.Font("宋体", 9!) Me.GrdStationPlan.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
Me.GrdStationPlan.Dock = System.Windows.Forms.DockStyle.Fill Me.GrdStationPlan.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.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.Location = New System.Drawing.Point(3, 17)
Me.GrdStationPlan.MouseWheelSpeed = CType(3, Short)
Me.GrdStationPlan.Name = "GrdStationPlan" Me.GrdStationPlan.Name = "GrdStationPlan"
Me.GrdStationPlan.Size = New System.Drawing.Size(665, 328) Me.GrdStationPlan.Size = New System.Drawing.Size(665, 328)
Me.GrdStationPlan.TabIndex = 0 Me.GrdStationPlan.TabIndex = 0
Me.GrdStationPlan.UncheckedImage = Nothing
' '
'CmsPlanGrid 'CmsPlanGrid
' '
Me.CmsPlanGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MsiCopyNode, Me.MsiCutNode, Me.MsiNodePaste, Me.ToolStripSeparator5, Me.MsiCopyWholeRow, Me.MsiPasteWholeRow, Me.ToolStripSeparator12, Me.MsiGridRowBlockInsert, Me.tsBtn_InsertChildNode, Me.MsiGridRowBlockDelete, Me.ToolStripSeparator7, Me.tsBtn_CheckAction, Me.tsBtn_UncheckAction, Me.ToolStripSeparator15, Me.MsiUndo, Me.MsiRedo, Me.ToolStripSeparator6, Me.MsiSaveNodeFile, Me.MsiLoadNodeFile, Me.ToolStripSeparator11, Me.TsmiDebugStart, Me.TsmiDebugEnd, Me.TsmiDebugStep, Me.TsmiDebugContinue, Me.ToolStripSeparator8, Me.TsmiDebugSetup, Me.TsmiDebugMain, Me.TsmiDebugPass, Me.TsmiDebugFail, Me.TsmiDebugCleanup, Me.ToolStripSeparator9, Me.TsmiDebugNode, Me.TsmiDebugNodeBegin}) Me.CmsPlanGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MsiGridRowBlockInsert, Me.MsiGridRowBlockDelete, Me.ToolStripSeparator7, Me.tsBtn_CheckAction, Me.tsBtn_UncheckAction, Me.ToolStripSeparator15, Me.MsiUndo, Me.MsiRedo, Me.ToolStripSeparator6, Me.MsiSaveNodeFile, Me.MsiLoadNodeFile, Me.ToolStripSeparator11, Me.TsmiDebugStart, Me.TsmiDebugEnd, Me.TsmiDebugContinue, Me.TsmiDebugStep, Me.ToolStripSeparator8, Me.TsmiDebugSetup, Me.TsmiDebugMain, Me.TsmiDebugPass, Me.TsmiDebugFail, Me.TsmiDebugCleanup, Me.ToolStripSeparator9, Me.TsmiDebugNode, Me.TsmiDebugNodeBegin})
Me.CmsPlanGrid.Name = "CmsMain" Me.CmsPlanGrid.Name = "CmsMain"
Me.CmsPlanGrid.Size = New System.Drawing.Size(193, 624) Me.CmsPlanGrid.Size = New System.Drawing.Size(222, 458)
'
'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 'MsiGridRowBlockInsert
' '
Me.MsiGridRowBlockInsert.Image = CType(resources.GetObject("MsiGridRowBlockInsert.Image"),System.Drawing.Image) Me.MsiGridRowBlockInsert.Image = CType(resources.GetObject("MsiGridRowBlockInsert.Image"), System.Drawing.Image)
Me.MsiGridRowBlockInsert.Name = "MsiGridRowBlockInsert" Me.MsiGridRowBlockInsert.Name = "MsiGridRowBlockInsert"
Me.MsiGridRowBlockInsert.ShortcutKeyDisplayString = "Ctr+I" 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.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.Size = New System.Drawing.Size(192, 22)
Me.MsiGridRowBlockInsert.Text = "插入" 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 'MsiGridRowBlockDelete
' '
Me.MsiGridRowBlockDelete.Image = CType(resources.GetObject("MsiGridRowBlockDelete.Image"),System.Drawing.Image) Me.MsiGridRowBlockDelete.Image = CType(resources.GetObject("MsiGridRowBlockDelete.Image"), System.Drawing.Image)
Me.MsiGridRowBlockDelete.Name = "MsiGridRowBlockDelete" Me.MsiGridRowBlockDelete.Name = "MsiGridRowBlockDelete"
Me.MsiGridRowBlockDelete.ShortcutKeyDisplayString = "Ctr+D" 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.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.Size = New System.Drawing.Size(192, 22)
Me.MsiGridRowBlockDelete.Text = "删除" Me.MsiGridRowBlockDelete.Text = "删除"
' '
@@ -535,14 +450,14 @@ Namespace UTSModule.Station
' '
'tsBtn_CheckAction 'tsBtn_CheckAction
' '
Me.tsBtn_CheckAction.Image = CType(resources.GetObject("tsBtn_CheckAction.Image"),System.Drawing.Image) Me.tsBtn_CheckAction.Image = CType(resources.GetObject("tsBtn_CheckAction.Image"), System.Drawing.Image)
Me.tsBtn_CheckAction.Name = "tsBtn_CheckAction" Me.tsBtn_CheckAction.Name = "tsBtn_CheckAction"
Me.tsBtn_CheckAction.Size = New System.Drawing.Size(192, 22) Me.tsBtn_CheckAction.Size = New System.Drawing.Size(192, 22)
Me.tsBtn_CheckAction.Text = "勾选测试" Me.tsBtn_CheckAction.Text = "勾选测试"
' '
'tsBtn_UncheckAction 'tsBtn_UncheckAction
' '
Me.tsBtn_UncheckAction.Image = CType(resources.GetObject("tsBtn_UncheckAction.Image"),System.Drawing.Image) Me.tsBtn_UncheckAction.Image = CType(resources.GetObject("tsBtn_UncheckAction.Image"), System.Drawing.Image)
Me.tsBtn_UncheckAction.Name = "tsBtn_UncheckAction" Me.tsBtn_UncheckAction.Name = "tsBtn_UncheckAction"
Me.tsBtn_UncheckAction.Size = New System.Drawing.Size(192, 22) Me.tsBtn_UncheckAction.Size = New System.Drawing.Size(192, 22)
Me.tsBtn_UncheckAction.Text = "取消勾选测试" Me.tsBtn_UncheckAction.Text = "取消勾选测试"
@@ -554,14 +469,14 @@ Namespace UTSModule.Station
' '
'MsiUndo 'MsiUndo
' '
Me.MsiUndo.Enabled = false Me.MsiUndo.Enabled = False
Me.MsiUndo.Name = "MsiUndo" Me.MsiUndo.Name = "MsiUndo"
Me.MsiUndo.Size = New System.Drawing.Size(192, 22) Me.MsiUndo.Size = New System.Drawing.Size(192, 22)
Me.MsiUndo.Text = "撤销" Me.MsiUndo.Text = "撤销"
' '
'MsiRedo 'MsiRedo
' '
Me.MsiRedo.Enabled = false Me.MsiRedo.Enabled = False
Me.MsiRedo.Name = "MsiRedo" Me.MsiRedo.Name = "MsiRedo"
Me.MsiRedo.Size = New System.Drawing.Size(192, 22) Me.MsiRedo.Size = New System.Drawing.Size(192, 22)
Me.MsiRedo.Text = "重做" Me.MsiRedo.Text = "重做"
@@ -590,34 +505,34 @@ Namespace UTSModule.Station
' '
'TsmiDebugStart 'TsmiDebugStart
' '
Me.TsmiDebugStart.Image = CType(resources.GetObject("TsmiDebugStart.Image"),System.Drawing.Image) Me.TsmiDebugStart.Image = CType(resources.GetObject("TsmiDebugStart.Image"), System.Drawing.Image)
Me.TsmiDebugStart.Name = "TsmiDebugStart" Me.TsmiDebugStart.Name = "TsmiDebugStart"
Me.TsmiDebugStart.ShortcutKeys = System.Windows.Forms.Keys.F1 Me.TsmiDebugStart.ShortcutKeys = System.Windows.Forms.Keys.F5
Me.TsmiDebugStart.Size = New System.Drawing.Size(192, 22) Me.TsmiDebugStart.Size = New System.Drawing.Size(207, 22)
Me.TsmiDebugStart.Text = "开始执行" Me.TsmiDebugStart.Text = "开始执行"
' '
'TsmiDebugEnd 'TsmiDebugEnd
' '
Me.TsmiDebugEnd.Image = CType(resources.GetObject("TsmiDebugEnd.Image"),System.Drawing.Image) Me.TsmiDebugEnd.Image = CType(resources.GetObject("TsmiDebugEnd.Image"), System.Drawing.Image)
Me.TsmiDebugEnd.Name = "TsmiDebugEnd" Me.TsmiDebugEnd.Name = "TsmiDebugEnd"
Me.TsmiDebugEnd.ShortcutKeys = System.Windows.Forms.Keys.F2 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(192, 22) Me.TsmiDebugEnd.Size = New System.Drawing.Size(207, 22)
Me.TsmiDebugEnd.Text = "退出执行" Me.TsmiDebugEnd.Text = "退出执行"
' '
'TsmiDebugStep 'TsmiDebugStep
' '
Me.TsmiDebugStep.Image = CType(resources.GetObject("TsmiDebugStep.Image"),System.Drawing.Image) Me.TsmiDebugStep.Image = CType(resources.GetObject("TsmiDebugStep.Image"), System.Drawing.Image)
Me.TsmiDebugStep.Name = "TsmiDebugStep" Me.TsmiDebugStep.Name = "TsmiDebugStep"
Me.TsmiDebugStep.ShortcutKeys = System.Windows.Forms.Keys.F3 Me.TsmiDebugStep.ShortcutKeys = System.Windows.Forms.Keys.F11
Me.TsmiDebugStep.Size = New System.Drawing.Size(192, 22) Me.TsmiDebugStep.Size = New System.Drawing.Size(207, 22)
Me.TsmiDebugStep.Text = "单步执行" Me.TsmiDebugStep.Text = "单步执行"
' '
'TsmiDebugContinue 'TsmiDebugContinue
' '
Me.TsmiDebugContinue.Image = CType(resources.GetObject("TsmiDebugContinue.Image"),System.Drawing.Image) Me.TsmiDebugContinue.Image = CType(resources.GetObject("TsmiDebugContinue.Image"), System.Drawing.Image)
Me.TsmiDebugContinue.Name = "TsmiDebugContinue" Me.TsmiDebugContinue.Name = "TsmiDebugContinue"
Me.TsmiDebugContinue.ShortcutKeys = System.Windows.Forms.Keys.F4 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(192, 22) Me.TsmiDebugContinue.Size = New System.Drawing.Size(207, 22)
Me.TsmiDebugContinue.Text = "继续执行" Me.TsmiDebugContinue.Text = "继续执行"
' '
'ToolStripSeparator8 'ToolStripSeparator8
@@ -628,36 +543,36 @@ Namespace UTSModule.Station
'TsmiDebugSetup 'TsmiDebugSetup
' '
Me.TsmiDebugSetup.Name = "TsmiDebugSetup" Me.TsmiDebugSetup.Name = "TsmiDebugSetup"
Me.TsmiDebugSetup.ShortcutKeys = System.Windows.Forms.Keys.F5 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(192, 22) Me.TsmiDebugSetup.Size = New System.Drawing.Size(207, 22)
Me.TsmiDebugSetup.Text = "Setup模块执行" Me.TsmiDebugSetup.Text = "Setup模块执行"
' '
'TsmiDebugMain 'TsmiDebugMain
' '
Me.TsmiDebugMain.Name = "TsmiDebugMain" Me.TsmiDebugMain.Name = "TsmiDebugMain"
Me.TsmiDebugMain.ShortcutKeys = System.Windows.Forms.Keys.F6 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(192, 22) Me.TsmiDebugMain.Size = New System.Drawing.Size(207, 22)
Me.TsmiDebugMain.Text = "Main模块执行" Me.TsmiDebugMain.Text = "Main模块执行"
' '
'TsmiDebugPass 'TsmiDebugPass
' '
Me.TsmiDebugPass.Name = "TsmiDebugPass" Me.TsmiDebugPass.Name = "TsmiDebugPass"
Me.TsmiDebugPass.ShortcutKeys = System.Windows.Forms.Keys.F7 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(192, 22) Me.TsmiDebugPass.Size = New System.Drawing.Size(221, 22)
Me.TsmiDebugPass.Text = "Pass模块执行" Me.TsmiDebugPass.Text = "Pass模块执行"
' '
'TsmiDebugFail 'TsmiDebugFail
' '
Me.TsmiDebugFail.Name = "TsmiDebugFail" Me.TsmiDebugFail.Name = "TsmiDebugFail"
Me.TsmiDebugFail.ShortcutKeys = System.Windows.Forms.Keys.F8 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(192, 22) Me.TsmiDebugFail.Size = New System.Drawing.Size(221, 22)
Me.TsmiDebugFail.Text = "Fail模块执行" Me.TsmiDebugFail.Text = "Fail模块执行"
' '
'TsmiDebugCleanup 'TsmiDebugCleanup
' '
Me.TsmiDebugCleanup.Name = "TsmiDebugCleanup" Me.TsmiDebugCleanup.Name = "TsmiDebugCleanup"
Me.TsmiDebugCleanup.ShortcutKeys = System.Windows.Forms.Keys.F9 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(192, 22) Me.TsmiDebugCleanup.Size = New System.Drawing.Size(221, 22)
Me.TsmiDebugCleanup.Text = "Cleanup模块执行" Me.TsmiDebugCleanup.Text = "Cleanup模块执行"
' '
'ToolStripSeparator9 'ToolStripSeparator9
@@ -668,15 +583,15 @@ Namespace UTSModule.Station
'TsmiDebugNode 'TsmiDebugNode
' '
Me.TsmiDebugNode.Name = "TsmiDebugNode" Me.TsmiDebugNode.Name = "TsmiDebugNode"
Me.TsmiDebugNode.ShortcutKeys = System.Windows.Forms.Keys.F10 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(192, 22) Me.TsmiDebugNode.Size = New System.Drawing.Size(221, 22)
Me.TsmiDebugNode.Text = "节点测试" Me.TsmiDebugNode.Text = "节点测试"
' '
'TsmiDebugNodeBegin 'TsmiDebugNodeBegin
' '
Me.TsmiDebugNodeBegin.Name = "TsmiDebugNodeBegin" Me.TsmiDebugNodeBegin.Name = "TsmiDebugNodeBegin"
Me.TsmiDebugNodeBegin.ShortcutKeys = System.Windows.Forms.Keys.F11 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(192, 22) Me.TsmiDebugNodeBegin.Size = New System.Drawing.Size(221, 22)
Me.TsmiDebugNodeBegin.Text = "节点开始测试" Me.TsmiDebugNodeBegin.Text = "节点开始测试"
' '
'GrpSingleRowInfo 'GrpSingleRowInfo
@@ -687,7 +602,7 @@ Namespace UTSModule.Station
Me.GrpSingleRowInfo.Name = "GrpSingleRowInfo" Me.GrpSingleRowInfo.Name = "GrpSingleRowInfo"
Me.GrpSingleRowInfo.Size = New System.Drawing.Size(302, 348) Me.GrpSingleRowInfo.Size = New System.Drawing.Size(302, 348)
Me.GrpSingleRowInfo.TabIndex = 1 Me.GrpSingleRowInfo.TabIndex = 1
Me.GrpSingleRowInfo.TabStop = false Me.GrpSingleRowInfo.TabStop = False
Me.GrpSingleRowInfo.Text = "属性" Me.GrpSingleRowInfo.Text = "属性"
' '
'SplitContainer1 'SplitContainer1
@@ -712,22 +627,20 @@ Namespace UTSModule.Station
'GrdRowNode 'GrdRowNode
' '
Me.GrdRowNode.BorderStyle = FlexCell.BorderStyleEnum.None Me.GrdRowNode.BorderStyle = FlexCell.BorderStyleEnum.None
Me.GrdRowNode.CheckedImage = Nothing Me.GrdRowNode.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
Me.GrdRowNode.DefaultFont = New System.Drawing.Font("宋体", 9!)
Me.GrdRowNode.Dock = System.Windows.Forms.DockStyle.Fill 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.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.Location = New System.Drawing.Point(0, 0)
Me.GrdRowNode.MouseWheelSpeed = CType(3, Short)
Me.GrdRowNode.Name = "GrdRowNode" Me.GrdRowNode.Name = "GrdRowNode"
Me.GrdRowNode.Size = New System.Drawing.Size(296, 246) Me.GrdRowNode.Size = New System.Drawing.Size(296, 246)
Me.GrdRowNode.TabIndex = 0 Me.GrdRowNode.TabIndex = 0
Me.GrdRowNode.UncheckedImage = Nothing
' '
'RtxColTip 'RtxColTip
' '
Me.RtxColTip.BorderStyle = System.Windows.Forms.BorderStyle.None Me.RtxColTip.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.RtxColTip.Dock = System.Windows.Forms.DockStyle.Fill Me.RtxColTip.Dock = System.Windows.Forms.DockStyle.Fill
Me.RtxColTip.Enabled = false Me.RtxColTip.Enabled = False
Me.RtxColTip.Location = New System.Drawing.Point(0, 0) Me.RtxColTip.Location = New System.Drawing.Point(0, 0)
Me.RtxColTip.Name = "RtxColTip" Me.RtxColTip.Name = "RtxColTip"
Me.RtxColTip.Size = New System.Drawing.Size(296, 78) Me.RtxColTip.Size = New System.Drawing.Size(296, 78)
@@ -823,16 +736,12 @@ End Sub
Friend WithEvents SplitContainer1 As SplitContainer Friend WithEvents SplitContainer1 As SplitContainer
Friend WithEvents RtxColTip As RichTextBox Friend WithEvents RtxColTip As RichTextBox
Friend WithEvents GrpOutputInfo As GroupBox Friend WithEvents GrpOutputInfo As GroupBox
Friend WithEvents TsBtnCopyWholeRow As ToolStripButton Friend WithEvents TsBtnBackward As ToolStripButton
Friend WithEvents TsBtnPasteWholdRows As ToolStripButton Friend WithEvents TsBtnForward As ToolStripButton
Friend WithEvents TsBtnMoveUp As ToolStripButton Friend WithEvents TsBtnMoveUp As ToolStripButton
Friend WithEvents GrdRowNode As FlexCell.Grid Friend WithEvents GrdRowNode As FlexCell.Grid
Friend WithEvents CmsPlanGrid As ContextMenuStrip 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 MsiSaveNodeFile As ToolStripMenuItem
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents TsBtnMoveDown As ToolStripButton Friend WithEvents TsBtnMoveDown As ToolStripButton
Friend WithEvents TsBtnMoveLeft As ToolStripButton Friend WithEvents TsBtnMoveLeft As ToolStripButton
Friend WithEvents TsBtnMoveRight As ToolStripButton Friend WithEvents TsBtnMoveRight As ToolStripButton
@@ -840,12 +749,10 @@ End Sub
Friend WithEvents ToolStripSeparator3 As ToolStripSeparator Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
Friend WithEvents TsBtnLoad As ToolStripButton Friend WithEvents TsBtnLoad As ToolStripButton
Friend WithEvents TsBtnSave As ToolStripButton Friend WithEvents TsBtnSave As ToolStripButton
Friend WithEvents ToolStripSeparator5 As ToolStripSeparator
Friend WithEvents MsiLoadNodeFile As ToolStripMenuItem Friend WithEvents MsiLoadNodeFile As ToolStripMenuItem
Friend WithEvents ToolStripSeparator6 As ToolStripSeparator Friend WithEvents ToolStripSeparator6 As ToolStripSeparator
Friend WithEvents MsiUndo As ToolStripMenuItem Friend WithEvents MsiUndo As ToolStripMenuItem
Friend WithEvents MsiRedo As ToolStripMenuItem Friend WithEvents MsiRedo As ToolStripMenuItem
Friend WithEvents TsBtnClearAll As ToolStripButton
Friend WithEvents TsBtnOpen As ToolStripButton Friend WithEvents TsBtnOpen As ToolStripButton
Friend WithEvents GrdStationPlan As FlexCell.Grid Friend WithEvents GrdStationPlan As FlexCell.Grid
Friend WithEvents TsBtnDebugStart As ToolStripButton Friend WithEvents TsBtnDebugStart As ToolStripButton
@@ -882,14 +789,10 @@ End Sub
Friend WithEvents MsiGridRowBlockInsert As ToolStripMenuItem Friend WithEvents MsiGridRowBlockInsert As ToolStripMenuItem
Friend WithEvents MsiGridRowBlockDelete As ToolStripMenuItem Friend WithEvents MsiGridRowBlockDelete As ToolStripMenuItem
Friend WithEvents ToolStripSeparator11 As ToolStripSeparator 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 ToolStripSeparator13 As ToolStripSeparator
Friend WithEvents ToolStripSeparator14 As ToolStripSeparator Friend WithEvents ToolStripSeparator14 As ToolStripSeparator
Friend WithEvents tsBtn_CheckAction As ToolStripMenuItem Friend WithEvents tsBtn_CheckAction As ToolStripMenuItem
Friend WithEvents tsBtn_UncheckAction As ToolStripMenuItem Friend WithEvents tsBtn_UncheckAction As ToolStripMenuItem
Friend WithEvents ToolStripSeparator15 As ToolStripSeparator Friend WithEvents ToolStripSeparator15 As ToolStripSeparator
Friend WithEvents tsBtn_InsertChildNode As ToolStripMenuItem
End Class End Class
End Namespace End Namespace

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@@ -1,8 +1,10 @@
Imports System.Drawing Imports System.Drawing
Imports System.Reflection.Emit Imports System.Reflection.Emit
Imports System.Text Imports System.Text
Imports System.Web.UI.WebControls
Imports System.Windows.Forms Imports System.Windows.Forms
Imports FlexCell Imports FlexCell
Imports Steema.TeeChart.Walls
Imports UTS_Core.UTSModule.Production Imports UTS_Core.UTSModule.Production
Imports UTS_Core.UTSModule.Test.Command Imports UTS_Core.UTSModule.Test.Command
Imports UTS_Core.UTSModule.Test.StatusMonitor Imports UTS_Core.UTSModule.Test.StatusMonitor
@@ -120,6 +122,7 @@ Namespace UTSModule.Station
RemoveHandler _grd.Click, AddressOf Grid_Click RemoveHandler _grd.Click, AddressOf Grid_Click
RemoveHandler _grd.CellChange, AddressOf Grid_CellChange RemoveHandler _grd.CellChange, AddressOf Grid_CellChange
RemoveHandler _grd.SelChange, AddressOf Grid_SelChange RemoveHandler _grd.SelChange, AddressOf Grid_SelChange
RemoveHandler _grd.LeaveCell, AddressOf Grid_LeaveCell
RemoveHandler _grd.ComboDropDown, AddressOf Grid_ComboDropDown RemoveHandler _grd.ComboDropDown, AddressOf Grid_ComboDropDown
RemoveHandler _grd.ComboClick, AddressOf Grid_ComboClick RemoveHandler _grd.ComboClick, AddressOf Grid_ComboClick
RemoveHandler _grd.MouseMove, AddressOf Grid_MouseMove RemoveHandler _grd.MouseMove, AddressOf Grid_MouseMove
@@ -132,6 +135,7 @@ Namespace UTSModule.Station
AddHandler _grd.Click, AddressOf Grid_Click AddHandler _grd.Click, AddressOf Grid_Click
AddHandler _grd.CellChange, AddressOf Grid_CellChange AddHandler _grd.CellChange, AddressOf Grid_CellChange
AddHandler _grd.SelChange, AddressOf Grid_SelChange AddHandler _grd.SelChange, AddressOf Grid_SelChange
AddHandler _grd.LeaveCell, AddressOf Grid_LeaveCell
AddHandler _grd.ComboDropDown, AddressOf Grid_ComboDropDown AddHandler _grd.ComboDropDown, AddressOf Grid_ComboDropDown
AddHandler _grd.ComboClick, AddressOf Grid_ComboClick AddHandler _grd.ComboClick, AddressOf Grid_ComboClick
AddHandler _grd.MouseMove, AddressOf Grid_MouseMove AddHandler _grd.MouseMove, AddressOf Grid_MouseMove
@@ -174,28 +178,45 @@ Namespace UTSModule.Station
End Sub End Sub
Private gCopyWholeRows As Integer '整行复制时记录行数 ''' <summary>
Private gCopyRow As Integer '整行复制时记录行数 ''' 向后导航
Private gIsCopyRowDataReady As Boolean = False '整行复制时标记,只能复制一次 ''' </summary>
Public Sub BackwardNavigation()
Public Sub MultiLineCopyData() GridNavigationManager.Backward()
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()
End Sub End Sub
Public Sub MultiLinePasteData() ''' <summary>
Dim tmpFrisRow As Integer = _grd.Selection.FirstRow ''' 向前导航
''' </summary>
Public Sub ForwardNavigation()
GridNavigationManager.Forward()
End Sub
LockGridAutoRedraw() ''' <summary>
''' 是否可以后退
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function CanBackward() As Boolean
Return GridNavigationManager.CanBackward
End Function
'插入节点 ''' <summary>
NodeAdd(gCopyWholeRows) ''' 是否可以前进
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function CanForward() As Boolean
Return GridNavigationManager.CanForward
End Function
_grd.Range(tmpFrisRow, ColNames.Action, tmpFrisRow + gCopyWholeRows, _grd.Cols - 1).PasteData() ''' <summary>
'''
UnLockGridAutoRedraw() ''' </summary>
Public Sub ClearNavigation()
GridNavigationManager.Clear()
_lastSelction = Nothing
_lastTempSelction = Nothing
End Sub End Sub
'离开表格时活动单元格背景颜色 '离开表格时活动单元格背景颜色
@@ -1265,11 +1286,41 @@ Namespace UTSModule.Station
RaiseEvent RowNodeTextChanged(sender, args) RaiseEvent RowNodeTextChanged(sender, args)
End Sub 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) Private Sub Grid_SelChange(sender As Object, e As Grid.SelChangeEventArgs)
'todo:更新详情表格 'todo:更新详情表格
If _headNode Is Nothing Then Return If _headNode Is Nothing Then Return
Dim node As RowNode = _headNode.RowList(_grd.ActiveCell.Row - _drawStartRow + 1) Dim node As RowNode = _headNode.RowList(_grd.ActiveCell.Row - _drawStartRow + 1)
If node Is Nothing Then Return 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 ActiveNode = node
@@ -1286,6 +1337,15 @@ Namespace UTSModule.Station
RaiseEvent PlanNodeSelectChanged(sender, event2) RaiseEvent PlanNodeSelectChanged(sender, event2)
End Sub 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 _dropCol As Integer = 0
Private _dropRow As Integer = 0 Private _dropRow As Integer = 0
@@ -1480,20 +1540,19 @@ Namespace UTSModule.Station
End Sub End Sub
Public Sub NodeAdd(rows As Integer) Public Sub NodeAdd(startMoveRow As Integer, rows As Integer)
Dim idx As Integer Dim idx As Integer
Dim node As RowNode Dim node As RowNode
If rows < 1 Then Return If rows < 1 Then Return
If _grd.ActiveCell Is Nothing OrElse _grd.Tree.SelectedNode Is Nothing Then Return
If _headNode Is Nothing Then Return If _headNode Is Nothing Then Return
LockGridAutoRedraw() LockGridAutoRedraw()
Dim row As Integer = _grd.ActiveCell.Row + rows Dim row As Integer = startMoveRow + rows
For idx = 1 To 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 If node Is Nothing Then Exit For
@@ -1519,19 +1578,18 @@ Namespace UTSModule.Station
UnLockGridAutoRedraw() UnLockGridAutoRedraw()
End Sub End Sub
Public Sub NodeDel(rows As Integer) Public Sub NodeDel(startMoveRow As Integer, rows As Integer)
Dim idx As Integer Dim idx As Integer
Dim node As RowNode Dim node As RowNode
If rows < 1 Then Return If rows < 1 Then Return
If _grd.ActiveCell Is Nothing OrElse _grd.Tree.SelectedNode Is Nothing Then Return
If _headNode Is Nothing Then Return If _headNode Is Nothing Then Return
LockGridAutoRedraw() LockGridAutoRedraw()
Dim row As Integer = _grd.ActiveCell.Row - 1 Dim row As Integer = startMoveRow - 1
For idx = 1 To 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 If node Is Nothing Then Exit For
'更新内存 '更新内存
@@ -1578,62 +1636,220 @@ Namespace UTSModule.Station
End Sub End Sub
Public Sub NodeMoveUp(rows As Integer) Public Sub NodeMoveUp(startMoveRow As Integer, moveRows 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
If _headNode Is Nothing Then Return 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) Dim startNode As RowNode = _headNode.RowList(startMoveRow - _drawStartRow + 1)
If node Is Nothing Then Return Dim prevNode As RowNode = startNode.PrevNode
Dim node As RowNode = startNode
Dim moveUpRows As Integer = node.AllChildCount + 1
'更新内存 If prevNode Is Nothing Then Return
If node.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 '上移动前起始位置 moveUpRows += node.AllChildCount + 1
moveUpCount = 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 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 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 End Sub
@@ -1706,27 +1922,16 @@ Namespace UTSModule.Station
''' <summary> ''' <summary>
''' 节点升级 ''' 节点升级
''' </summary> ''' </summary>
Public Sub NodeMoveLeft(rows As Integer) Public Sub NodeMoveLeft(startMoveRow As Integer, moveRows 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
If _headNode Is Nothing Then Return If _headNode Is Nothing Then Return
Dim moveLeftSatrtRow As Integer = _grd.ActiveCell.Row Dim node As RowNode
Dim grdNode As FlexCell.Node Dim grdNode As FlexCell.Node
Dim grdParentNode As FlexCell.Node Dim grdParentNode As FlexCell.Node
LockGridAutoRedraw() LockGridAutoRedraw()
_uploading = True _uploading = True
For idx As Integer = 1 To rows For idx As Integer = moveRows To 1 Step -1
node = _headNode.RowList(moveLeftSatrtRow - _drawStartRow + 1) node = _headNode.RowList(startMoveRow - _drawStartRow + idx)
Console.WriteLine($"Index:{node.RowListIndex}") Console.WriteLine($"Index:{node.RowListIndex}")
If node Is Nothing Then Exit For If node Is Nothing Then Exit For
@@ -1735,28 +1940,6 @@ Namespace UTSModule.Station
grdNode = _grd.Tree.FindNode(node.RowListIndex) grdNode = _grd.Tree.FindNode(node.RowListIndex)
grdParentNode = grdNode.Parent 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() node.MoveLeft()
Console.WriteLine($"Node:{node.RowLever}") Console.WriteLine($"Node:{node.RowLever}")
@@ -1764,9 +1947,11 @@ Namespace UTSModule.Station
grdParentNode.Parent.Nodes.Insert(grdParentNode.Index + 1, "") grdParentNode.Parent.Nodes.Insert(grdParentNode.Index + 1, "")
UpdateGrid(_grd, node.RowListIndex, node) UpdateGrid(_grd, node.RowListIndex, node)
AddGridTreeNode(_grd.Tree.FindNode(node.RowListIndex), node) AddGridTreeNode(_grd.Tree.FindNode(node.RowListIndex), node)
_grd.Cell(node.RowListIndex, _grd.ActiveCell.Col).SetFocus()
StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Changed StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Changed
Next Next
_uploading = False _uploading = False
UnLockGridAutoRedraw() UnLockGridAutoRedraw()
End Sub End Sub
@@ -1775,20 +1960,18 @@ Namespace UTSModule.Station
''' <summary> ''' <summary>
''' 节点降级 ''' 节点降级
''' </summary> ''' </summary>
Public Sub NodeMoveRight(rows As Integer) Public Sub NodeMoveRight(startMoveRow As Integer, moveRows 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 If _headNode Is Nothing Then Return
Dim node As RowNode
Dim grdNode As FlexCell.Node Dim grdNode As FlexCell.Node
Dim grdPreNode As FlexCell.Node Dim grdPreNode As FlexCell.Node
Dim moveLeftSatrtRow As Integer = _grd.ActiveCell.Row
LockGridAutoRedraw() LockGridAutoRedraw()
_uploading = True _uploading = True
For idx As Integer = 1 To moveRows
For idx As Integer = 1 To rows node = _headNode.RowList(startMoveRow - _drawStartRow + idx)
node = _headNode.RowList(_grd.ActiveCell.Row - _drawStartRow + idx)
If node Is Nothing Then Exit For If node Is Nothing Then Exit For
If node.RowType = RowNode.RowTypeEnum.FixedModule Then Exit For If node.RowType = RowNode.RowTypeEnum.FixedModule Then Exit For
If node.RowIndex = 0 Then Exit For If node.RowIndex = 0 Then Exit For
@@ -1802,11 +1985,9 @@ Namespace UTSModule.Station
grdPreNode.Nodes.Add("", "") grdPreNode.Nodes.Add("", "")
UpdateGrid(_grd, node.RowListIndex, node) UpdateGrid(_grd, node.RowListIndex, node)
AddGridTreeNode(_grd.Tree.FindNode(node.RowListIndex), node) AddGridTreeNode(_grd.Tree.FindNode(node.RowListIndex), node)
_grd.Cell(node.RowListIndex, _grd.ActiveCell.Col).SetFocus()
StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Changed StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Changed
Next Next
_uploading = False _uploading = False
UnLockGridAutoRedraw() UnLockGridAutoRedraw()
End Sub End Sub

View File

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

View File

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

View File

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

Binary file not shown.

Binary file not shown.

View File

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

Binary file not shown.

Binary file not shown.

View File

@@ -1 +1 @@
c5e447f21e4566eafb50096c9ff8e17beb0c61abb20024da831ee1debf91f22c af7ffd6c70aae8262a8fd7fa2be8ccce4d83b9bc4c1bfc834a19f24335ece0da

View File

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