Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Listbox selections

Posted on 2009-04-06
7
Medium Priority
?
133 Views
Last Modified: 2012-05-06
Hi, I have this listbox1 populated by a database and next to it another empty one (listbox2). Between the two, 2 buttons "-->" & "<--". You guessed it I need those buttons to add and remove items from listbox1 to listbox2. One they have been removed from listbox1, I do not want those values to still be in it, it's really to move items between the two listboxes. What would be code to achieve this ?
Thanks
0
Comment
Question by:GPSAddict
[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
  • 4
  • 3
7 Comments
 
LVL 20

Expert Comment

by:informaniac
ID: 24077215
Try this code.

Hope it's clear enough for u.
protected void btnAdd_Click(object sender, EventArgs e)
    {
        for (int i = lstFrom.Items.Count - 1; i >= 0; i--)
        {
            if (lstFrom.Items[i].Selected)
            {
                if (lstTo.Items.FindByValue(lstFrom.Items[i].Value) != null)
                {
                    continue;
                }
                else
                {
                    lstTo.Items.Add(lstFrom.Items[i]);
                    lstFrom.Items.Remove(lstFrom.Items[i]);
                }
            }
        }
 
    }
        
 
   
    protected void btnRemove_Click(object sender, EventArgs e)
    {
        try
        {
            for (int i = lstTo.Items.Count - 1; i >= 0; i--)
            {
                if (lstTo.Items[i].Selected)
                {
                    lstFrom.Items.Add(lstTo.Items[i]);
                    lstTo.Items.Remove(lstTo.Items[i]);
                }
            }
        }
        catch (Exception ex)
        {
            throw ex;
        }
    } 

Open in new window

0
 

Author Comment

by:GPSAddict
ID: 24077244
I'll try, the only problem is I don't know C, I use VB. Thanks
0
 
LVL 20

Accepted Solution

by:
informaniac earned 2000 total points
ID: 24077298
Well sorry for the same.
But In situations like this use this link

http://www.developerfusion.com/tools/convert/csharp-to-vb/
Protected Sub btnAdd_Click(ByVal sender As Object, ByVal e As EventArgs)
    For i As Integer = lstFrom.Items.Count - 1 To 0 Step -1
        If lstFrom.Items(i).Selected Then
            If lstTo.Items.FindByValue(lstFrom.Items(i).Value) IsNot Nothing Then
                Continue For
            Else
                lstTo.Items.Add(lstFrom.Items(i))
                lstFrom.Items.Remove(lstFrom.Items(i))
            End If
        End If
        
    Next
End Sub
 
 
 
Protected Sub btnRemove_Click(ByVal sender As Object, ByVal e As EventArgs)
    Try
        For i As Integer = lstTo.Items.Count - 1 To 0 Step -1
            If lstTo.Items(i).Selected Then
                lstFrom.Items.Add(lstTo.Items(i))
                lstTo.Items.Remove(lstTo.Items(i))
            End If
        Next
    Catch ex As Exception
        Throw ex
    End Try
End Sub

Open in new window

0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 

Author Comment

by:GPSAddict
ID: 24077418
Alright, let me try this at home and I'll get back to you asap. Thanks !
0
 

Author Comment

by:GPSAddict
ID: 24082922
2 things if I may, if you do a batch add, it adds the items but in reverse order ie. I select 1,2,3,4 but it adds in this order; 4,3,2,1. Also, when I remove an item from the 2nd listbox, how can I make it so that re-appears where it was before ? Thanks
0
 

Author Comment

by:GPSAddict
ID: 24139418
Hello ?
0
 
LVL 20

Assisted Solution

by:informaniac
informaniac earned 2000 total points
ID: 24144653
For the add in proper order, this code should work...

For making it to appear where it was, I don't think it might be possible. U'll have to try out some other trick...
Protected Sub btnAdd_Click(ByVal sender As Object, ByVal e As EventArgs)
    For i As Integer = 0 To lstFrom.Items.Count - 1
        If lstFrom.Items(i).Selected Then
            If lstTo.Items.FindByValue(lstFrom.Items(i).Value) IsNot Nothing Then
                Continue For
            Else
                lstTo.Items.Add(lstFrom.Items(i))
            End If
        End If
    Next
    
    
    For i As Integer = lstFrom.Items.Count - 1 To 0 Step -1
        If lstFrom.Items(i).Selected Then
            lstFrom.Items.Remove(lstFrom.Items(i))
        End If
        
        
    Next
End Sub

Open in new window

0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Question has a verified solution.

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

Lots of people ask this question on how to extend the “MembershipProvider” to make use of custom authentication like using existing database or make use of some other way of authentication. Many blogs show you how to extend the membership provider c…
International Data Corporation (IDC) prognosticates that before the current the year gets over disbursing on IT framework products to be sent in cloud environs will be $37.1B.
This is my first video review of Microsoft Bookings, I will be doing a part two with a bit more information, but wanted to get this out to you folks.
This tutorial will teach you the special effect of super speed similar to the fictional character Wally West aka "The Flash" After Shake : http://www.videocopilot.net/presets/after_shake/ All lightning effects with instructions : http://www.mediaf…

670 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