[VB.NET] Form Splash Trasparente (VS2005)

[ladyBlu]

Salve a tutti

Allora, ho appena iniziato a vedere il .net... finalmente.
Ho la necessità di fare un form splash che appaia in dissolvenza per poi sparire allo stesso modo.
Sul form ho un timer e ho tentato un po' di strade senza però riuscire a trovare la struttura di codice corretta.
Mi si generano errori che non so capire.
Potreste darmi una mano, magari postandomi qualche riga di codice esplicativa?

Grazie a tutti

[biste]

Dovrebbe bastare nell'evento del timer incrementare la proprietà Opacity del form di 0.1 finché non è uguale a 1. E poi al contrario
Purtroppo noterai come la potenza del PC possa influire abbastanza su questi effetti.

Non so se avevi già provato questa strada, nel caso cerca di essere più precisa e cerchiamo di aiutarti

[ladyBlu]

Originariamente inviato da biste
Dovrebbe bastare nell'evento del timer incrementare la proprietà Opacity del form di 0.1 finché non è uguale a 1. E poi al contrario
Purtroppo noterai come la potenza del PC possa influire abbastanza su questi effetti.

Non so se avevi già provato questa strada, nel caso cerca di essere più precisa e cerchiamo di aiutarti

ciao biste

grazie per l'interessamento ma ho risolto.
il problema è che concepisco ancora alcuni eventi esattamente così come nel VB6 quindi ad esmpio impostavo su True l'enabled del timer all'interno del Form_Load. e per questo non funzionava.
Impostando da progettazione la proprietà del timer su True funziona tutto alla perfezione

grazie, ciao

[ladyBlu]

Posto la soluzione, nel caso qualcun'altro abbia lo stesso problema.

********************
Inseriamo 2 Timer nella form: Timer1 e Timer2.
Impostiamo la proprietà Enabled di Timer1 su True.
Poi scriviamo il codice:

Public Class Form1

    Private Sub Timer1_Tick(_
                ByVal sender As System.Object, _
                ByVal e As System.EventArgs) _
                Handles Timer1.Tick

        If Me.Opacity < 1 Then
            Me.Opacity = Me.Opacity + 0.1
        Else
            Timer1.Enabled = False
            Timer2.Enabled = True
        End If

    End Sub

    Private Sub Timer2_Tick(_
                ByVal sender As System.Object, _
                ByVal e As System.EventArgs) _
                Handles Timer2.Tick

        If Me.Opacity > 0.0 Then
            Me.Opacity = Me.Opacity - 0.1
        Else
            Me.Close()
        End If
    End Sub

End Class

[kentaromiura]

impostando prima opacity a 0