VB.NET

Multi Column List Boxes

Please support our VB.NET advertiser: Intel Parallel Studio Home

Thread Solved

•

Join Date: Jul 2008

Posts: 86

Reputation: jhonnyboy is an unknown quantity at this point

Solved Threads: 0

jhonnyboy

Offline

Junior Poster in Training

Multi Column List Boxes

Mar 31st, 2009

Hello everyone. I would like to learn how to make a multi column list box. I have set the multi column Boolean to true and set the width but i have yet to see the two columns. I only see one.

I currently have a .csv file and in the format of:

Id, Name

I would like the listbox to have a column for Ids and Names. How would i be able to achieve this?

Last edited by jhonnyboy; Mar 31st, 2009 at 2:16 pm.

•

Join Date: Aug 2008

Posts: 710

Reputation: Teme64 will become famous soon enough

Solved Threads: 114

Teme64

Offline

Master Poster

Re: Multi Column List Boxes

Mar 31st, 2009

Multi column listbox doesn't actually show items in multiple columns. It "wraps" items to the next column when you add them and the number of the items reaches the listbox's height.

If you want to show items in two columns, you'll have to use some grid control or listview control.

Here's an example with listview control

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
  '
  Dim TempStr(1) As String
  Dim TempNode As ListViewItem
 
  ' Show "hidden" text
  ListView1.ShowItemToolTips = True
  ' Set columnar mode
  ListView1.View = View.Details
  ' Set column header
  ListView1.Columns.Clear()
  ListView1.Columns.Add("UserID", 80)
  ListView1.Columns.Add("Name", 120)
  ' Remove previous items
  ListView1.Items.Clear()
  ' Add two items
  TempStr(0) = "1111"
  TempStr(1) = "Doe, John"
  TempNode = New ListViewItem(TempStr)
  ListView1.Items.Add(TempNode)
 
  TempStr(0) = "2222"
  TempStr(1) = "Doe, Jane"
  TempNode = New ListViewItem(TempStr)
  ListView1.Items.Add(TempNode)
 
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
  '
  Dim TempStr(1) As String
  Dim TempNode As ListViewItem

  ' Show "hidden" text
  ListView1.ShowItemToolTips = True
  ' Set columnar mode
  ListView1.View = View.Details
  ' Set column header
  ListView1.Columns.Clear()
  ListView1.Columns.Add("UserID", 80)
  ListView1.Columns.Add("Name", 120)
  ' Remove previous items
  ListView1.Items.Clear()
  ' Add two items
  TempStr(0) = "1111"
  TempStr(1) = "Doe, John"
  TempNode = New ListViewItem(TempStr)
  ListView1.Items.Add(TempNode)

  TempStr(0) = "2222"
  TempStr(1) = "Doe, Jane"
  TempNode = New ListViewItem(TempStr)
  ListView1.Items.Add(TempNode)

End Sub