locking textboxes in one foul swoop.*RESOLVED*

[sparkash]

I have several textboxes within a frame and would like all of them to be locked. Rather than individually locking every textbox, is there a faster way?

ideally, i would prefer to disenable the whole frame, but the frame title is then greyed out.

Any help would be appreciated..

[Blobby]

Only way to do it would be to create each textbox as an element of an array so Text1(0), Text1(1), Text1(2) etc. Then you could use of For-Next loop to enable=false them.

[MartinLiss]

Or...

Dim ctl As Control
    
    For Each ctl In Controls
        If TypeOf ctl Is TextBox Then
            ctl.Locked = True
        End If
    Next

[MartinLiss]

I just noticed the "in a frame" part, so...

Dim ctl As Control
    
    For Each ctl In Controls
        If TypeOf ctl Is TextBox Then
            If ctl.Container.Name = Frame1 Then
                ctl.Locked = True
            End If
        End If
    Next

[Blobby]

You have far too much time on your hands Martin

[sparkash]

Once again, Thanks Martin.