29 lines
775 B
VB.net
29 lines
775 B
VB.net
|
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
|