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
5 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
Active today
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
Make Your Microsoft Dynamics Investment Count & Drastically Decrease Training Time by Providing Intuitive Step-By-Step WalkThru Tutorials.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
1.0 - Introduction
Converting Visual Basic 6.0 (VB6) to Visual Basic 2008+ (VB.NET).
If ever there was a subject full of murkiness and bad decisions, it is this one! The first problem seems to be that people considering this task of converting…
Creating an analog clock UserControl seems fairly straight forward. It is, after all, essentially just a circle with several lines in it! Two common approaches for rendering an analog clock typically involve either manually calculating points with…
This video Micro Tutorial shows how to password-protect PDF files with free software. Many software products can do this, such as Adobe Acrobat (but not Adobe Reader), Nuance PaperPort, and Nuance Power PDF, but they are not free products. This vide…
- Document Management
- Printers and Scanners
- Document Imaging
- Software-Other
- Images and Photos
- Adobe Acrobat, Photos / Graphics Software, Security, OCR, *PDF
If you're a developer or IT admin, you’re probably tasked with managing multiple websites, servers, applications, and levels of security on a daily basis. While this can be extremely time consuming, it can also be frustrating when systems aren't wor…
Suggested Courses
Course of the Month5 days, 20 hours left to enroll
707 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.