[RESOLVED] Moving items up and down in a listbox

[Siddharth Rout]

Another way of doing it...

I don't have vb6 at the moment so I did it in Excel...

Sure can work with slight amendments...

Dim i As Long, TouchMeNot As Boolean, pos As Long, strTmp As String

Private Sub cmdUP_Click()
    pos = 0
    For i = 0 To ListBox1.ListCount - 1
        TouchMeNot = False
        If ListBox1.Selected(i) Then
            If i = pos Then TouchMeNot = True
            pos = pos + 1
            If TouchMeNot = False Then
                strTmp = ListBox1.List(i - 1)
                ListBox1.List(i - 1) = ListBox1.List(i)
                ListBox1.List(i) = strTmp
                ListBox1.ListIndex = i - 1
                ListBox1.Selected(i) = False
                ListBox1.Selected(i - 1) = True
            End If
        End If
    Next
End Sub
Private Sub cmdDN_Click()
    pos = ListBox1.ListCount - 1
    For i = ListBox1.ListCount - 1 To 0 Step -1
        TouchMeNot = False
        If ListBox1.Selected(i) Then
            If i = pos Then TouchMeNot = True
            pos = pos - 1
            If Not TouchMeNot Then
                strTmp = ListBox1.List(i + 1)
                ListBox1.List(i + 1) = ListBox1.List(i)
                ListBox1.List(i) = strTmp
                ListBox1.ListIndex = i + 1
                ListBox1.Selected(i) = False
                ListBox1.Selected(i + 1) = True
            End If
        End If
    Next
End Sub

Regarding the font the simplest way will be to use a picture like you suggested in post 1 or you could use Anibtn32.ocx to create animated button (I am not sure if vb6 supports it now. used to use it many years ago...)