We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
COURSE of the MONTH
13 days, 20 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
How can i remove all labels on the current form?
Posted on 2007-12-03
Hi experts
As the question title suggests i am trying to prgramatically remove all labels on the current form. My question is how to do this?
Probably an easy question but its urgent so 500 points up for grabs :-)
many thanks for your time
dr_dudd
As the question title suggests i am trying to prgramatically remove all labels on the current form. My question is how to do this?
Probably an easy question but its urgent so 500 points up for grabs :-)
many thanks for your time
dr_dudd
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
5-
3
-
3
- +2
13 Comments
thanks for the input cforant but i dont think you understood the question properly (or i didnt explain properly)
I have labels that are added at run time. the backend database changes and the labels are recreated but in order to save memory etc i remove the old labels first. i was doing this via
for x = 1 to 200
me.controls.remove(label(x
next
but this is quite slow and not very efficient.
I have labels that are added at run time. the backend database changes and the labels are recreated but in order to save memory etc i remove the old labels first. i was doing this via
for x = 1 to 200
me.controls.remove(label(x
next
but this is quite slow and not very efficient.
Just like this:
For Each ctrl As Control In Me.Controls
If TypeOf ctrl Is Label Then
Me.Controls.Remove(ctrl)
End If
Next
MsgBox("Done")
For Each ctrl As Control In Me.Controls
If TypeOf ctrl Is Label Then
Me.Controls.Remove(ctrl)
End If
Next
MsgBox("Done")
Hi VBRocks
I have tried what you suggested but it seems to leave a few random controls behind....
very strange
I have tried what you suggested but it seems to leave a few random controls behind....
very strange
VBRocks
I haven't tested, but won't that come across the problem that you are trying to alter the collection while using its enumerator?
On general principles re collections, it will probably need something on the lines of
For i As Integer = Me.Controls.Count-1 to 0 Step -1
If TypeOf Me.Controls(i) Is Label Then
Me.Controls.Remove(i)
End If
Next
although I'm not sure if that precise syntax will work for controls. Nor am I sure it will be quicker than the present method.
Roger
I haven't tested, but won't that come across the problem that you are trying to alter the collection while using its enumerator?
On general principles re collections, it will probably need something on the lines of
For i As Integer = Me.Controls.Count-1 to 0 Step -1
If TypeOf Me.Controls(i) Is Label Then
Me.Controls.Remove(i)
End If
Next
although I'm not sure if that precise syntax will work for controls. Nor am I sure it will be quicker than the present method.
Roger
Cross-post. But I think what is happening is that, as you remove an earlier control, all subsequent controls get moved down one, and so get missed.
Roger
Roger
Sancler: Yes, you're right, generally an error is generated when you try to remove items from
collections when iterating through them using For Each...Next... However, it actually works in this
example here. :)
Also, I wouldn't just loop through all of the controls in the Controls collection without testing for the
TypeOf control, or you may end up with errors (it only takes 1 control). Additionally, testing for the
TypeOf control would be faster, because it wouldn't attempt to remove a control from the collection
if it wasn't a label.
collections when iterating through them using For Each...Next... However, it actually works in this
example here. :)
Also, I wouldn't just loop through all of the controls in the Controls collection without testing for the
TypeOf control, or you may end up with errors (it only takes 1 control). Additionally, testing for the
TypeOf control would be faster, because it wouldn't attempt to remove a control from the collection
if it wasn't a label.
Oh, Sancler... I just got what you said about one getting missed! I didn't catch that when I tested it.
So, here it is revised:
Dim i As Int16 = 0
Do Until i = Me.Controls.Count
If TypeOf Me.Controls(i) Is Label Then
Me.Controls.Remove(Me.Cont
Else
i += 1
End If
Loop
MsgBox("Done")
So, here it is revised:
Dim i As Int16 = 0
Do Until i = Me.Controls.Count
If TypeOf Me.Controls(i) Is Label Then
Me.Controls.Remove(Me.Cont
Else
i += 1
End If
Loop
MsgBox("Done")
Sancler, I looked at your example to make sure I didn't post the exact same thing as yours, and found:
Your example returns an error:
"Value of type 'Integer' cannot be converted to 'System.Windows.Forms.Cont
Your example returns an error:
"Value of type 'Integer' cannot be converted to 'System.Windows.Forms.Cont
As I said, I hadn't checked the syntax. I still haven't, but - on general principles - it would need .RemoveAt if an index number was being used.
But my point, which you've now dealt with, was simply that changing a collection whilst enumerating it can get things "our of synch"
Roger
But my point, which you've now dealt with, was simply that changing a collection whilst enumerating it can get things "our of synch"
Roger
Generally speaking...either enumerate the collection backwards (as Roger has shown), or add all the "matches" to a seperate collection and then iterate over that AFTERWARDS and remove the items.
Also, you would need a RECURSIVE search to catch all Labels if some are not contained directly by the Form itself (like in a Panel or GroupBox for instance).
Also, you would need a RECURSIVE search to catch all Labels if some are not contained directly by the Form itself (like in a Panel or GroupBox for instance).
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim matches As New List(Of Control)
CollectLabels(Me, matches)
For Each ctl As Control In matches
ctl.Dispose()
Next
End Sub
Private Sub CollectLabels(ByVal cnt As Control, ByVal matches As List(Of Control))
For Each ctl As Control In cnt.Controls
If TypeOf ctl Is Label Then
matches.Add(ctl)
ElseIf ctl.HasChildren Then
CollectLabels(ctl, matches)
End If
Next
End Sub
End Class
Featured Post
Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
This tutorial demonstrates one way to create an application that runs without any Forms but still has a GUI presence via an Icon in the System Tray.
The magic lies in Inheriting from the ApplicationContext Class and passing that to Application.Ru…
Introduction
As chip makers focus on adding processor cores over increasing clock speed, developers need to utilize the features of modern CPUs. One of the ways we can do this is by implementing parallel algorithms in our software.
One recent…
Michael from AdRem Software outlines event notifications and Automatic Corrective Actions in network monitoring. Automatic Corrective Actions are scripts, which can automatically run upon discovery of a certain undesirable condition in your network.…
In this brief tutorial Pawel from AdRem Software explains how you can quickly find out which services are running on your network, or what are the IP addresses of servers responsible for each service. Software used is freeware NetCrunch Tools (https…
Suggested Courses
Course of the Month13 days, 20 hours left to enroll
800 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.