在拖动vb.net时显示拖动的项

，可以通过使用DragDrop事件和DoDragDrop方法来实现。

首先，需要在拖动的控件上注册DragEnter、DragOver和DragDrop事件。DragEnter事件在拖动项进入控件的边界时触发，DragOver事件在拖动项在控件上移动时触发，DragDrop事件在拖动项释放到控件上时触发。

在DragEnter事件中，可以设置允许拖放的数据格式和效果。例如，可以设置允许拖放的数据格式为文本，并设置拖放效果为移动。

在DragOver事件中，可以根据鼠标位置来确定拖放的效果。例如，可以根据鼠标位置来判断是否在控件的特定区域内，从而改变拖放效果。

在DragDrop事件中，可以获取拖动的数据并进行相应的处理。例如，可以获取拖动的项的文本，并在控件中显示。

以下是一个示例代码：

Private Sub ListBox1_DragEnter(sender As Object, e As DragEventArgs) Handles ListBox1.DragEnter
    If e.Data.GetDataPresent(DataFormats.Text) Then
        e.Effect = DragDropEffects.Move
    Else
        e.Effect = DragDropEffects.None
    End If
End Sub

Private Sub ListBox1_DragOver(sender As Object, e As DragEventArgs) Handles ListBox1.DragOver
    Dim mousePosition As Point = ListBox1.PointToClient(New Point(e.X, e.Y))
    Dim index As Integer = ListBox1.IndexFromPoint(mousePosition)
    
    If index <> ListBox.NoMatches Then
        ListBox1.SelectedIndex = index
    End If
End Sub

Private Sub ListBox1_DragDrop(sender As Object, e As DragEventArgs) Handles ListBox1.DragDrop
    If e.Data.GetDataPresent(DataFormats.Text) Then
        Dim draggedItem As String = e.Data.GetData(DataFormats.Text)
        ListBox1.Items.Add(draggedItem)
    End If
End Sub

Private Sub ListBox2_MouseDown(sender As Object, e As MouseEventArgs) Handles ListBox2.MouseDown
    If ListBox2.SelectedItem IsNot Nothing Then
        ListBox2.DoDragDrop(ListBox2.SelectedItem.ToString(), DragDropEffects.Move)
    End If
End Sub

在上述示例中，ListBox1是接收拖放的控件，ListBox2是拖动的控件。当在ListBox2中按下鼠标并开始拖动时，会将选中的项的文本传递给ListBox1，并在ListBox1中显示。

这是一个简单的示例，你可以根据实际需求进行相应的修改和扩展。关于拖放的更多详细信息，你可以参考VB.NET的官方文档或相关教程。

腾讯云相关产品和产品介绍链接地址：