VB.Net程序设计：拖放Datagridview到另外一个Datagridview基本操作

最新推荐文章于 2022-06-23 10:24:38 发布

沐NeMo

最新推荐文章于 2022-06-23 10:24:38 发布

阅读量1.2k

点赞数 1

分类专栏： 2.VB.Net 文章标签：拖放操作

本文链接：https://blog.csdn.net/linjimu/article/details/12164937

版权

2.VB.Net 专栏收录该内容

120 篇文章 4 订阅

订阅专栏

    Private Sub DvQurey_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DvQurey.MouseMove
        If (e.Button And Windows.Forms.MouseButtons.Left) = Windows.Forms.MouseButtons.Left Then
            Dim hitTest As DataGridView.HitTestInfo = Me.DvQurey.HitTest(e.X, e.Y)
            If hitTest.Type = DataGridViewHitTestType.Cell Then
                If Me.DvQurey.SelectedRows.Count > 0 Then
                    dragData = New DragDataObject(eDragType.MoveLotSelected, Me.DvQurey.SelectedRows)
                    Me.DvQurey.DoDragDrop(dragData, DragDropEffects.Copy)
                End If
            End If
        End If
    End Sub

    Private Sub DvSelected_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles DvSelected.DragEnter
        If e.Data.GetDataPresent(GetType(DragDataObject)) Then
            Dim drg As DragDataObject = e.Data.GetData(GetType(DragDataObject))
            If drg.DragType = eDragType.MoveLotSelected Then
                e.Effect = DragDropEffects.Copy
            End If
        End If
    End Sub

    Private Sub DvSelected_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles DvSelected.DragDrop
        If e.Data.GetDataPresent(GetType(DragDataObject)) Then
            Dim drg As DragDataObject = e.Data.GetData(GetType(DragDataObject))
            Dim nRow As DataGridViewRow
            Dim dRow As DataGridViewSelectedRowCollection
            If drg.DragType = eDragType.MoveLotSelected Then
                If tblShow.Rows.Count > 0 Then
                    dRow = CType(drg.Data, DataGridViewSelectedRowCollection)
                    For Each nRow In dRow
                        Me.tblSelected.ImportRow(tblShow.Rows(nRow.Index))
                    Next
                    Me.tblSelected.AcceptChanges()
                    Me.DvSelected.AutoResizeColumns()
                End If

            End If
        End If
    End Sub