Les boîtes de dialogue

Boîte de dialogue avec un contrôle Multipage (contrôle Multipage).Retour au menu Contrôles divers

        Quelques infos à propos du Contrôle Multipage
                Un contrôle Multipage est un contrôle contenant une collection d'un
                ou de plusieurs onglets.
                Chaque onglet est indépendant et l'on peut y déposer des contrôles.
                Un clic sur un onglet affiche la page considérée.
                Ex. Un contrôle Multipage avec 3 onglets équivaut à 3 formulaires superposés.
                Pour les contrôles Multipage, la propriété Value permet de déterminer
                ou de définir quel onglet est actif.
                On traite chaque onglet comme si c'était un formulaire standard.

Le code VBA associé ...

  

Private Sub UserForm_Activate()

   Me.MultiPage1.Value = 0

   CmdPrevious.Enabled = False

End Sub

Private Sub CmdFermer_Click()

   Me.Hide

End Sub

Private Sub MultiPage1_Click( ByVal Index As Long )

   Dim page_actuelle As Integer

   page_actuelle = MultiPage1.Value    ' - 1

   If page_actuelle = 0 Then

      CmdNext.Enabled = True

      CmdPrevious.Enabled = False

   End If

   If page_actuelle = 1 Then

      CmdNext.Enabled = True

      CmdPrevious.Enabled = True

   End If

   If page_actuelle = 2 Then

      CmdNext.Enabled = False

      CmdPrevious.Enabled = True

   End If

End Sub

Private Sub cmdValider_Click()

   Choix = Me.MultiPage1.Value

   Select Case Choix

   Case 0

      MsgBox "Vous êtes actuellement sur l'onglet Page" & Choix + 1 & "." & vbCr & " La valeur saisie dans la TextBox est: " & Me.txtPage1

   Case 1

      MsgBox "Vous êtes actuellement sur l'onglet Page" & Choix + 1 & "." & vbCr & " La valeur saisie dans la TextBox est: " & Me.txtpage2

   Case 2

      MsgBox "Vous êtes actuellement sur l'onglet Page" & Choix + 1 & "." & vbCr & " La valeur saisie dans la TextBox est: " & Me.txtpage3

   End Select

End Sub

Private Sub CmdPrevious_Click()

   Dim page_actuelle As Integer

   page_actuelle = MultiPage1.Value - 1

   MultiPage1.Value = page_actuelle

   If page_actuelle = 0 Then

      CmdPrevious.Enabled = False

   End If

   CmdNext.Enabled = True

End Sub

Private Sub CmdNext_Click()

   Dim page_actuelle As Integer

   page_actuelle = MultiPage1.Value + 1

   MultiPage1.Value = page_actuelle

   If page_actuelle = 2 Then

      CmdNext.Enabled = False

   End If

   CmdPrevious.Enabled = True

End Sub

     Télécharger le fichier complet de cet exemple.

Retour au début de document

Retour au début du document