Change pages of Multipage with Keyboard with focus on textbox control

[sujittalukde]

I have a Multipage control on a userform with 5 pages.
In Run time, if I press Ctrl+Tab, focus moves from Active page say page 1 to page 2 and so on.
Now the problem arises when I have a Textbox control on page1.
If on page1, there is a text box and the focus is on textbox, then pressing Ctrl+Tab moves the cursor with in the Textbox and does not change the pages og Multipage control.
Why? How to overcome this?

Regards

 

[Jaafar Tribak]

This should work for every page in every MultiPage in the UserForm regardless of how many multipages, pages or textboxes you have.


1- Add a new Class module to your Project and give it the name of CTextBox

Place this code in the Class module :

Option Explicit

Public WithEvents TxtBx As MSForms.TextBox

Private sMltPg As String

Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer


Public Property Let MltPg(ByVal sMltPgName As String)
    sMltPg = sMltPgName
End Property

Private Sub TxtBx_KeyDown _
(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    Dim oMltPg As MSForms.MultiPage
    
    Set oMltPg = CallByName(TxtBx.Parent.Parent.Parent, sMltPg, VbGet)
    If KeyCode = 9 And GetAsyncKeyState(VBA.vbKeyControl) <> 0 Then
        On Error Resume Next
        oMltPg.Value = oMltPg.Value + 1
        If Err.Number <> 0 Then oMltPg.Value = 0
    End If

End Sub

2- Place this code in the UserForm module :

Option Explicit

Private oCol As Collection

Private Sub UserForm_Initialize()

    Dim oTextBx As CTextBox
    Dim oTxtBx As MSForms.Control
    Dim oPg As MSForms.Control
    Dim oMltPg As MSForms.Control
    
    Set oCol = New Collection

    For Each oMltPg In Me.Controls
        If TypeOf oMltPg Is MSForms.MultiPage Then
            For Each oPg In oMltPg.Pages
                For Each oTxtBx In oPg.Controls
                    If TypeOf oTxtBx Is MSForms.TextBox Then
                        Set oTextBx = New CTextBox
                        oTextBx.MltPg = oTxtBx.Parent.Parent.Name
                        Set oTextBx.TxtBx = oTxtBx
                        oCol.Add oTextBx
                    End If
                Next
            Next
        End If
    Next
    
End Sub

Private Sub UserForm_Terminate()
    Set oCol = Nothing
End Sub

 

[sujittalukde]

Thank you for the reply. But this is a very complex procedure.

Is there any simple method of doing the same? or this is a limitation?

Regards