?
Solved

Moving Listbox Items up and down the list.

Posted on 2008-09-29
5
Medium Priority
?
913 Views
Last Modified: 2012-05-05
Hi all.

I am working on two buttons(up/down) that moves the selected.items to a new index(item to the new position in the list) - with the following code it works right up until the value is -1 or greater than number of indexes in the list - obviously, so how do set parameters so it can't go lower than 0 and greater than the number of indexes in the list? So I am trying the IF statement which helps, but it does not stop the movement beyond the limits - which throws error of course. Thanks for any help.
Dim int As Integer = lsbTasks.SelectedIndex
        If int = lsbTasks.Items.Count Then
            btnSTDown.Enabled = False
        ElseIf int <> lsbTasks.Items.Count Then
            btnSTDown.Enabled = True
            Try
                int = lsbTasks.SelectedIndex + 1
                Dim item As String = lsbTasks.SelectedItem
                lsbTasks.Items.Remove(item)
                lsbTasks.Items.Insert(int, item)
                lsbTasks.SetSelected(int, True)
            Catch
            End Try
        End If

Open in new window

0
Comment
Question by:Hawkvalley1
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
5 Comments
 
LVL 23

Expert Comment

by:Christopher Kile
ID: 22601099
When lsbTasks.SelectedIndex < lsbTasks.Items.Count - 1, btnSTDown should be enabled.
When lsbTasks.SelectedIndex > 0, btnSTUp should be enabled.
Correct your code to do this.
0
 
LVL 86

Accepted Solution

by:
Mike Tomlinson earned 1000 total points
ID: 22601530
Right...I think these three routines should cover you nicely:
    Private Sub lsbTasks_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lsbTasks.SelectedIndexChanged
        Dim index As Integer = lsbTasks.SelectedIndex
        If index <> -1 Then
            btnSTUp.Enabled = (index > 0)
            btnSTDown.Enabled = (index < lsbTasks.Items.Count - 1)
        End If
    End Sub
 
    Private Sub btnSTUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSTUp.Click
        Dim index As Integer = lsbTasks.SelectedIndex
        If index > 0 Then
            Dim temp As String = lsbTasks.SelectedItem
            lsbTasks.Items.RemoveAt(index)
            lsbTasks.Items.Insert(index - 1, temp)
            lsbTasks.SelectedIndex = index - 1
        End If
    End Sub
 
    Private Sub btnSTDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSTDown.Click
        Dim index As Integer = lsbTasks.SelectedIndex
        If index <> -1 AndAlso index < lsbTasks.Items.Count - 1 Then
            Dim temp As String = lsbTasks.SelectedItem
            lsbTasks.Items.RemoveAt(index)
            lsbTasks.Items.Insert(index + 1, temp)
            lsbTasks.SelectedIndex = index + 1
        End If
    End Sub

Open in new window

0
 
LVL 9

Author Comment

by:Hawkvalley1
ID: 22601599
ok, this is what I have in the SelectedIndex_Changed event(1st part):
in the Button_Click event(2nd part):

It is working perfectly, thanks
'1st part
If lsbTasks.SelectedIndex < lsbTasks.Items.Count - 1 Then
            btnSTDown.Enabled = True
        Else
            btnSTDown.Enabled = False
        End If
        If lsbTasks.SelectedIndex > 0 Then
            btnSTUP.Enabled = True
        Else
            btnSTUP.Enabled = False
        End If
'2nd part
Dim int As Integer = lsbTasks.SelectedIndex + 1
        Dim item As String = lsbTasks.SelectedItem
        lsbTasks.Items.Remove(item)
        lsbTasks.Items.Insert(int, item)
        lsbTasks.SetSelected(int, True)

Open in new window

0
 
LVL 86

Expert Comment

by:Mike Tomlinson
ID: 22601650
Did you even look at my code?...   =)
0
 
LVL 9

Author Comment

by:Hawkvalley1
ID: 22601758
not til after I had already posted...

It is very well written, thanks...
0

Featured Post

Enroll in August's Course of the Month

August's CompTIA IT Fundamentals course includes 19 hours of basic computer principle modules and prepares you for the certification exam. It's free for Premium Members, Team Accounts, and Qualified Experts!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Article by: Kraeven
Introduction Remote Share is a simple remote sharing tool, enabling you to see, add and remove remote or local shares. The application is written in VB.NET targeting the .NET framework 2.0. The source code and the compiled programs have been in…
Introduction As chip makers focus on adding processor cores over increasing clock speed, developers need to utilize the features of modern CPUs.  One of the ways we can do this is by implementing parallel algorithms in our software.   One recent…
NetCrunch network monitor is a highly extensive platform for network monitoring and alert generation. In this video you'll see a live demo of NetCrunch with most notable features explained in a walk-through manner. You'll also get to know the philos…
In this video, Percona Solutions Engineer Barrett Chambers discusses some of the basic syntax differences between MySQL and MongoDB. To learn more check out our webinar on MongoDB administration for MySQL DBA: https://www.percona.com/resources/we…
Suggested Courses
Course of the Month14 days, 22 hours left to enroll

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question