Visual Basic Referencing .Net Objects In An Array

Question

I have a big list of objects in the Design view of Visual Basic 2010 that I need to change a bunch of properties for, so of course I tried using an array rather than taking 50-60 lines for a repetitive task. But there seems to be an issue referencing to the object and it seems to be just taking the information from it. I know that was a shitty explanation, but maybe you'll understand it when you see it.

    Dim objectsToClear As Array = _
    {lblDailyRoundTrip, lblDaysWorked, lblFillBoxes, lblMilesPerGallon, lblMonthlyInsurance, _
     lblMonthlyMaintenance, lblMonthlyParking, tbDailyRoundTrip, tbDaysWorked, tbMilesPerGallon, _
     tbMonthlyInsurance, tbMonthlyMaintenance, tbMonthlyParking}

        For i = LBound(objectsToClear) To UBound(objectsToClear)
        objectsToClear(i).Text = ""
        objectsToClear(i).Visible = False
    Next

Douglas Barbin · Accepted Answer · 2013-10-16 02:44:26Z

1

Try this instead:

Dim objectsToClear As Array = { lblDailyRoundTrip, 
                                lblDaysWorked, 
                                lblFillBoxes, 
                                lblMilesPerGallon, 
                                lblMonthlyInsurance, 
                                lblMonthlyMaintenance, 
                                lblMonthlyParking, 
                                tbDailyRoundTrip, 
                                tbDaysWorked, 
                                tbMilesPerGallon, 
                                tbMonthlyInsurance, 
                                tbMonthlyMaintenance, 
                                tbMonthlyParking }

For Each item In objectsToClear
    item.Text = String.Empty
    item.Visible = False
Next item

P.S. - you REALLY should have Option Strict On, and you should have strongly typed your array.

answered Oct 16, 2013 at 2:44

Douglas Barbin

3,6152 gold badges17 silver badges34 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

user2884618 Over a year ago

Thanks, this is for a VB class I just started and the book teaches Option Strict On and other such things in the later part of the book.

Karl Anderson · Accepted Answer · 2013-10-16 02:45:52Z

1

Since you seem to be interested in changing only .Text and .Visible properties, then you can just find the control by name, like this:

Dim returnValue As Control()
returnValue = Me.Controls.Find(objectsToClear(i), True)

Note: The True argument is for whether or not to search all children, which it sounds like you want to do. Read Control.ControlCollection.Find Method documentation for more information.

Now that you have a collection of controls that match the name you specified, loop through the controls in that collection and set the property values, like this:

For Each c As Control In returnValue
    c.Text = ""
    c.Visible = False
Next

answered Oct 16, 2013 at 2:45

Karl Anderson

34.9k12 gold badges69 silver badges83 bronze badges

1 Comment

Douglas Barbin Over a year ago

It's impossible to tell from the code he posted, but I think that the elements of objectsToClear might already be controls.

Collectives™ on Stack Overflow

Visual Basic Referencing .Net Objects In An Array

2 Answers 2

1 Comment

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related