Apertura form rallentata

di
Giuse
il
5 risposte
G
Giuse
Pochi posts
Iscritto da
ott, 2014
Messaggi:
8

Apertura form rallentata

Buongiorno a tutti,
qualcuno sa dirmi come faccio a rallentare l'apertura della form come se fosse a rallentatore? ho provato con l'evento timer ma non ci sono riuscito...
Private Sub Form_Open(Cancel As Integer)
X = 3000: X1 = 3000: Y = 3000: Y1 = 3000
Me.TimerInterval = 50000
End Sub
End Sub

Private Sub Form_Timer()
DoCmd.MoveSize X, Y, X1, Y1
X = X - 500: Y = Y - 500: X1 = X1 + 50: Y1 = Y1 + 50
If X <= 0 Then
Me.TimerInterval = 200
Else
Me.TimerInterval = 500
End If
End Sub
volevo farlo soltanto come effetto....

dov'è che sbaglio? spero che qualcuno riesca ad aiutarmi
A presto..Bye

5 Risposte

  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8747

    Re: Apertura form rallentata

    Premesso che reputo queste cose giochetti inutili...
    
Option Compare Database
Option Explicit

Private lngW            As Long
Private lngH            As Long
Private lngR            As Long
Private lngT            As Long
Private Const cSTEP     As Long = 500
Private Const cSPEED    As Integer = 100

Private Sub Form_Load()
    Me.TimerInterval = cSPEED
    lngW = 1000
    lngH = 1000
    lngT = 500
    lngR = 500
    DoCmd.MoveSize lngR, lngT, lngW, lngH
End Sub

Private Sub Form_Timer()
    If lngW < 5000 Then
        lngW = lngW + cSTEP
        lngH = lngH + cSTEP
        DoCmd.MoveSize lngR, lngT, lngW, lngH
    Else
        Me.TimerInterval = 0
    End If
End Sub
    Se la Form non è quadrata chiaramente devi tener conto del rapporto tra i lati e ricalcolare la costante di INCREMENTO su ALTEZZA e LARGHEZZA...
  • G
    Giuse
    Pochi posts
    Iscritto da
    ott, 2014
    Messaggi:
    8

    Re: Apertura form rallentata

    Buongiorno,
    grazie funziona tutto a meraviglia, è vero possono essere giochetti inutili però sono carini da vedere. Grazie ancora!
    a presto...
  • G
    Giuse
    Pochi posts
    Iscritto da
    ott, 2014
    Messaggi:
    8

    Re: Apertura form rallentata

    Buongiorno,
    volevo che la form si aprisse a tutto schermo, ho cambiato alcuni parametri ma riesco soltanto a variare i punti di apertura, ma non riesco a fare ingrandire la maschera sarebbe bello a tutto schermo è possibile? ho provato a mettere doCmd.maximize alla fine ma si apre di botto, quali sono i punti da cambiare? chiedo scusa per la banalità...Grazie
    a presto
  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8747

    Re: Apertura form rallentata

    Il 5000 nell'evento Timer è il valore limite o max. .. cambia quello.
    Per il resto se ti concentri sugli effetti speciali devi avere le idee chiare sul resto...
    Io dopo 25 anni queste cose nemmeno le guardo, se fossi l'utilizzatore mi darebbe fastidio l'effetto fade....
  • G
    Giuse
    Pochi posts
    Iscritto da
    ott, 2014
    Messaggi:
    8

    Re: Apertura form rallentata

    Buongiorno,
    ok sono riuscito ad ottenere quello che volevo andando a variare...per quanto rigurda il resto le idee sono chiare ho già creato e finito la prima parte del programma che voglio fare l'effetto fade era soltanto una chicca che non sono mai riuscito a fare...Grazie Grazie
    A presto....
Devi accedere o registrarti per scrivere nel forum
5 risposte