afficher userform progressivement

[ARNAUD ZIRIPE]

bonsoir le forum
j'ai un userform que je voudrais afficher en plein écran, mais de façon progressive. C'est à dire en partant du centre de l'écran vers les bords. et je souhaiterais qu'il disparaisse de la ma même manière quand je le ferme.
je joints un UF d'éssai
merci pour votre aide.

 

[Eric C]

Re : afficher userform progressivement

Bonsoir & bonne nuit le forum
Re Arnaud

Je pense que tu vas trouver ton bonheur dans cette démo mise en ligne il y a longtemps (par je pense MichelXLD ou Mimi) et qui permet d'afficher l'USF de plusieurs façons différentes (un petit collector à mon avis).

P.S : si ton appli est à but pédagogique attention !!! : "éssai" ???

 

[Modeste geedee]

Re : afficher userform progressivement

Bonsour®

Private Sub UserForm_Activate()
X = ActiveWindow.Width / 2
Y = ActiveWindow.Height / 2
For i = 0 To 100
        Me.Width = 7.77 * i
        Me.Height = 4.53 * i
        DoEvents
        Me.Left = X - Me.Width / 2
        Me.Top = Y - Me.Height / 2
        Me.Repaint
Next
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
X = ActiveWindow.Width / 2
Y = ActiveWindow.Height / 2
For i = 100 To 0 Step -1
        Me.Width = 7.77 * i
        Me.Height = 4.53 * i
        DoEvents
        Me.Left = X - Me.Width / 2
        Me.Top = Y - Me.Height / 2
        Me.Repaint
Next
End Sub