Partager via

Contrôler le focus lorsque l’utilisateur parcourt des contrôles dans un contrôle Frame ou MultiPage sur un formulaire

  • Article

L’exemple suivant définit la propriété Cycle pour un frame et deux objets Page dans un objet MultiPage.

Pour utiliser cet exemple, copiez-en le code vers l’éditeur de script d’un formulaire. Pour exécuter le code, vous devez ouvrir le formulaire afin d’activer l’événement Open. Vérifiez que le formulaire contient :

  • un Frame nommé Frame1 ;

  • un MultiPage nommé MultiPage1 qui contient deux objets nommés Page1 et Page2 ;

  • Deux contrôles CommandButton nommés CommandButton1 et CommandButton2.

Dans le formulaire, le Frame et chaque Page du contrôle MultiPage, placez deux contrôles afin d’observer la façon dont Cycle affecte l’ordre de tabulation du Frame et du MultiPage. L’utilisateur doit parcourir les contrôles avec la touche de tabulation afin d’observer l’impact de Cycle sur l’ordre de tabulation. Une pression sur CommandButton1 étend l’ordre de tabulation de façon à inclure les contrôles dans les objets Frame et Page. Une pression sur CommandButton2 restreint l’ordre de tabulation.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.