CodeItBetter Programming Another VB Programming Blog

'Controls - How to Enable/Disable all Controls in a frame

Option Explicit
 
'Insert a Frame and two Command Buttons to your form.
'Insert some controls to the frame.

Public Sub EnableFrame(InFrame As Frame, ByVal Flag As Boolean)
    Dim ctl As Control
    On Error Resume Next
    InFrame.Enabled = Flag
    For Each ctl In InFrame.Parent.Controls
        If (ctl.Container.Name = InFrame.Name) Then
            If (TypeOf ctl Is Frame) And Not (ctl.Name = InFrame.Name) Then
                EnableFrame ctl, Flag
            Else
                If Not (TypeOf ctl Is Menu) Then ctl.Enabled = Flag
            End If
        End If
    Next
End Sub
 
'How can I call this function:
Private Sub Command1_Click()
    'To disable all controls in a frame
    EnableFrame Frame1, False
End Sub
 
Private Sub Command2_Click()
    'To enable all controls in a frame
    EnableFrame Frame1, True
End Sub