Absolute beginner's question

I want to allow a user to reorder items in a listbox. For example, clicking on a button should move the currently selcted item in a listbox up one position in the list. It should remain selected so that the user can contiune clicking the button repeatedly.

Code:

---

Private Sub List1_Click()

Dim strTemp As String

  strTemp = List1.List(List1.ListIndex)

  List1.RemoveItem List1.ListIndex

  List1.AddItem strTemp,0

  List1.Selected(0) = True

End Sub

---

there's probably a faster way, but its late :)

lol. that code doesnt work.

Yawn... *streches a little...*

what part doesn't work? I'm not looking at VB right now...

with this code the selected item goes to the top of the list...

damn, I gotta learn to read better, I thought thats what he was looking for, my mistake...

Code:

---

Private Sub List1_Click()

Dim strTemp As String
Dim intPos As Integer

  strTemp = List1.List(List1.ListIndex)
  intPos = List1.ListIndex - 1

  List1.RemoveItem List1.ListIndex

  If intPos >= 0 Then
    List1.AddItem strTemp,intPos
    List1.Selected(intPos) = True
  Else
    List1.AddItem strTemp,0
    List1.Selected(0) = True
  End If

 

End Sub

---

does that work guys?

it works with one correction, sorry man, ... who am i to correct you...



Private Sub Command1_Click()
Dim strTemp As String
Dim intPos As Integer

strTemp = List1.List(List1.ListIndex)
intPos = List1.ListIndex - 1

List1.RemoveItem List1.ListIndex

If intPos >= 0 Then
List1.AddItem strTemp, intPos
List1.Selected(intPos) = True
Else
List1.AddItem strTemp, 0
List1.Selected(0) = True
End If
End Sub





use a command_click event instead of a list_click event or you will get a "Out of stack space" error

Quote:

---

Originally posted by zuperman
it works with one correction, sorry man, ... who am i to correct you...

---

I make mistakes like everybody. Thanks for pointing that out:D ;)

hehe

I like correcting him! It makes my lameass feel better about my self!:eek:

Just kidding!! hehe:p

:)

This Is With Up And Down Buttons With Slight Mods To The Code.

Private Sub cmdMove_Click(Index As Integer)
Dim strTemp As String
Dim intPos As Integer
Dim MySelectionChecked As Boolean
'
If MCListing(1).ListCount > 0 Then
strTemp = MCListing(1).List(MCListing(1).ListIndex)
intPos = MCListing(1).ListIndex
MySelectionChecked = False
If MCListing(1).Selected(intPos) = True Then
MySelectionChecked = True
End If
If Index = 0 Then
If intPos - 1 >= 0 Then
MCListing(1).RemoveItem MCListing(1).ListIndex
MCListing(1).AddItem strTemp, intPos - 1
MCListing(1).Selected(intPos - 1) = MySelectionChecked
End If
Else
If intPos + 1 < MCListing(1).ListCount Then
MCListing(1).RemoveItem MCListing(1).ListIndex
MCListing(1).AddItem strTemp, intPos + 1
MCListing(1).Selected(intPos + 1) = MySelectionChecked
End If
End If
End If
End Sub