Programically remove controls

[Merlin]

Hi,

My code below doesn't work does anyone have any pointers? All my controls
are programically added.

Dim i As Int16
For i = 0 To Me.Controls.Cou nt - 1
If Me.Controls(i). Name <> "TheOneIWantToK eep" Then
Me.Controls.Rem oveAt(i)
End If
Next

As the loop moves through the index I get an Index Is Out Of Range Error mid
way through.

Many thanks

[Herfried K. Wagner [MVP]]

Hello,

"Merlin" <je**@jg-tech.co.uk> schrieb:

My code below doesn't work does anyone have any
pointers? All my controls are programically added.

Dim i As Int16
For i = 0 To Me.Controls.Cou nt - 1
If Me.Controls(i). Name <> "TheOneIWantToK eep" Then
Me.Controls.Rem oveAt(i)
End If
Next

As the loop moves through the index I get an Index Is
Out Of Range Error mid way through.

The problem is that after removing a control from the Controls collection
there are fewer controls in this collection.

HTH,
Herfried K. Wagner
--
MVP · VB Classic, VB .NET
http://www.mvps.org/dotnet

[Armin Zingler]

"Merlin" <je**@jg-tech.co.uk> schrieb

Hi,

My code below doesn't work does anyone have any pointers? All my
controls are programically added.

Dim i As Int16
For i = 0 To Me.Controls.Cou nt - 1
If Me.Controls(i). Name <> "TheOneIWantToK eep" Then
Me.Controls.Rem oveAt(i)
End If
Next

As the loop moves through the index I get an Index Is Out Of Range
Error mid way through.

For i = Me.Controls.Cou nt - 1 To 0 step -1
--
Armin

[Cor]

nice

[Jeremy Cowles]

> Dim i As Int16

For i = 0 To Me.Controls.Cou nt - 1
If Me.Controls(i). Name <> "TheOneIWantToK eep" Then
Me.Controls.Rem oveAt(i)
End If
Next

As the loop moves through the index I get an Index Is Out Of Range Error mid way through.

Because the controls are being deleted as you traverse the collection, the
index sooner or later becomes invalid. The safest way is to use a For...Each
Loop:

Dim ThisCtrl as Control

For Each ThisCtrl in Me.Controls
Me.Controls.Rem ove( ThisCtrl )
Next

HTH

~
Jeremy

"Knowing others is intelligence;
knowing yourself is true wisdom.
Mastering others is strength;
mastering yourself is true power."
-Lao Tzu

[Cor]

For Each ThisCtrl in Me.Controls
if ThisCtrl.Name <> "TheOneIWantToK eep" Then Me.Controls.Rem ove(
ThisCtrl )
Next

But I find the one from Armin nice too.

[Jay B. Harlow [MVP - Outlook]]

Jeremy,

Because the controls are being deleted as you traverse the collection, the
index sooner or later becomes invalid. The safest way is to use a For...Each Loop: For each & removing items from a collection are normally incompatible!
Control.Control s happens to be an exception. Well partial exception, it
doesn't work correctly. If you start relying on this pattern, it will bite
you later! (Try it on a HashTable or ArrayList).

Try a for each loop on an inherited form, a number of controls are not
deleted! Some from the base, some from the derived form!

Try the follow, you will get an Invalid Operation Exception "Collection was
modified; enumeration operation may not execute".

Dim list As New ArrayList
list.Add("a")
list.Add("b")
list.Add("c")
Dim item as Object
For Each item In list
list.Remove(ite m)
Next

I would recommend Armin's method or a Do While loop, neither will receive
the above exception, and they both remove all the controls!

Do While Me.Controls.Cou nt <> 0
me.controls.Rem oveAt(0)
Loop

Of course Armin's may be more efficient as he is removing from the end of
the collection, while above I am removing from the beginning.

You could use:
me.controls.Rem oveAt(me.contro ls.count -1)

to remove from the end.

Of course we all missed the sure fire way to remove all the controls.

Me.Controls.Cle ar()

Hope this helps
Jay

"Jeremy Cowles" <jeremy.cowle s[nosp@m]asifl.com> wrote in message
news:L7******** ***********@twi ster.tampabay.r r.com...

Dim i As Int16
For i = 0 To Me.Controls.Cou nt - 1
If Me.Controls(i). Name <> "TheOneIWantToK eep" Then
Me.Controls.Rem oveAt(i)
End If
Next

As the loop moves through the index I get an Index Is Out Of Range Error

mid

way through.

Because the controls are being deleted as you traverse the collection, the
index sooner or later becomes invalid. The safest way is to use a

For...Each Loop:

Dim ThisCtrl as Control

For Each ThisCtrl in Me.Controls
Me.Controls.Rem ove( ThisCtrl )
Next

HTH

~
Jeremy

"Knowing others is intelligence;
knowing yourself is true wisdom.
Mastering others is strength;
mastering yourself is true power."
-Lao Tzu

[Jeremy Cowles]

> > Because the controls are being deleted as you traverse the collection,
the

index sooner or later becomes invalid. The safest way is to use a For...Each

Loop:

For each & removing items from a collection are normally incompatible!
Control.Control s happens to be an exception. Well partial exception, it
doesn't work correctly. If you start relying on this pattern, it will bite
you later! (Try it on a HashTable or ArrayList).

Try a for each loop on an inherited form, a number of controls are not
deleted! Some from the base, some from the derived form!

I _NEVER_ use visual inheritance (soooo buggy), I leave that up to the Beta
testers.

=)

Sorry about the oversight.

Of course we all missed the sure fire way to remove all the controls.
Me.Controls.Cle ar()

Nice (duh!).

~
Jeremy

[Cor]

Jay,
I was writing "I was looking at it and thought of methode like you, then
came the methode from Armin and I did think Yeah that's it in this case"
The problem is that one control has to stay and you don't know which.
Now I am in doubt, but have a while no time.
I am curious if the sollution is there when I come back, otherwise I go look
for it.
Cor

[Cor]

Jay, Armin, Jeremy, Merlin,
I did test all the methodes
I did it with a button on which event the procedure started.
The only one which works fine is the one from Armin.
The methode from Jay does absolute not work in this situation, but
because of his second answer he did know that of course already.
The methode from Jeremy throws an exeption
I did not test the second methode from Jay, I did only think about the
Treeview from Woody "Jjust remove it and add it, He kills you Jay :-)

Conclusion in my little test situation did only the methode from Armin works
fine.

Cor