out of bound error no 35600

[squrel]

The line itm.ListSubItems.Item(j).Bold = chkBold.Value is giving me error out of bound i think is bcoz of the size of j variable which is related to remark option.. but dont knw how to remove the error



Private Sub AddBoldItems()
Dim i, j As Integer
Dim itm, origItem As ListItem
lvBold.ListItems.Clear
lvBold.ColumnHeaders.Add 1, , "TermID", 1500
lvBold.ColumnHeaders.Add 2, , "TermName", 2000
lvBold.ColumnHeaders.Add 3, , "Remark", 3500
For i = 1 To lvTerms.ListItems.Count
If lvTerms.ListItems(i).Checked = True Then
If lvTerms.ListItems(i).ListSubItems.Count > 0 Then
For j = 1 To lvTerms.ListItems(i).ListSubItems.Count
Set origItem = lvTerms.ListItems(i)
Set itm = lvBold.ListItems.Add(, , origItem.Text)
itm.SubItems(1) = origItem.SubItems(1)
itm.Bold = True
itm.Bold = chkBold.Value
itm.ListSubItems.Item(j).Bold = chkBold.Value
lvBold.Refresh
Next
End If
End If
Next i
End Sub

[QVeen72]

Hi,

All ListView/ListBox/Combos have Items Index from 0 to Count-1
Change your Code this way:

For i = 0 To lvTerms.ListItems.Count -1
.
.
For j = 0 To lvTerms.ListItems(i).ListSubItems.Count -1


Regards
Veena

[squrel]

Hi...
I did the changes but getting the same error
what other changes i can do to make it work?

Hi,

All ListView/ListBox/Combos have Items Index from 0 to Count-1
Change your Code this way:

For i = 0 To lvTerms.ListItems.Count -1
.
.
For j = 0 To lvTerms.ListItems(i).ListSubItems.Count -1


Regards
Veena

[QVeen72]

Hi,

Change it to :

itm.ListSubItems.Item(1).Bold = chkBold.Value


Regards
Veena

[squrel]

Ok if i do this changes the problem is the remark bark is not adding to the lvBold... coz tht is Item(j) only... and this way my first TermId repeiting 2 times..
the main problem is with tht remark part of my Lvterms which i want to add to the lvbold and not adding... do u have any other solution?
thankx in advance

Hi,

Change it to :

itm.ListSubItems.Item(1).Bold = chkBold.Value


Regards
Veena

[QVeen72]

Hi,

With your logic, itm always has only one subItem. your code doesnot show adding other 2 subitem..
Either add remaining 2 SubItems and use J , or use only 1..

Regards
Veena

[squrel]

oK... Thanks alot for ur help... i have changed my code to this and i m getting all the part but in this line itm.SubItems(3) = origItem.SubItems(3) is telling me "invalid property value" .... wht else i can do?



Private Sub AddBoldItems()
Dim i, j As Integer
Dim itm, origItem As ListItem
lvBold.ListItems.Clear
lvBold.ColumnHeaders.Add 1, , "TermID", 1500
lvBold.ColumnHeaders.Add 2, , "TermName", 2000
lvBold.ColumnHeaders.Add 3, , "Remark", 3500
For i = 1 To lvTerms.ListItems.Count
If lvTerms.ListItems(i).Checked = True Then
If lvTerms.ListItems(i).ListSubItems.Count > 0 Then
For j = 1 To lvTerms.ListItems(i).ListSubItems.Count
Set origItem = lvTerms.ListItems(i)
Set itm = lvBold.ListItems.Add(, , origItem.Text)
itm.SubItems(1) = origItem.SubItems(1)
itm.SubItems(2) = origItem.SubItems(2)
itm.SubItems(3) = origItem.SubItems(3)
itm.Bold = True
itm.Bold = chkBold.Value
itm.ListSubItems.Item(3).Bold = chkBold.Value
lvBold.Refresh
Next
End If
End If
Next i
End Sub

[QVeen72]

Hi,

Try this code:

 
Private Sub AddBoldItems()
Dim i, j As Integer
Dim itm, origItem As ListItem
    lvBold.ListItems.Clear
    lvBold.ColumnHeaders.Add 1, , "TermID", 1500
    lvBold.ColumnHeaders.Add 2, , "TermName", 2000
    lvBold.ColumnHeaders.Add 3, , "Remark", 3500
    For i = 1 To lvTerms.ListItems.Count
        If lvTerms.ListItems(i).Checked = True Then
        If lvTerms.ListItems(i).ListSubItems.Count > 0 Then
            Set origItem = lvTerms.ListItems(i)
            Set itm = lvBold.ListItems.Add(, , origItem.Text)
            For j = 1 To lvTerms.ListItems(i).ListSubItems.Count -1
                itm.SubItems(j) = origItem.SubItems(j)
                itm.Bold = chkBold.Value
            Next
            itm.ListSubItems.Item(3).Bold = chkBold.Value
            lvBold.Refresh
        End If
     End If
     Next i
End Sub

Regards
Veena

[squrel]

Thanks u very much ...