Remove steps in wizard

[Fit2Page]

What I am trying to do is to remove the steps which are above the clicked step as follows:

 

        Protected Sub RadWizard1_ActiveStepChanged(sender As Object, e As EventArgs)

            Dim a As Integer = TryCast(sender, RadWizard).ActiveStep.Index

            For Each rws As RadWizardStep In RadWizard1.WizardSteps

                'Response.Write(rws.Index)

                If rws.Index > a Then
                    rws.Enabled = False 'mark for remove, done because collection is altered
                End If
            Next

            For Each rwss As RadWizardStep In RadWizard1.WizardSteps
                If Not rwss.Enabled Then
                    RadWizard1.WizardSteps.Remove(rwss)
                End If
            Next

        End Sub

but there is always a step too much left, which is disabled though, but not removed...

 

Suggestions?

 

Marc

[Nencho]

Hello Marc,

I would suggest you to use a reverse loop, in order to iterate the Steps collection and dynamically remove the disabled steps. Please consider the below implementation:

For i As Integer = RadWizard1.WizardSteps.Count - 1 To 0 Step -1
         Dim rwss As RadWizardStep = RadWizard1.WizardSteps(i)
         If Not rwss.Enabled Then
             RadWizard1.WizardSteps.Remove(rwss)
         End If
     Next

Regards,
Nencho
Telerik