for each control in me.controls

Question

1.00/5 (1 vote)

See more:

Hi For All
I Want Disable All TextBox in my form using for each command such as

VB

for each control ontrol in me.controls
    if control.gettype is gettype textbox then
         control.enable=false
    end if
next

But I have written mistake code please help me
thanks

Posted 1-Jan-12 0:48am

faravani

Updated 11-Aug-20 14:24pm

Mehdi Gholam

v2

Add a Solution

3 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

OriginalGriff · Answer 1 · 2012-01-01T00:59:00

Solution 1

Try:

VB

For Each c As Control In Controls
    Dim t As TextBox = TryCast(c, TextBox)
    If t IsNot Nothing Then
        t.Enabled = False
    End If
Next

Posted 1-Jan-12 0:59am

OriginalGriff

Comments

Sergey Alexandrovich Kryukov 1-Jan-12 9:53am

Sure, a 5.
--SA

Abhinav S · Answer 2 · 2012-01-01T01:15:00

Solution 2

Try

VB

for each control ontrol in me.controls
    if ontrol.gettype is gettype textbox then
         ontrol.enable=false
    end if
next

Posted 1-Jan-12 1:15am

Abhinav S

codejet · Answer 3 · 2020-05-17T22:15:00

Solution 4

There you go

VB

For Each ctl As Control in Me.Controls 
 If TypeOf(ctl) Is TextBox Then 
    ctl.Enabled = False
 End If 
Next

Posted 17-May-20 22:15pm

codejet

Comments

Richard MacCutchan 18-May-20 6:59am

Copying other people's code from eight years ago is not really a valid solution.

codejet 19-May-20 10:43am

I came across that code in a training kit for MCSD (VB 6.0 ) when I was still a student in 2006. I am not claiming to be the originator of the code. So because I am not the originator of the code that disqualifies it as a valid solution?

Richard MacCutchan 19-May-20 10:59am

The question was solved eight years ago. And it looks like you just copied an existing solution and posted it as your own. But either way, please stick to current open questions, do not resurrect ones that are long inactive.