How to get text into list box?

[kuliand]

Hi i have some text stored in varible which i want to put in a listbox but im having problems getting it to work.

here is my code so far

Public Class Form5

    Dim fname1 As String
    Dim sname1 As String
    Dim money1 As Decimal
    Dim fname2 As String
    Dim sname2 As String
    Dim money2 As Decimal
    Dim fname3 As String
    Dim sname3 As String
    Dim money3 As Decimal
    Dim fname4 As String
    Dim sname4 As String
    Dim money4 As Decimal
    Dim fname5 As String
    Dim sname5 As String
    Dim money5 As Decimal

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim RT As New System.IO.StreamReader("c:\Test.txt")

        fname1 = RT.ReadLine()
        sname1 = RT.ReadLine()
        money1 = RT.ReadLine()
        fname2 = RT.ReadLine()
        sname2 = RT.ReadLine()
        money2 = RT.ReadLine()
        fname3 = RT.ReadLine()
        sname3 = RT.ReadLine()
        money3 = RT.ReadLine()
        fname4 = RT.ReadLine()
        sname4 = RT.ReadLine()
        money4 = RT.ReadLine()
        fname5 = RT.ReadLine()
        sname5 = RT.ReadLine()
        money5 = RT.ReadLine()

        ListBox1.Text = fname1 + sname1

    End Sub
End Class

i am just trying to get fname1 and sname1 to show up first then i will put fname and sname2 on the next line in the listbox hopefully.

thanks

[.paul.]

ListBox1.items.add(fname1 & sname1)

[Atheist]

You'd add them to the listbox like this:

ListBox1.Items.Add(fname1 & fname2)

However may I suggest using a structure like this:

Private Structure YourStructure
    Dim fname As String
    Dim sname As String
    Dim money As Decimal
End Structure
 
Private instances(4) As YourStructure
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim RT As New System.IO.StreamReader("c:\Test.txt")
        For i As Integer = 0 to 4
            instances(i).fname = RT.ReadLine()
            instances(i).sname = RT.ReadLine()
            instances(i).money = Convert.ToDecimal(RT.ReadLine())
        Next i
        'Add to listbox here
End Sub

But of course, change 'YourStructure' and 'instances' to have better names.
Also, turn Option Strict ON.

[kuliand]

ok thanks,

One other problem i have just come across is that im using VB 2008 express and at uni we have VB 2005 express i have just been informed and having just downloaded express 2005 my 2008 project file won't open in 2005 so can i save my project as an older version some how? or is there way to convert it? if not looks like i will have to re-do it in 2005.

thanks

[Atheist]

I dont know if you'll be able to open it in 2005, but try going into the project properties and setting the target framework to 2.0, then save and try to open it in 2005. Though I think you'll have to re-do it in VB2005.

[kuliand]

I dont know if you'll be able to open it in 2005, but try going into the project properties and setting the target framework to 2.0, then save and try to open it in 2005. Though I think you'll have to re-do it in VB2005.

would i be able to just import all my forms from my 2008 project into a new project in 2005?

[Atheist]

You could try it.
If you cant, it wont be too much work just copying over the code and re-constructing the forms from scratch.

[kuliand]

ListBox1.items.add(fname1 & sname1)

Ok thanks for all the help i've got most of it working now. I did have to re do it in 2005 but i could copy the code and copy the objects from 2008 into 2005. Now i another simple question about the listbox how do i put a space between fname and sname when it appears in the listbox?

[Atheist]

Ok thanks for all the help i've got most of it working now. I did have to re do it in 2005 but i could copy the code and copy the objects from 2008 into 2005. Now i another simple question about the listbox how do i put a space between fname and sname when it appears in the listbox?

ListBox1.Items.Add(fname1 & " " & sname1)

[Shaggy Hiker]

ListBox1.Items.Add(fname1 & " " & fname2)

Looks kind of silly, doesn't it? Yet it's the easiest way to do it. Alternatively, you could append in the space character, which is a good idea if you are using more than one space, since you will have a hard time telling the difference between " " and " ".

[Shaggy Hiker]

Agh! Too slow.

[kuliand]

thanks both of you i was nearly this time but i was putting the quotes after the & symbol without the second & symbol.

[Shaggy Hiker]

That's one of my pet peeves about the language. If you write:

var=varA+varB

in both cases, VS will add correct spaces to result in

var = varA + varB

But not if you are using the & symbol, then you just get errors.