Forms

3.119 Aprire una maschera partendo dal centro e poi espandenderla sino ad una dimensione voluta
  Lorenzo(pyx)

Per aprire una maschera partendo dal centro e poi espanderla sino ad una dimensione voluta, fare quanto segue:

1) Nel modulo di classe della maschera chi si vuole aprire come scritto sopra definire le seguenti variabili:
Public X&, X1&, Y&, Y1&
2) A fronte dell'evento "Su apertura" della maschera generare il seguente codice VBA:
Private Sub Form_Open(Cancel As Integer)
X = 3000: X1 = 3000: Y = 3000: Y1 = 3000
Me.TimerInterval = 50
End Sub
3) A fronte dell'evento "Su timer" della maschera generare il seguente codice VBA:
Private Sub Form_Timer()
DoCmd.MoveSize X, Y, X1, Y1
X = X - 50: Y = Y - 50: X1 = X1 + 50: Y1 = Y1 + 50
If X <= 0 Then
    Me.TimerInterval = 0
Else
    Me.TimerInterval = 50
End If
End Sub

Impostando opportunamente i valori delle variabili X, X1, Y e Y1 si determinerà le dimensionamento ed il posizionamento finali della maschera.

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.