Subroutine inside class not firing

[Shameem Khan]

Hello,

I have 30 textboxes in my Userform (Userform1) which are named TB11,TB12,TB13..... etc and I am using a textbox_change Sub inside a class to change the setfocus to the next textbox after any character is entered in one textbox. But for some reason, my sub inside the class is not firing when I enter a character in the textbox. Can anyone help me find what I am doing wrong ?

Thanks in Advance !

Inside the Userform1:

Private Sub UserForm_Initialize()

    TB11.SetFocus
   
    Dim c As Control
    Dim tb As New Class1

    For Each c In Me.Controls
        If TypeName(c) = "TextBox" Then
            Set tb.txtbox = c
        End If
    Next c
End Sub

Inside Class1:

Public WithEvents txtbox As MSForms.TextBox

Public Sub txtbox_Change()
    Dim a As Integer
    If Len(txtbox) = 1 Then
        a = Right(txtbox.Name, 2) + 1
        UserForm1.Controls("TB" & a).SetFocus
    End If
End Sub

 

[RoryA]

Your class instance is declared within Userform_Initialize so as soon as that code is finished, your variable is destroyed. You're also assigning each textbox to the same class instance so you would only ever sink events for the last textbox assigned. You need a separate instance for each textbox, and a module level variable to hold all the class instances. For example:

Dim ClassCollection as Collection
Private Sub UserForm_Initialize()
Set ClassCollection = New Collection ' this will hold the instances of your class
TB11.SetFocus

Dim c As Control
Dim tb As Class1

For Each c In Me.Controls
If TypeName(c) = "TextBox" Then
set tb = New Class1
Set tb.txtbox = c
ClassCollection.Add tb
End If
Next c
End Sub

 

[Shameem Khan]

Yup. That worked great. Thanks.
Just out of curiosity, will an array work instead of collection ?

 

[RoryA]

Yes, you could use an array, or a dictionary, or anything that can contain multiple objects.

 

[Shameem Khan]

Great Thanks. @RoryA