StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
text
Body
copied!<p>First of all put the AllowDrop property of dgCourseStudent to True (it will accept the dragging events). I've presumed you're using DataSet or DataTable, here my example:</p> <pre><code> Dim downHitInfo As DataGridView.HitTestInfo = Nothing 'Used to keep trace of dragging info ''MouseDown used to know is a DragDrop event is required Private Sub dgRegister_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dgRegister.MouseDown Dim view As DataGridView = CType(sender, DataGridView) Dim hitInfo As DataGridView.HitTestInfo = view.HitTest(e.X, e.Y) If Not Control.ModifierKeys = Keys.None Then Exit Sub End If If e.Button = MouseButtons.Left And hitInfo.RowIndex >= 0 Then downHitInfo = hitInfo End If End Sub ''MouseMove used to know what DataRow is being dragged. Private Sub dgRegister_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dgRegister.MouseMove Dim view As DataGridView = CType(sender, DataGridView) If e.Button = MouseButtons.Left And Not downHitInfo Is Nothing Then Dim dragSize As Size = SystemInformation.DragSize Dim DragRect As Rectangle = New Rectangle(New Point(Convert.ToInt32(downHitInfo.ColumnX - dragSize.Width / 2), _ Convert.ToInt32(downHitInfo.RowY - dragSize.Height / 2)), dragSize) If Not DragRect.Contains(New Point(e.X, e.Y)) Then 'Extract the DataRow Dim gridRowView As DataGridViewRow = DirectCast(view.Rows(downHitInfo.RowIndex), DataGridViewRow) Dim rowView As DataRowView = DirectCast(gridRowView.DataBoundItem, DataRowView) 'Raise the DragDrop with the extracted DataRow view.DoDragDrop(rowView.Row, DragDropEffects.Move) downHitInfo = Nothing End If End If End Sub '' For mouse cursor Private Sub dgCourseStudent_DragOver(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles dgCourseStudent.DragOver e.Effect = DragDropEffects.Move End Sub ''The core of draggin procedure Private Sub dgCourseStudent_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles dgCourseStudent.DragDrop 'Retreive the dragged DataRow Dim draggedRow As DataRow = CType(e.Data.GetData(GetType(DataRow)), DataRow) '' '' Put your code here to insert the dragged row into dgCourseStudent grid End Sub </code></pre>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload