Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4,VB5,VB6
Expertise: beginner
Aug 19, 2000

MoveListboxItem - Move an item of a ListBox to another position

' Move an item of a listbox to another index
'
' If FROMINDEX = -1 then it moves the current highlighted item

Sub MoveListboxItem(ctrl As ListBox, ByVal FromIndex As Long, _
    ByVal ToIndex As Long)
    Dim sText As String, lItemData As Long
    
    ' provide a default
    If FromIndex < 0 Then FromIndex = ctrl.ListIndex
    ' exit if argument not in range
    If ToIndex < 0 Or ToIndex > ctrl.ListCount - 1 Then Exit Sub
    
    With ctrl
        ' save text and data of the current item
        sText = .List(FromIndex)
        lItemData = .ItemData(FromIndex)
        ' remove the item
        .RemoveItem FromIndex
        ' add the item
        .AddItem sText, ToIndex
        .ItemData(.NewIndex) = lItemData
        ' select the new item
        .ListIndex = ToIndex
    End With
End Sub

Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date