• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 817
  • Last Modified:

Loop through Indexes in Descending Order

I have 5 tabs (indexed at 0). Users select what options they want and then I remove the rest of the tabs from the end of the tabcontrol.  If they want to add a tab back they can do that also.
My problem is, I need to loop through the tabs in order to remove them.
Lets say a user has selected 4 items, 0 based, so I would need to remove 2 tabs.

As I loop through and remove the tabs, the last index is not longer available so I will get an error.
Is there a way to loop through the tabcount in descending order?

For Each i As Object In Me.lstChkSessions.CheckedItems
 
            s = Me.lstChkSessions.GetItemText(i).ToString
            ft.TabRacing.TabPages(c).Text = s
            Dim view As DataRowView = Me.lstChkSessions.CheckedItems(c)
            ft.TabRacing.TabPages(c).Tag = view.Item("SessionTypeID")
            c = c + 1
 
        Next i
 
        For p As Integer = c To ft.TabRacing.TabCount - 1
            ft.HideTab(ft.TabRacing.TabPages(p).Name)
        Next

Open in new window

0
Sheritlw
Asked:
Sheritlw
  • 3
1 Solution
 
JackOfPHCommented:
Try this code...
For p As Integer =  ft.TabRacing.TabCount - 1 to c step -1
            ft.HideTab(ft.TabRacing.TabPages(p).Name)
Next

Open in new window

0
 
SheritlwAuthor Commented:
Works great... Thanks
0
 
JackOfPHCommented:
Did it work?
0
 
JackOfPHCommented:
Glad I could help...
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: Microsoft Office 2010

This course will introduce you to the interfaces and features of Microsoft Office 2010 Word, Excel, PowerPoint, Outlook, and Access. You will learn about the features that are shared between all products in the Office suite, as well as the new features that are product specific.

  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now