[Rhez]

Hello HackForums
Gonna share something useful (I hope so)
Got tired of doing this one:

TextBox1.Text = ""
TextBox2.Text = ""

So someone help me and give me this simple snippet. I haven't found something like this here.

Code

Public Sub ResetSomething(frm As Form)

        Dim ctrl As Control
        For Each ctrl In frm.Controls

            'Clearing Textbox
            'Checking if the Control is a TextBox

            If TypeOf ctrl Is TextBox Then
                ctrl.Text = ""
                'All TextBox will be empty.
            End If

            'You can also reset a control inside a panel or groupbox
            If TypeOf ctrl Is GroupBox Then
                Dim cntrl As Control

                For Each cntrl In ctrl.Controls

                    If TypeOf cntrl Is TextBox Then
                        'Just doing the same things
                        cntrl.Text = ""
                    End If

                Next cntrl

            End If


        Next ctrl

    End Sub

I hope it helps you 👍

[+Haze]

Code

frm.Controls.OfType(Of TextBox)().ToList().ForEach(Sub(txt) txt.Text.Clear())

Or

Code

For Each txt As TextBox In frm.Controls.OfType(Of TextBox)()
      txt.Text.Clear()
Next

[LordCoder]

No, it's not useful. It won't be useful for nobody.

[Rhez]

No, it's not useful. It won't be useful for nobody.

Sorry for posting shit here 😭

[Hawk HF]

Sorry for posting shit here 😭

At the moment you're only setting the .Text property of textboxes that are directly in your form. If you have textboxes within a groupbox, this code won't work. Update your thread to include a recursive control search, meaning that it will update all controls of a certain type within the child containers as well.

Then it may be helpful to some.

[Odus]

Code

frm.Controls.OfType(Of TextBox)().ToList().ForEach(Sub(txt) txt.Text.Clear())

Calling ToList just to access its one liner ForEach? I don't even do this!

[+Haze]

Lool, Well Haze does that :)

Edit: What should I do instead? Cast?

[Odus]

Edit: What should I do instead? Cast?

I.. Oh boy. Leave it be. Your 2nd suggestion was perfectly fine.

[Nikey646]

Lool, Well Haze does that :)

Edit: What should I do instead? Cast?

Couldn't you do something along the lines of

Code

frm.Controls.OfType<TextBox>.Select(txt => txt.Text.Clear());

C# cuz you know, C# :> also Pseudo-Code

Edit: Nope nope nope, that won't work, Select is the wrong Linq statement what was it damnit...

[+Haze]

Couldn't you do something along the lines of

Code

frm.Controls.OfType<TextBox>.Select(txt => txt.Text.Clear());

C# cuz you know, C# :> also Pseudo-Code

Edit: Nope nope nope, that won't work, Select is the wrong Linq statement what was it damnit...

Finally you've upgraded to leet... what took you so long Nikey. And ask Odus, he's a Linq Guru

[Only3]

Array.ForEach(Me.Controls.OfType(Of TextBox).ToArray, Sub(t) t.Clear())
or
Array.ForEach(Me.Controls.Cast(Of TextBox).ToArray, Sub(t) t.Clear())

[Nikey646]

Finally you've upgraded to leet... what took you so long Nikey. And ask Odus, he's a Linq Guru

I've been leet for +1 month.

I recall there being a Linq statement that allows you to modify the source...but cannot remember damnit!

Atlas, i cannot find it and maybe of been thinking of Select, which is ultimately useless. My bad~