How to import data in listbox by data that is inputted with inputbox

[erikaslt66]

Hello, I found hard to make my program to display the data that was stored by inputbox with listbox. To explain it better here is my code:

Public Class Form1
    Structure Userinfo
        Dim membernumber As Integer
        Dim memberforename As String
        Dim membersurname As String
        Dim memberfull As Boolean
        Dim memberowe As Integer
    End Structure

    Dim members(2) As Userinfo
    Dim row As Integer
    Dim chosen As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        For row = 0 To 2
            members(row).membernumber = InputBox("Row " & row & ": Enter membership number")
            members(row).membersurname = InputBox("Row " & row & ": Enter surname")
            members(row).memberforename = InputBox("Row " & row & ": Enter forename")
            members(row).memberfull = InputBox("Row " & row & ": Full member (0 for No, 1 for Yes)?")
            members(row).memberowe = InputBox("Row " & row & ": Enter amount owed(£)")
            lstbox.Items.Add(row)


        Next
        

    End Sub

    Private Sub lstbox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstbox.SelectedIndexChanged

        txtname.Text = members(row).memberforename + " " + members(row).membersurname
        txtnumber.Text = members(row).membernumber
        If members(row).memberfull Then txtfull.Text = "Y" Else txtfull.Text = "N"
        txtowe.Text = members(row).memberowe

    End Sub

End Class

The problem is that it displays only the last "row" when you click on the listbox and that is what I don't understand- how to make display selection on listbox.

[Luk3r]

With just a couple of tiny adjustments I was able to get your code to work.

Replace:

For row = 0 To 2

with

For Me.row = 0 To 2

On your lstbox_Selected IndexChanged, add:

row = lstbox.SelectedIndex.ToString

above all of your current code.

[erikaslt66]

Thank you it worked, i really appreciate that.