Problem printing to a listbox from an array

[papa smerf]

'Here is some of the code I have so far.

Dim Contacts(25, 4) As String

This is where I add to the listbox

Private Sub btnAddToList_Cl ick(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles btnAddToList.Cl ick
Dim f, l As Integer
f = Len(txtFirstNam e.Text)
l = Len(txtLastName .Text)

'print to listbox in columns

lstList.Items.A dd(txtLastName. Text & Space(30 - l) & _
txtFirstName.Te xt & Space(26 - f) & _
txtPhone.Text)

'put into an array

Contacts(lstLis t.Items.Count - 1, 0) = txtLastName.Tex t
Contacts(lstLis t.Items.Count - 1, 1) = txtFirstName.Te xt
Contacts(lstLis t.Items.Count - 1, 2) = txtPhone.Text
Contacts(lstLis t.Items.Count - 1, 3) = txtCatagory.Tex t

'clear the fields for new values

txtFirstName.Te xt = ""
txtLastName.Tex t = ""
txtPhone.Text = ""
txtCatagory.Tex t = ""
txtFirstName.Fo cus()


Private Sub btnDisplay_Clic k(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles btnDisplay.Clic k

'clear the listbox
lstList.Items.C lear()

'try to print one item to the listbox from the array named Contacts

lstList.Items.A dd(Contacts(lst List.Items.Coun t - 1, 0))

'here is the error message I get???

An unhandled exception of type 'System.IndexOu tOfRangeExcepti on' occurred in ListProgram.exe
Additional information: Index was outside the bounds of the array.

What do I have wrong here???
Thanks
Gary

[BSOB]

wow.. took me a second. ok, i would need to see more code by ive got my hunch:
<problem>
lets say, perhaps, that your lstlist is empty, right, and you run your code. im assuming it would be empty to start since you are running your program to fill it

Contacts(lstLis t.Items.Count - 1, 0) = txtLastName.Tex t
Contacts(lstLis t.Items.Count - 1, 1) = txtFirstName.Te xt
Contacts(lstLis t.Items.Count - 1, 2) = txtPhone.Text
Contacts(lstLis t.Items.Count - 1, 3) = txtCatagory.Tex t

if your list is empty then it is trying to fill the array contacts(-1,0). array values are positive, i think you have it defined 0 to 24 and -1 is not in that.

<fix>
i think you should have made this +1 instead of -1. but again, i dont know your application.
a round about way to fix this is to have the program add a null list entry to the listbox when it starts.
and... i could just be completely wrong.
-bsob

[papa smerf]

This is where I am loading the array with values from LastName, FirstName, Phone and Catagory.

Contacts(lstLis t.Items.Count - 1, 0) = txtLastName.Tex t
Contacts(lstLis t.Items.Count - 1, 1) = txtFirstName.Te xt
Contacts(lstLis t.Items.Count - 1, 2) = txtPhone.Text
Contacts(lstLis t.Items.Count - 1, 3) = txtCatagory.Tex t

I tryed +1 instead of -1 same thing happened.

Thanks
Gary

[BSOB]

next suggestion, instead of a -1 or +1, leave out that bit entirely. Have contacts(lstlis t.items.count, 0) = txtlastname.tex t.
this will still give an error if lstlistitems.co unt is more than 24. and i dont know what your list has in it when you run this subroutine. check that out.