afficher userform progressivement

ARNAUD ZIRIPE · 19 Février 2015

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 · 19 Février 2015

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 · 19 Février 2015

Re : afficher userform progressivement

Bonsour®

VB:

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

Code:

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

afficher userform progressivement

ARNAUD ZIRIPE

XLDnaute Occasionnel

Pièces jointes

Eric C

XLDnaute Barbatruc

Pièces jointes

Modeste geedee

XLDnaute Barbatruc

Discussions similaires