[VB.NET] Animare il ridimensionamento di un Form

[URBANIP]

salve ragazzi,
volevo chiedere se in VB.NET è possibile dimensionare un form tramite il codice.
In pratica vorrei realizzare un form che si ingrandisca gradualmente quando viene aperto e che si chiuda gradualmente quando viene chiuso ( tipo finestre dell'iphone).
Grazie e buona domenica

[gibra]

Basta modificare Size e probabilmente anche Position, dipende dall'effetto che vuoi ottenere.

[URBANIP]

Grazie per aver risposto
ho provato ad inserire il seguente codice al caricamento del form ( load ).
ma il form viene visualizzato una sola volta pur avendolo inserito all'interno di un ciclo.
ho provato anche a rallentare l'operazione ma senza alcun effetto.

Dim contatore As Integer
        Dim tempo As Integer
        contatore = 0
        tempo = 0
        For contatore = 1 To 1000
            Me.Width += contatore

            For tempo = 1 To 1000000

            Next
            Me.Width += contatore

        Next

grazie

[Gugu]

All'evento load la form non è ancora visualizzata.. quando crea la grafica ha già il risultato che è l'ultimo passaggio del tuo ciclo.

devi mettere il loop in un timer con una risoluzione bassa (fai qualche prova) dove ogni ciclo di timer decrementi le misure del form.

ciao

[gibra]

Originariamente inviato da URBANIP
Grazie per aver risposto
ho provato ad inserire il seguente codice al caricamento del form ( load ).
ma il form viene visualizzato una sola volta pur avendolo inserito all'interno di un ciclo.

Certo che non funziona.
In sostanza, l'animazione la devi impostare dalla routine esterna che esegue l'apertura del form.

[URBANIP]

quindi sul form1 devo inserire il timer.
per favore puoi farmi un esempio di codice.
grazie.

[Gandalfrank]

Per ridurre il form fino alla minima dimensione puoi fare in questo modo:

Public Class Form1

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Do
            Me.Size = New Size(Me.Width - 1, Me.Height - 1)
        Loop Until Me.Height <= 34

    End Sub

End Class

Il valore 34 l'ho determinato empiricamente, vedi se può funzionare anche per te.

Ciao

[URBANIP]

grande...
funziona ma rimane aperto il form visualizzando solo i pulsanti ( ingrandisci, chiudi). e se faccio chiudo (X) si blocca.
come mai ??

[Gandalfrank]

Cambia il valore 34, prova con 35 o con 40.
Vedrai che funziona.

Ho ideato un nuovo modo, lo puoi trovare sul mio sito personale in questa pagina.

[URBANIP]

grazie funziona
se voglio fare la cosa la contrario in fase di apertura del form
basta che cambio la differenza in sommatoria.??