VB.NET

adding items to listbox

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

•

Join Date: Oct 2007

Posts: 13

Reputation: Magnusz is an unknown quantity at this point

Solved Threads: 0

Magnusz

Offline

Newbie Poster

adding items to listbox

Nov 8th, 2007

Hey I'm trying to add information to a listbox, but when i try this code it doesn't display it properly.

Dim fmtstr As String = "{0,-10}{1,12}{2,14}"
With lstservices.Items
.Clear()
.Add(String.Format(fmtstr, "Room Rentals", "Half-Day", "Full-Day"))
.Add(String.Format(fmtstr, "1. Standard Rooming", "$32.00", "$65.00"))
.Add(String.Format(fmtstr, "2. Deluxe Rooming", "$72.00", "$144.00"))
End With

I want the results to show under each of the proper category, not all over the place.

Last edited by Magnusz; Nov 8th, 2007 at 11:59 am.

•

Join Date: Oct 2006

Posts: 169

Reputation: ptaylor965 is an unknown quantity at this point

Solved Threads: 19

ptaylor965 ptaylor965 is offline

Offline

Junior Poster

Re: adding items to listbox

Nov 8th, 2007

You will need to add the extra spaces to make up the gaps

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Dim fmtstr As String = "{0,-10}{1,12}{2,14}"
With lstservices.Items
    .Clear()
    .Add(String.Format(fmtstr, "Room Rentals        ", "Half-Day ", "Full-Day"))
    .Add(String.Format(fmtstr, "1. Standard Rooming ", "$32.00   ", "$65.00"))
    .Add(String.Format(fmtstr, "2. Deluxe Rooming   ", "$72.00   ", "$144.00"))
End With
Dim fmtstr As String = "{0,-10}{1,12}{2,14}"
With lstservices.Items
    .Clear()
    .Add(String.Format(fmtstr, "Room Rentals        ", "Half-Day ", "Full-Day"))
    .Add(String.Format(fmtstr, "1. Standard Rooming ", "$32.00   ", "$65.00"))
    .Add(String.Format(fmtstr, "2. Deluxe Rooming   ", "$72.00   ", "$144.00"))
End With

and change the font to "Courier New" as the letter 'i' and 'O' use the same amount of space in this font