All labels in form - Xtreme Visual Basic Talk

02-02-2006, 12:17 PM

SNWBRDR

Newcomer

Join Date: Jan 2006

Posts: 6

All labels in form

How can I clean up all labels/textboxes/pictureboxes in my form ?

I thougt this code would work but I seems it doesn't

Dim tTemp As TextBox

For Each tTemp In frmMain
tTemp.Text = ""
Next

Dim lTemp As Label

For Each lTemp In frmMain
lTemp.Text = ""
Next

Dim pTemp As PictureBox

For Each pTemp In frmMain
pTemp.Image = Nothing
Next

02-02-2006, 05:03 PM

drognir

Centurion

Join Date: Nov 2005

Posts: 105

You've got the idea right, but I'd do something like this:

Code:

Dim tTemp As Control
    For Each tTemp In Me.Controls
        If TypeOf tTemp Is TextBox Then
            tTemp.Text = ""

        ElseIf TypeOf tTemp Is Label Then
            tTemp.Text = ""
        End If

EDIT: Original code was in vb6, it's .net now. Also, picturebox part didn't work. Working to fix it now.

Last edited by drognir; 02-02-2006 at 05:14 PM.

02-03-2006, 10:14 AM

SNWBRDR

Newcomer

Join Date: Jan 2006

Posts: 6

It doesn't work as well ..

And part with the PicturesBoxes gives an error if I try it like this

Dim Temp As Control

For Each Temp In Me.Controls

If TypeOf Temp Is TextBox Or TypeOf Temp Is Label Then

Temp.Text = ""

'ElseIf TypeOf Temp Is PictureBox Then

' Temp.Image = Nothing

End If

Next

02-03-2006, 10:21 AM

Sonreir

Contributor

Join Date: Jul 2004

Location: Hampshire, England

Posts: 540

Image isn't a default property of System.Windows.Forms.Control.
Try this:

Code:

DirectCast(Temp, PictureBox).Image = Nothing

02-03-2006, 10:22 AM

anthony_n

Senior Contributor

Join Date: May 2005

Location: Manchester,England

Posts: 1,293

Code:

Dim Temp As Control
        Dim picBox As PictureBox

        For Each Temp In Me.Controls

            If TypeOf Temp Is TextBox Or TypeOf Temp Is Label Then

                Temp.Text = ""

            ElseIf TypeOf Temp Is PictureBox Then
                picBox = Temp
                picBox.Image = Nothing

            End If

        Next
    End Sub

you have to do a cast from the control to the pic box. here is the long way

__________________
ADO TUTOR

File IO Tutor

02-04-2006, 12:24 PM

SNWBRDR

Newcomer

Join Date: Jan 2006

Posts: 6

Thanx!

But when I actullay run it, it still doesn't work .. it doesn't do it but I get no errors as well.

02-04-2006, 03:27 PM

Iceplug

MetaCenturion

Retired Moderator
* Guru *

Join Date: Aug 2001

Location: California, USA

Posts: 16,583

What are you using now and what event is it in?

__________________

Iceplug, USN
Quadrill 1 Quadrill 2 (full) Quadrill 3 JumpCross .NET Website is ALIVE! - DL Platform Tour for VB.NET! Posting Guidelines Hint: Specify your location in your user cp profile if you want compassion!