窗体中有一个：ListView1，4个TextBox：TextBox1，TextBox2，TextBox3，TextBox4。一个ComboBox1。

注意设置4个：TextBox的：AllowDrop 为True。

运行界面图：

代码如下：

Public Class FrmSelTipS Private Sub Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>S_DragDrop(ByVal sender As Object,ByVal e As System.Windows.Forms.DragEventArgs) Handles Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.DragDrop,Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>2.DragDrop,Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>3.DragDrop,Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>4.DragDrop If e.Data.GetDataPresent(DataFormats.Text) Then '同一类控件触发同一类事件。事件：DragDrop If CType(sender,Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>).Name = Me.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.Name Then Me.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.Text = e.Data.GetData(DataFormats.Text) End If If CType(sender,Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>).Name = Me.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>2.Name Then Me.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>2.Text = e.Data.GetData(DataFormats.Text) End If If CType(sender,Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>).Name = Me.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>3.Name Then Me.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>3.Text = e.Data.GetData(DataFormats.Text) End If If CType(sender,Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>).Name = Me.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>4.Name Then Me.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>4.Text = e.Data.GetData(DataFormats.Text) End If End If End Sub Private Sub Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>S_DragEnter(ByVal sender As System.Object,ByVal e As System.Windows.Forms.DragEventArgs) Handles Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.DragEnter,Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>2.DragEnter,Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>3.DragEnter,Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>4.DragEnter '同一类控件触发同一类事件。事件：DragEnter e.Effect = DragDropEffects.Copy End Sub Private Sub ListView1_MouseDown(ByVal sender As System.Object,ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDown If Me.ListView1.SelectedItems.Count > 0 Then '启动拖放数据 Me.ListView1.DoDragDrop(Me.ListView1.SelectedItems(0).SubItems(0).Text,DragDropEffects.Copy) End If End Sub Private Sub FrmSelTipS_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load For i As Integer = 0 To 10 Me.ListView1.Items.Add(i.ToString,i.ToString,0) Next Me.Combo<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.Items.Add(View.LargeIcon) Me.Combo<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.Items.Add(View.Details) Me.Combo<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.Items.Add(View.SmallIcon) Me.Combo<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.Items.Add(View.List) Me.Combo<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.Items.Add(View.Tile) Me.Combo<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.SelectedIndex = 0 End Sub Private Sub Sub Combo<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1_SelectedIndexChanged(ByVal sender As Object,ByVal e As System.EventArgs) Handles Combo<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.SelectedIndexChanged Me.ListView1.View = Me.Combo<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.SelectedIndex End Sub End Class