Controlar o foco quando o usuário passa por controles em um quadro ou controle de várias páginas em um formulário

O exemplo a seguir define a propriedade Cycle para um Frame e dois objetos Page em uma MultiPage.

To use this example, copy this sample code to the Script Editor of a form. To run the code you need to open the form so the Open event will activate. Verifique se o formulário contém:

  • Um Frame denominado Frame1.

  • Um MultiPage denominado MultiPage1 que contenha dois objetos denominados Page1 e Page2.

  • Two CommandButton controls named CommandButton1 and CommandButton2.

No formulário, Frame e em cada Page da MultiPage, coloque alguns controles para que você possa ver como Cycle afeta a ordem de tabulação de Frame e MultiPage. O usuário deve percorrer os controles para observar como Cycle afeta a ordem de tabulação. Pressionar CommandButton1 estende a ordem de tabulação para incluir controles nos objetos Frame e Page. Pressionar CommandButton2 limita a ordem de tabulação.

Dim Frame1 
Dim MultiPage1 
 
Sub Item_Open() 
 Set Frame1 = Item.GetInspector.ModifiedFormPages("P.2").Frame1 
 Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").MultiPage1 
 RestrictCycles 
End Sub 
 
Sub RestrictCycles() 
 'Limit tab order for the Frame and Page objects 
 Frame1.Cycle = 2 
 MultiPage1.Page1.Cycle = 2 
 MultiPage1.Page2.Cycle = 2 
End Sub 
Sub CommandButton1_Click() 
 'Extend tab order subforms (the Frame and Page objects) 
 Frame1.Cycle = 0 
 MultiPage1.Page1.Cycle = 0 
 MultiPage1.Page2.Cycle = 0 
End Sub 
 
Sub CommandButton2_Click() 
 RestrictCycles 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.