控件之间拖放操作(二)-----实现Treeview节点到DataGridView

要求：新建一From1窗体， From1窗体里放TreeView1和DataGridView1控件．

1>初始化数据

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            Dim mNode As TreeNode = Me.TreeView1.Nodes.Add("Fruits")
            mNode.Nodes.Add("Apple")
            mNode.Nodes.Add("Peach")
            mNode.Expand()
             Me.TreeView1.AllowDrop = True
             Me.DataGridView1.Columns.Add("code", "code")
            Me.DataGridView1.Columns.Add("name", "name")
            Me.DataGridView1.Columns.Add("age", "age")
            Me.DataGridView1.Columns.Add("Address", "Address")
            Me.DataGridView1.AllowDrop = True

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

2>TreeView1的MouseDown事件

Dim mTree As TreeView = sender
            Dim mNode As TreeNode = mTree.GetNodeAt(e.X, e.Y)
            mTree.SelectedNode = mNode
            If Not mNode Is Nothing Then
                mTree.DoDragDrop(mNode.Text, DragDropEffects.Copy)
            End If

3>DataGridView1的DragOver事件

Dim dgv As DataGridView = CType(sender, DataGridView)

            Dim p As Point = dgv.PointToClient(New Point(e.X, e.Y))

            Dim hti As DataGridView.HitTestInfo = dgv.HitTest(p.X, p.Y)

            If hti.Type = DataGridViewHitTestType.Cell Then
                e.Effect = DragDropEffects.Copy
            Else
                e.Effect = DragDropEffects.None
            End If

4>DataGridView2的DragDrop事件

If e.Data.GetDataPresent(GetType(System.String)) Then

                Dim str As String = CType(e.Data.GetData(GetType(System.String)), System.String)

                Dim dgv As DataGridView = DirectCast(sender, DataGridView)

                Dim p As Point = dgv.PointToClient(New Point(e.X, e.Y))

                Dim hti As DataGridView.HitTestInfo = dgv.HitTest(p.X, p.Y)

                If hti.Type = DataGridViewHitTestType.Cell Then
                    Dim cell As DataGridViewCell = dgv(hti.ColumnIndex, hti.RowIndex)
                    cell.Value = str
                End If

            End If

5>F5运行．通过.