Locking down textboxes.

[cfd33]

hello all,

I use the following code to lock my textboxes:

Public Sub Lockdown()
    For Each tb In Me.Controls
        If TypeOf tb Is TextBox Then
            tb.Locked = True
            tb.BackColor = &H80FF80
        End If
    Next
    
    For Each dt In Me.Controls
        If TypeOf dt Is DTPicker Then
            dt.Enabled = False
        End If
    Next
End Sub

My problem is this: I have 3 frames in an array and only want 2 of the 3 frames textboxes to be locked.

I try different variations of the above code, but nothing works as of yet.

Thanks ahead of time.

[Siddharth Rout]

I have 3 frames in an array and only want 2 of the 3 frames textboxes to be locked.

What is the name of the frame and the name of the textboxes which you want to lock?

[cfd33]

the name of the frame is frame, but I have an array of the frame:

frame(0), frame(1), and frame(2)

I want to lock the textboxes in one shot and not have to list them individually.

[Siddharth Rout]

I haven't tried this as I don't have access to vb6 here in the office, so I am doing this from memory. please amend if there are any syntax errors

Sub Lockdown()
For i = 1 To 2 '2 because you want textboxes in 2 frames to be disabled
    For Each tb In Frame(i).Controls 'add or subtract from i as required
        If TypeOf tb Is TextBox Then
            tb.Locked = True
        End If
    Next
Next
End Sub

Hope this helps..

[cfd33]

koolsid,

Thanks for your reply, but unfortunately it is not working.

There is no .Controls for the frame(i)

[cfd33]

OK, this is what I have and it is working, kindof:

Public Sub Lockdown()
    For i = 1 To 2
    For Each tb In frame(i).Container
        If TypeOf tb Is TextBox Then
            tb.Locked = True
            tb.BackColor = &H80FF80
        End If
    Next
    Next i
    For Each dt In Me.Controls
        If TypeOf dt Is DTPicker Then
            dt.Enabled = False
        End If
    Next
End Sub

But the problem is that all of the textboxes backcolor is colored instead of just the 2 frames.

Anyone have any ideas?

[Siddharth Rout]

But the problem is that all of the textboxes backcolor is colored instead of just the 2 frames.

Is this true for the .locked property as well? what I mean is that all textboxes are getting locked? As per your code only the textboxes in frame(1) and frame(2) should get locked

[Hack]

I would suggest one further step, and that is the ability to toggle the lock

Private Sub Lockdown(blnLocked As Boolean)
Dim i As Long
Dim tb As Control
For i = 1 To 2 '2 because you want textboxes in 2 frames to be disabled
    For Each tb In Frame(i).Controls 'add or subtract from i as required
        If TypeOf tb Is TextBox Then
            tb.Locked = blnLocked
        End If
    Next
Next
End Sub

Private Sub cmdLock_Click()
Lockdown True
End Sub

Private Sub cmdUnLock_Click()
LockDown False
End If

[cfd33]

Hack,
Yes I have both Lockdown and UnLock in my program, but I like your way much better using the boolean.

koolsid,

Is this true for the .locked property as well? what I mean is that all textboxes are getting locked? As per your code only the textboxes in frame(1) and frame(2) should get locked

Ok, I have a total of 4 frames. 3 of the frames are in an array; they are named frame.

the 4th frame is named frame1.

The code above locks the textboxes in the 2 frames that I want, but the backcolor of all textboxes is colored and only the 2 frames textboxes should be colored.

[cfd33]

Ok, I just used a quick fix and I cant figure out how to do it otherwise.

I just added "txtLookUp.BackColor = vbWhite" at the end of the sub.

Thanks anyways.

The code looks like this now:

Public Sub Lockdown(blnLocked As Boolean)
 
    For Each tb In frame(0).Container
        If TypeOf tb Is TextBox Then
            tb.Locked = True
            tb.BackColor = &H80FF80
        End If
    Next
    
    
    For Each dt In Me.Controls
        If TypeOf dt Is DTPicker Then
            dt.Enabled = False
        End If
    Next
    
    txtLookUp.BackColor = vbWhite
End Sub

[Hack]

You aren't using the boolean variable that you are passing.

[cfd33]

Hack wrote:

You aren't using the boolean variable that you are passing.

Not sure what you mean Hack.

This is what I have with your code:

Public Sub Lockdown(blnLocked As Boolean)
 
    For Each tb In frame(0).Container
        If TypeOf tb Is TextBox Then
            tb.Locked = True
            tb.BackColor = &H80FF80
        End If
    Next
    
    
    For Each dt In Me.Controls
        If TypeOf dt Is DTPicker Then
            dt.Enabled = False
        End If
    Next
    
    txtLookUp.BackColor = vbWhite
End Sub

and this in the other subs:

Public Sub Locked()
    Lockdown True
End Sub
 
Public Sub UnlockTB()
    Lockdown False
End Sub

OK, now I have this and it seems to work fine:

Public Sub Lockdown(blnLocked As Boolean)
    If blnLocked = True Then
    
        For Each tb In frame(0).Container
            If TypeOf tb Is TextBox Then
                tb.Locked = True
                tb.BackColor = &H80FF80
            End If
        Next
    
        For Each dt In Me.Controls
            If TypeOf dt Is DTPicker Then
                dt.Enabled = False
            End If
        Next
        txtLookUp.BackColor = vbWhite
    Else
        For Each tb In frame(0).Container
            If TypeOf tb Is TextBox Then
                tb.Locked = False
                tb.BackColor = vbWhite
            End If
        Next
        
        For Each dt In Me.Controls
            If TypeOf dt Is DTPicker Then
                dt.Enabled = True
            End If
        Next
    End If
    
End Sub