Search Tools Links Login

____A Listbox Rearrange With Mouse


This code allows you to move items in a list box just using the mouse. Every line commented. It is very simple. I have searched high and low for a code that JUST DOES THIS without any other jargon but couldn't find any so I made it and posted it. Please give me suggestions/comments. I have edited the code to allow multi select to be enabled due to someone asking for it.

Original Author: Michael Anderson

Code

'add a listbox (list1) and some values in it!!!!!
'Thats it!!!
Dim thing1 As String
'declaring the list item to move
Dim thing2 As String
' declaring the list item it is replacing
Dim ind As Integer
'declaring the index of the item you wish to move
Public Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then 'left mousebutton is down
thing1 = List1.Text
'the list item you are moving is set
ind = List1.ListIndex 'the index is set
End If
End Sub
Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If thing1 = List1.Text Then Exit Sub
'to stop the program from continuously doing
'all the functions
If thing1 = "" Then Exit Sub
'to stop the program from continuously doing
'all the functions
For i = 0 To List1.ListCount - 1
List1.Selected(i) = False
Next i
thing2 = List1.Text
'list item you are replacing is set
List1.List(ind) = thing2
'move the item above/below the item you
'are moving to its new location
ind = List1.ListIndex
'set the new list index of the item you are moving
List1.List(ind) = thing1
'put the item you are moving in its new location
End Sub

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 105 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.