Partager via

Modifier l’ordre des pages et des onglets

  • Article

L’exemple suivant utilise la propriété Index pour modifier l’ordre des pages et des onglets dans un objet MultiPage et TabStrip. L'utilisateur sélectionne CommandButton1 pour placer la troisième page et onglet à l'avant de la multipage et du contrôle Onglet. L'utilisateur sélectionne CommandButton2 pour placer la page et l'onglet sélectionnés à l'arrière de la multipage et du contrôle Onglet.

Pour utiliser cet exemple, copiez-en le code vers l’éditeur de script d’un formulaire. Assurez-vous que le formulaire contient les éléments suivants :

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

  • un MultiPage nommé MultiPage1 ;

  • un TabStrip nommé TabStrip1 ;

Dim MyPageOrTab 
Dim MultiPage1 
Dim TabStrip1 
 
Sub CommandButton1_Click() 
'Move third page and tab to front of control 
 MultiPage1.page3.Index = 0 
 TabStrip1.Tab3.Index = 0 
End Sub 
 
Sub CommandButton2_Click() 
'Move selected page and tab to back of control 
 Set MyPageOrObject = MultiPage1.SelectedItem 
 MsgBox "MultiPage1.SelectedItem = " & MultiPage1.SelectedItem.Name 
 MyPageOrObject.Index = 4 
 
 Set MyPageOrObject = TabStrip1.SelectedItem 
 MsgBox "TabStrip1.SelectedItem = " & TabStrip1.SelectedItem.Caption 
 MyPageOrObject.Index = 4 
End Sub 
 
Sub Item_Open() 
 Set MultiPage1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("MultiPage1") 
 Set TabStrip1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("TabStrip1") 
 Set CommandButton1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("CommandButton1") 
 Set CommandButton2 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("CommandButton2") 
 
 MultiPage1.Width = 200 
 MultiPage1.Pages.Add 
 MultiPage1.Pages.Add 
 MultiPage1.Pages.Add 
 
 TabStrip1.Width = 200 
 TabStrip1.Tabs.Add 
 TabStrip1.Tabs.Add 
 TabStrip1.Tabs.Add 
 
 CommandButton1.Caption = "Move third page/tab to front" 
 CommandButton1.Width = 120 
 
 CommandButton2.Caption = "Move selected item to back" 
 CommandButton2.Width = 120 
 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.