Blank and Lock/Unlock Form Input Controls

Category:

Forms and Controls

Type:

Snippets

Difficulty:

Intermediate

Author:

Larry Greer

Version Compatibility: Visual Basic 5

More information:

These subroutines allow you to blank out (e.g., set all textboxes text's to "", uncheck all check boxes) or lock all controls on your form. You can edit the function to add or remove some of the controls it operates on, depending on your needs.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Public Sub BlankFields(oForm As Form)
'*** NOTE THE COMMENTED OUT CODE REFERS TO CONTROLS THAT
'*** REQUIRE YOU TO ADD THEM FROM THE PROJECT | COMPONENTS
'*** MENU.  IF YOU HAVE THESE CONTROLS IN YOUR PROJECT, YOU
'*** CAN COMMENT THEM BACK IN

Dim myControl As Control
    
    For Each myControl In oForm.Controls
        If TypeOf myControl Is CheckBox Then
            myControl.Value = vbUnchecked
        ElseIf TypeOf myControl Is TextBox Then
            myControl.Text = ""
        'ElseIf TypeOf myControl Is RichTextBox Then
        '    myControl.Text = ""
        
        End If
    Next
End Sub
Public Sub New_LockObjects(oForm As Form, bLock As Boolean)

'*** NOTE THE COMMENTED OUT CODE REFERS TO CONTROLS THAT
'*** REQUIRE YOU TO ADD THEM FROM THE PROJECT | COMPONENTS
'*** MENU.  IF YOU HAVE THESE CONTROLS IN YOUR PROJECT, YOU
'*** CAN COMMENT THEM BACK IN
   
    Dim myControl As Control
    
    If bLock = True Then        ' Save or Undo Called
        
        For Each myControl In oForm.Controls
            If TypeOf myControl Is CommandButton Then
                'Optional
                myControl.Enabled = False

ElseIf TypeOf myControl Is CheckBox Then
                myControl.Enabled = False
            ElseIf TypeOf myControl Is OptionButton Then
                myControl.Enabled = False
            ElseIf TypeOf myControl Is TextBox Then
                myControl.Locked = True
            'ElseIf TypeOf myControl Is DataCombo Then
             '   myControl.Locked = True
            ElseIf TypeOf myControl Is ComboBox Then
                myControl.Locked = True
            ElseIf TypeOf myControl Is UserControl Then
                If myControl.Name = "uctlbNavigation1" Then
                    oForm.uctlbNavigation1.EnableButtons
                End If
            End If
        Next

Else        ' Edit or Add Called
    
        For Each myControl In oForm.Controls
            If TypeOf myControl Is CommandButton Then
                'Optional
                myControl.Enabled = True

ElseIf TypeOf myControl Is CheckBox Then
                myControl.Enabled = True
            ElseIf TypeOf myControl Is OptionButton Then
                myControl.Enabled = True
            ElseIf TypeOf myControl Is TextBox Then
                myControl.Locked = False
            'ElseIf TypeOf myControl Is DataCombo Then
            '    myControl.Locked = False
            ElseIf TypeOf myControl Is ComboBox Then
                myControl.Locked = False
            End If
        Next
    
    End If

End Sub