Private dragBoxFromMouseDown As Rectangle
Private rowIndexFromMouseDown As Integer
Private rowIndexOfItemUnderMouseToDrop As Integer
Private Sub MoseMove(sender As Object, e As MouseEventArgs, ByVal DataGrid As DataGridView)
If (e.Button And MouseButtons.Left) = MouseButtons.Left Then
If dragBoxFromMouseDown <> Rectangle.Empty AndAlso Not dragBoxFromMouseDown.Contains(e.X, e.Y) Then
Dim dropEffect As DragDropEffects = DataGrid.DoDragDrop(DataGrid.Rows(rowIndexFromMouseDown), DragDropEffects.Move)
End If
End If
End Sub
Private Sub MoseDown(sender As Object, e As MouseEventArgs, ByVal DataGrid As DataGridView)
rowIndexFromMouseDown = DataGrid.HitTest(e.X, e.Y).RowIndex
If rowIndexFromMouseDown <> -1 Then
Dim dragSize As Size = SystemInformation.DragSize
dragBoxFromMouseDown = New Rectangle(New Point(e.X - (dragSize.Width / 2), e.Y - (dragSize.Height / 2)), dragSize)
Else
dragBoxFromMouseDown = Rectangle.Empty
End If
End Sub
Private Sub DrageDrop(sender As Object, e As DragEventArgs, ByVal DragGrid As DataGridView, DropGrid As DataGridView)
Dim clientPoint As Point = DragGrid.PointToClient(New Point(e.X, e.Y))
rowIndexOfItemUnderMouseToDrop = DragGrid.HitTest(clientPoint.X, clientPoint.Y).RowIndex
If e.Effect = DragDropEffects.Move Then
Dim rowToMove As DataGridViewRow = TryCast(e.Data.GetData(GetType(DataGridViewRow)), DataGridViewRow)
If rowToMove.Index < 0 Then
Return
End If
If rowIndexFromMouseDown < rowIndexOfItemUnderMouseToDrop Then
DropGrid.Rows.RemoveAt(rowIndexFromMouseDown)
DragGrid.Rows.Insert(rowIndexOfItemUnderMouseToDrop - 1, rowToMove)
ElseIf rowIndexFromMouseDown > rowIndexOfItemUnderMouseToDrop Then
DropGrid.Rows.RemoveAt(rowIndexFromMouseDown)
DragGrid.Rows.Insert(rowIndexOfItemUnderMouseToDrop, rowToMove)
End If
End If
End Sub
Private Sub DataGridView1_DragOver(sender As Object, e As DragEventArgs) Handles DataGridView1.DragOver, DataGridView2.DragOver
e.Effect = DragDropEffects.Move
End Sub
Private Sub DataGridView1_MouseMove(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseMove
MoseMove(DataGridView1, e, DataGridView1)
End Sub
Private Sub DataGridView1_MouseDown(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseDown
MoseDown(DataGridView1, e, DataGridView1)
End Sub
Private Sub DataGridView1_DragDrop(sender As Object, e As DragEventArgs) Handles DataGridView1.DragDrop
DrageDrop(DataGridView1, e, DataGridView1, DataGridView2)
End Sub
Private Sub DataGridView2_MouseMove(sender As Object, e As MouseEventArgs) Handles DataGridView2.MouseMove
MoseMove(DataGridView2, e, DataGridView2)
End Sub
Private Sub DataGridView2_MouseDown(sender As Object, e As MouseEventArgs) Handles DataGridView2.MouseDown
MoseDown(DataGridView2, e, DataGridView2)
End Sub
Private Sub DataGridView2_DragDrop(sender As Object, e As DragEventArgs) Handles DataGridView2.DragDrop
DrageDrop(DataGridView2, e, DataGridView2, DataGridView1)
End Sub
Private Sub AddSomeRows()
Dim col1 As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn()
Dim col2 As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn()
Dim col3 As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn()
Dim col4 As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn()
col1.HeaderText = "Column1"
col1.Name = "Column1"
col2.HeaderText = "Column2"
col2.Name = "Column2"
col3.HeaderText = "Column3"
col3.Name = "Column3"
col4.HeaderText = "Column4"
col4.Name = "Column4"
DataGridView1.Columns.AddRange(New DataGridViewColumn() {col1, col2})
DataGridView2.Columns.AddRange(New DataGridViewColumn() {col3, col4})
Dim Data(,) As String = New String(2, 1) {{1, "Alkateb"}, {2, "Abulaeth"}, {3, "Alshaki"}}
Dim Data2(,) As String = New String(2, 1) {{1, "Suaud"}, {2, "AboLayla"}, {3, "Alwadi"}}
Dim s As Integer = 0
While s < Data.Length - 3
Dim row1 As DataGridViewRow = DirectCast(DataGridView1.Rows(0).Clone(), DataGridViewRow)
Dim row2 As DataGridViewRow = DirectCast(DataGridView2.Rows(0).Clone(), DataGridViewRow)
row1.Cells(0).Value = Data.GetValue(s, 0)
row1.Cells(1).Value = Data.GetValue(s, 1)
DataGridView1.Rows.Add(row1)
'
row2.Cells(0).Value = Data2.GetValue(s, 0)
row2.Cells(1).Value = Data2.GetValue(s, 1)
DataGridView2.Rows.Add(row2)
s += 1
End While
End Sub