[RESOLVED] [2005] Reorder items within a listbox via drag and drop

[BruceG]

Does anyone have an example of how to do this in VB.NET? There are plenty of examples out there for VB6, but I have not yet been able to find this for .NET.

[sparrow1]

Does anyone have an example of how to do this in VB.NET? There are plenty of examples out there for VB6, but I have not yet been able to find this for .NET.

Hi,

Here's a link how to do it in C#, perhaps you can change it to VB.Net.

http://psiman.wordpress.com/2006/12/...reablelistbox/

Wkr,

sparrow1

[BruceG]

Thanks, I appreciate the link, but that's a custom control and uses WPF. It is a little heavier than what I was looking for ...

[Rykler]

Here is an example I put together real quick it should help you out.

Private Sub ListBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
        ListBox1.Items.Insert(ListBox1.IndexFromPoint(ListBox1.PointToClient(New Point(e.X, e.Y))), e.Data.GetData(DataFormats.Text))
        ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
    End Sub

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

    Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
        ListBox1.DoDragDrop(ListBox1.Text, DragDropEffects.All)
    End Sub

[BruceG]

BEAUTIFUL!!! Thank you very much.