Lock / Unlock all the Textboxes or Combo boxes on any Form

Category:

Forms and Controls

Type:

Snippets

Difficulty:

Beginning

Author:

Guganeshan.T (Guhan)

Version Compatibility: Visual Basic 6, Visual Basic 5

More information:

USAGE : ADD THIS IN A STANDARD MODULE & CALL FROM ANYWHERE BY : GUGANESHAN.T AACS, MCP PURPOSE : LOCKS/UNLOCKS ALL THE TEXTBOXES AND/OR COMBO BOXES EXAMPLE (In a Click event of a button): LockAllTextboxes Me, True - Will lock them LockAllTextboxes Me, False - Will Unlock them

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

Declarations:
<NONE>

Code:

'USAGE      : ADD THIS IN A STANDARD MODULE & CALL FROM ANYWHERE
'BY         : GUGANESHAN.T AACS, MCP

'PURPOSE    : LOCKS/UNLOCKS ALL THE TEXTBOXES AND/OR COMBO BOXES

'------------- EXAMPLE (In a Click event of a button): --------

'     LockAllTextboxes Me, True       -  Will lock textboxes
'     LockAllTextboxes Me, False      -  Will Unlock textboxes

'--------------------------------------------------------------

Public Sub LockAllTextboxes(ByVal frmForm As Form, _
                            ByVal blnLock As Boolean)
    
    'CONTROL VARIABLE
    Dim CTL As Control
    
    'LOOP THROUGH ALL THE CONTROL IN THE SPECIFIED FORM
    For Each CTL In frmForm.Controls
    
        'IF A CONTROL IS A TEXTBOX....
        If TypeOf CTL Is TextBox Then
            CTL.Locked = blnLock
        'IF IT IS A COMBO BOX
        
        ElseIf TypeOf CTL Is ComboBox Then
            'UNCOMMENT THE FOLLOWING LINE TO
            'LOCK/UNLOCK ALL COMBO BOXES ALSO -->
            
            'CTL.Locked = blnLock
        End If
        
    Next
    
End Sub