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
Solved

Multiselection ListBox in VB.Net

Posted on 2010-09-15
8
389 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
  • 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
Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
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

Parsing a CSV file is a task that we are confronted with regularly, and although there are a vast number of means to do this, as a newbie, the field can be confusing and the tools can seem complex. A simple solution to parsing a customized CSV fi…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…
In a recent question (https://www.experts-exchange.com/questions/29004105/Run-AutoHotkey-script-directly-from-Notepad.html) here at Experts Exchange, a member asked how to run an AutoHotkey script (.AHK) directly from Notepad++ (aka NPP). This video…

808 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