Infragistics｜Ultimate UI Windows Form｜如何在單個 UltraGrid 中 Drop & Drag Row

將 UltraGrid 的 AllowDrop 屬性設置為 True。

C#

ultraGrid1.AllowDrop = true;

VB.NET

UltraGrid1.AllowDrop = True

接下來，處理UltraGrid 的SelectionDrag 事件並調用UltraGrid 的DoDragDrop() 方法。當最終用戶選擇一行並開始拖動時，將觸發 SelectionDrag 事件。

C#

private void ultraGrid1_SelectionDrag(object sender, CancelEventArgs e)
{
ultraGrid1.DoDragDrop(ultraGrid1.Selected.Rows, DragDropEffects.Move);
}

VB.NET

Private Sub UltraGrid1_SelectionDrag(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles UltraGrid1.SelectionDrag
UltraGrid1.DoDragDrop(UltraGrid1.Selected.Rows, DragDropEffects.Move)
End Sub

處理 UltraGrid 的 DragOver 事件以設置拖動效果並啟用滾動。可以將行拖動到 UltraGrid 中的任何位置。

C#

private void ultraGrid1_DragOver(object sender, DragEventArgs e)
{
e.Effect = DragDropEffects.Move;
UltraGrid grid = sender as UltraGrid;
Point pointInGridCoords = grid.PointToClient(new Point(e.X,e.Y));
if (pointInGridCoords.Y < 20) // 向上滖動 
this.ultraGrid1.ActiveRowScrollRegion.Scroll(RowScrollAction.LineUp); else if (pointInGridCoords.Y > grid.Height - 20)
// 向下滖動
this.ultraGrid1.ActiveRowScrollRegion.Scroll(RowScrollAction.LineDown);
}

VB.NET

Private Sub UltraGrid1_DragOver(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles UltraGrid1.DragOver
e.Effect = DragDropEffects.Move
Dim grid As UltraGrid = TryCast(sender, UltraGrid)
Dim pointInGridCoords As Point = grid.PointToClient(New Point(e.X, e.Y))
If pointInGridCoords.Y < 20 Then
    '向上滖動
    Me.UltraGrid1.ActiveRowScrollRegion.Scroll(RowScrollAction.LineUp)
ElseIf pointInGridCoords.Y > grid.Height - 20 Then
    '向下滖動
    Me.UltraGrid1.ActiveRowScrollRegion.Scroll(RowScrollAction.LineDown)
End If
End Sub

處理 UltraGrid 的 DragDrop 事件以獲取網格中的行放置位置。獲得位置後，您可以將行移到那裡。

C#

private void ultraGrid1_DragDrop(object sender, DragEventArgs e)
{
int dropIndex;
// 點擊後取得 Row 的位置
UIElement uieOver = ultraGrid1.DisplayLayout.UIElement.ElementFromPoint(ultraGrid1.PointToClient(new Point(e.X, e.Y)));

//取得 Drag Row 的位置
UltraGridRow ugrOver = uieOver.GetContext(typeof(UltraGridRow), true) as UltraGridRow;
if (ugrOver != null)
{
    dropIndex = ugrOver.Index;    //網格中放置區域的索引/位置

    //獲取拖拽的行
    SelectedRowsCollection SelRows (SelectedRowsCollection)e.Data.GetData (typeof(SelectedRowsCollection)) as SelectedRowsCollection;
    //獲取選中的行數並將它們放入 dropIndex
    foreach (UltraGridRow aRow in SelRows)
    {
        //將選中的行移動到拖放區
        ultraGrid1.Rows.Move(aRow, dropIndex);
    }
}
}

VB.NET

Private Sub UltraGrid1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles UltraGrid1.DragDrop
Dim dropIndex As Integer

'獲取行在網格中的放置位置
'獲取該行的網格坐標（拖放區域）
Dim uieOver As UIElement = UltraGrid1.DisplayLayout.UIElement.ElementFromPoint(UltraGrid1.PointToClient(New Point(e.X, e.Y)))

'獲取拖放區行/位置來拖放被拖行
Dim ugrOver As UltraGridRow = TryCast(uieOver.GetContext(GetType(UltraGridRow), True), UltraGridRow)

If ugrOver IsNot Nothing Then
    dropIndex = ugrOver.Index    '拖放區域在網格中的索引/位置  

    '獲取拖拽的行
    Dim SelRows As SelectedRowsCollection = TryCast(DirectCast(e.Data.GetData(GetType(SelectedRowsCollection)), SelectedRowsCollection), SelectedRowsCollection)
    '獲取選中的行數，放入dropIndex

    For Each aRow As UltraGridRow In SelRows
        '將選中的行移動到拖放區
        UltraGrid1.Rows.Move(aRow, dropIndex)
    Next
End If
End Sub