Usf + Wait

[apt]

Bonjour à tous,

Pour masquer/afficher une partie d'un UserForm, j'ai essayé de temporiser l'affichage par un wait (pause).

Mais parfois, j'ai remarqué qu'il y a une lenteur.

- Alors puis-je limiter la pause aux millisecondes au lieu des secondes ?

- Y a-t-il une autre solution plus meilleure que celle du WAIT ?

Merci.

 

[Dranreb]

Re : Usf + Wait

Bonsoir.
Vous vous embêteriez bien moins avec un contrôle Multipage à mon avis.
À +

 

[Fred0o]

Re : Usf + Wait

Bonsoir,

Pourquoi ne pas essayer avec ce code tout simplement ?

Private Sub Affecte_Frame()
    Me.Height = 85
    Frame1.Visible = OptionButton1
    Frame2.Visible = OptionButton2
    Frame3.Visible = OptionButton3
    Me.Height = 135
End Sub
Private Sub OptionButton1_Change()
    Call Affecte_Frame
End Sub

Private Sub OptionButton2_Change()
    Call Affecte_Frame
End Sub
Private Sub OptionButton3_Change()
    Call Affecte_Frame
End Sub
Private Sub UserForm_Initialize()
    Me.Height = 85
End Sub

A+

 

[apt]

Re : Usf + Wait

Bonjour Dranreb, Fred0o.

Je voulais seulement avoir un effet de Slide sur les parties affichées/masquées.

Est-ce possible en VBA ?

 

[Dranreb]

Re : Usf + Wait

Bonjour.
Voir propriété TransitionEffect et TransitionPeriod
À +

 

[apt]

Re : Usf + Wait

Bonsoir Dranreb,
J'ai développé un exemple en PJ, mais je n'ai rien trouvé sur ces deux propriétés.
TransitionEffect et TransitionPeriod