Solved

Multiselection ListBox in VB.Net

Posted on 2010-09-15
8
390 Views
Last Modified: 2012-05-10
VS 2005 / VB.Net / MS Access

I have approximately 60,000 records from table name - DRUGTABLE should be populated to Multiselection ListBox.

Issue is ..

In the Left Handside,I need the Multiselection ListBox
And
In the Right Hand Side, I need a box to load ..
When we select more than one item on left hand side .. each and every new item should go to new box ...

Maximum i should be allowed to select 15 items...

How should i do this ..
0
Comment
Question by:chokka
[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
  • 3
  • 3
  • 2
8 Comments
 
LVL 18

Expert Comment

by:John (Yiannis) Toutountzoglou
ID: 33684578
What is the box in the right hand...ListBox also?
0
 

Author Comment

by:chokka
ID: 33684680
In Right hand side . .. a normal textbox
0
 
LVL 17

Expert Comment

by:Zhaolai
ID: 33684918
Set your textbox's MultiLine property to True. Then do this:
 

        TextBox1.Text = ""
        For Each item As Object In ListBox1.SelectedItems
            TextBox1.Text &= item.ToString & vbNewLine
        Next

Open in new window

0
Salesforce Has Never Been Easier

Improve and reinforce salesforce training & adoption using WalkMe's digital adoption platform. Start saving on costly employee training by creating fast intuitive Walk-Thrus for Salesforce. Claim your Free Account Now

 
LVL 17

Expert Comment

by:Zhaolai
ID: 33685141
Oh, you want to limit 15 items in your textbox, do this:

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        TextBox1.Text = ""
        For Each item As Object In ListBox1.SelectedItems
            If TextBox1.Lines.Length = 15 Then
                Exit For
            End If
            TextBox1.Text &= item.ToString & vbNewLine
        Next
    End Sub

Open in new window

0
 

Author Comment

by:chokka
ID: 33686256
What i am expecting is that

In the below image .. you can see multi list box ...

Here each and every selected item should go to seperate textbox
ListBox.JPG
0
 
LVL 18

Expert Comment

by:John (Yiannis) Toutountzoglou
ID: 33686690
why don't you use a second ListBox..Then your Code would like this:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim item As Object
        Me.ListBox2.Items.Clear()
        item = ListBox1.SelectedItem()
        For Each item In Me.ListBox1.SelectedItems
            Me.ListBox2.Items.Add(item)
        Next
    End Sub

Open in new window

0
 
LVL 17

Accepted Solution

by:
Zhaolai earned 500 total points
ID: 33686726
Here it is:

    Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        TextBox1.Text = "You Selected:" & vbNewLine
        For Each item As Object In ListBox1.SelectedItems
            If TextBox1.Lines.Length = 15 Then
                Exit For
            End If
            TextBox1.Text &= item.ToString & vbNewLine
        Next
    End Sub

Open in new window

0
 
LVL 18

Expert Comment

by:John (Yiannis) Toutountzoglou
ID: 33686746
Yeap!!!
0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
VB.NET 2008 - SQL Timeout 9 51
Optimize the query 5 54
How to share My.Settings in multiple application instances ? 7 53
DataGridView / get bound table name? 8 36
I think the Typed DataTable and Typed DataSet are very good options when working with data, but I don't like auto-generated code. First, I create an Abstract Class for my DataTables Common Code.  This class Inherits from DataTable. Also, it can …
1.0 - Introduction Converting Visual Basic 6.0 (VB6) to Visual Basic 2008+ (VB.NET). If ever there was a subject full of murkiness and bad decisions, it is this one!   The first problem seems to be that people considering this task of converting…
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…
Exchange organizations may use the Journaling Agent of the Transport Service to archive messages going through Exchange. However, if the Transport Service is integrated with some email content management application (such as an antispam), the admini…

733 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