• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 401
  • Last Modified:

Listbox drag and drop

Hi, i'm fairly new to VB.
How would one drag an item in a listbox and drop it on another item in the same listbox, so that they would swop places?

Thanx for your help.
0
salocorgan
Asked:
salocorgan
  • 2
  • 2
1 Solution
 
MirkwoodCommented:
Here is a sample. Add a listbox to your form.
Copy this listbox and paste it again. Choose yes if he asks if your want to create a control array.

Option Explicit

Private Sub Form_Load()
    List1(0).OLEDragMode = 1
    List1(0).OLEDropMode = 1
    List1(1).OLEDragMode = 1
    List1(1).OLEDropMode = 1
    Dim i As Long
    For i = 1 To 10
        List1(i Mod 2).AddItem "item " & i
    Next
End Sub


Private Sub List1_OLEDragDrop(Index As Integer, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    List1(Index).AddItem List1(1 - Index).List(Val(Data.GetData(vbCFText)))
    List1(1 - Index).RemoveItem Val(Data.GetData(vbCFText))
End Sub

Private Sub List1_OLEStartDrag(Index As Integer, Data As DataObject, AllowedEffects As Long)
    Data.SetData List1(Index).ListIndex, vbCFText
    AllowedEffects = 2
End Sub

0
 
salocorganAuthor Commented:
Did i mention i'm using VB4?  OLEDrag_drop is unknown.....??
0
 
MirkwoodCommented:
Nope, you didn't mention that. So switch to VB5.
0
 
salocorganAuthor Commented:
Thanx for your help, appreciate it.
Is there no way to do this is Vb4??
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now