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 Sub3) 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. |