Listview(small error)

[|2eM!x]

For the life of me..i cannot figure this out.

intItemCount = Form1.ListView.ListItems.Count
                  For a = 1 To intItemCount
                               WhoMsg = GetText(Form1.List1.List(a - 1))
                               Umsg = Split(WhoMsg, ":")
                               TuMsg = Umsg(0)
                    If InStr(Form1.ListView.ListItems.Item(a).Text, TuMsg) Then
                        Form1.ListView.ListItems.Item(1).ListSubItems.Item(a).Text = Form1.ListView.ListItems.Item(1).ListSubItems.Item(a).Text + 1
                    End If
                  Next a

This bit of code, checks to see the listview item contains the classname (which TuMsg is). It works the first time around (and adds 1) but after that this: Form1.ListView.ListItems.Item(1).ListSubItems.Item(a).Text: gives me an index out of bounds error (there are 2 items)

I hope you understood, and i hope this is real easy

[|2eM!x]

seriously..know one knows? Its simple, i know it is.

edit**figured it out.
had the a and the 1 backwards

[MartinLiss]

Have you tried Debugging?

[|2eM!x]

yes, and it would say index out of bounds. thats why i posted...

[Bregalad]

You are looping through the ListItems with the a variable,
but using a to select SubItems (Columns) in the loop:

Form1.ListView.ListItems.Item(1).ListSubItems.Item(a).Text

To loop through the main ListItems you need to use the "a"
in the ListItems part. If you have less columnheaders than you
have listitems the way your code is, it will crash.

Should it be:
Form1.ListView.ListItems.Item(a).ListSubItems.Item(1).Text
or
Form1.ListView.ListItems(a).Text
?

[MartinLiss]

yes, and it would say index out of bounds. thats why i posted...

Debugging is not simply running the program until you get an error message, but rather it is the process of setting breakpoints and/or watches to help determine why the error message is displayed.