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.
Comentários
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Enviar e exibir comentários de