文章为本站乐博网( Lob.cn )成员小幺原创,可以自由转载和传播,转载请保留本站的作者和信息来源,谢谢!如果大家对.Net编程开发或者关于“.Net拖放与拖曳”的话题感兴趣,就一起来www.SmallBasic.cn（乐博网旗下技术社区） 或者加入.Net超级QQ群 40797788  一起讨论，把他做得更完善吧！

.Net拖放与拖曳的效果图：

一个TextBox控件   一个ListBox控件  ，现实将TextBox控件中的数据 拖放/拖曳进入ListBox中 

拖放过程：右键按住要拖放的数据 拖到ListBox中，自动完成ListBox的数据添加

代码如下：

Public Class Form1

    Private Sub LOB_TextBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown

        If e.Button = Windows.Forms.MouseButtons.Left Then

            With Me.TextBox1

                .SelectAll()
                .DoDragDrop(.SelectedText, DragDropEffects.Move)

            End With

        End If

    End Sub

    Private Sub LOB_ListBox1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop

        With Me.ListBox1  '更多.net文章教程，来自乐博网lob.cn

            .Items.Add(e.Data.GetData(DataFormats.Text).ToString())

        End With

    End Sub

    Private Sub LOB_ListBox1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
        e.Effect = DragDropEffects.Move

    End Sub

    Private Sub LOB_TextBox1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.MouseEnter

        With Me.TextBox1

            If .Text <> "" Then
                .SelectAll()
                .Cursor = Cursors.Arrow
            Else
                .Cursor = Cursors.IBeam

            End If
        End With

    End Sub

End Class

乐博网提示：

ListBox控件的AllowDrop属性要设置为True ，才可以接受用户拖到他上面的数据。

如图：