Hi there...

I have a form with lots of textboxes and i have to set readonly, all of them, true and false many times.

How can i make a Sub to do that? ...like this one to clear them.

Public Sub limpaTXT(ByVal nomeForm As System.Object)
        Dim MeuControl As Control

        For Each MeuControl In nomeForm.Controls
            If TypeOf MeuControl Is TextBox Then
                MeuControl.Text = ""
            End If
        Next MeuControl
End Sub

TKS
[email protected]

Hi

Public Sub TxtReadOnly(ByVal nomeForm As System.Object)
Dim MeuControl As Control

For Each MeuControl In nomeForm.Controls
If TypeOf MeuControl Is TextBox Then
MeuControl.Readonly = True
End If
Next MeuControl
End Sub

the tricky part is if you only need to set certain textboxes and not all of them at once, but you do this in a select case


Duncan

Hi again

i've already tried that.
It looked like the obvious solution but it get this error:

'Readonly' is not a member of 'System.Windows.Forms.Control'

    Public Sub TxtReadOnly(ByVal nomeForm As System.Object)
        Dim MeuControl As Control

        For Each MeuControl In nomeForm.Controls
            If TypeOf MeuControl Is TextBox Then
                MeuControl.Readonly = True <------- right here
            End If
        Next MeuControl
    End Sub

TKS

    For Each MeuControl In nomeForm.Controls
            If TypeOf MeuControl Is TextBox Then
                CType(MeuControl, TextBox).ReadOnly = True
            End If
        Next MeuControl
    End Sub

Brian

Doesn't work :(

MSN: [email protected]

Are the txtboxes in a container, such as a panel? If they are, make reference to the panel and loop through the controls property on that:

For each MeuControl In nomeForm.Panel1.Controls

Brian

Also, if you are getting an error, post that too.