VB.Net程序设计：拖放数据操作-从ListBox中拖放数据到ListBox 中

最新推荐文章于 2024-02-27 12:52:02 发布

沐NeMo

最新推荐文章于 2024-02-27 12:52:02 发布

阅读量1.4k

点赞数

分类专栏： 2.VB.Net 文章标签： vb.net

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

版权

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

120 篇文章 4 订阅

订阅专栏

VB.Net程序设计：从ListBox中拖放数据到ListBox 中。（VS2005）

运行界面图：

从ListBox中拖放数据到ListBox 中

代码：

Public Class FrmList2ListClass FrmList2List
    Dim i As Integer

    Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub Form3_Load()Sub Form3_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        For i = 1 To 5
            Me.ListBox1.Items.Add(i)
        Next
        For i = 6 To 9
            Me.ListBox2.Items.Add(i)
        Next
        ListBox1.AllowDrop = True
        ListBox2.AllowDrop = True
    End Sub

    Private Sub ListBox1_MouseDown()Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            If ListBox1.SelectedItem IsNot Nothing Then
                Me.ListBox1.DoDragDrop(Me.ListBox1.SelectedItem.ToString, DragDropEffects.Copy)
                Me.Label1.Text = "启动拖放数据..." & Me.ListBox1.SelectedItem
            Else
                Me.Label1.Text = ""
            End If
        End If
    End Sub

    Private Sub ListBox2_DragEnter()Sub ListBox2_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox2.DragEnter
        If (e.Data.GetDataPresent(DataFormats.Text)) Then
            Me.Label1.Text = "有数据拖进来...托..."
            e.Effect = DragDropEffects.Copy
        Else
            e.Effect = DragDropEffects.None
            Me.Label1.Text = ""
        End If
    End Sub

    Private Sub ListBox2_DragDrop()Sub ListBox2_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox2.DragDrop
        If e.Data.GetDataPresent(DataFormats.Text) Then
            Me.ListBox2.Items.Add(e.Data.GetData(DataFormats.Text))
            Me.Label1.Text = "有数据放进来...放..."
        End If
    End Sub

    Private Sub Button2_Click()Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Label1.Text = ""
    End Sub

    Private Sub Button3_Click()Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.ListBox1.ClearSelected()
    End Sub

End Class