Ajouter un effet de fondu a l'ouverture de nos fenêtres

bonjour,
aujourd'hui on se retrouve pour un tuto bien sympas : ajouter un effet de transparence sur nos form a l'ouverture et a la fermeture (je pense que j'utiliserai ça dans BenOS).
tous d'abord on va ajouter 2 timers. Configuration :

 Timer1 :
   Enable = true
   Interval = 10

 Timer2 :
   Enable = false
   Interval = 10

ensuite dans l'événement Tick du Timer1 on va mettre ce code :

Code:

Me.Opacity = Me.Opacity + 0.01
        If Me.Opacity = 1 Then
        Timer1.Stop()
        End If

et dans l'événement Tick du Timer2 on met ce code :

Code:

Me.Opacity = Me.Opacity - 0.01
        If Me.Opacity = 0 Then
            Me.Close()
        End If

ensuite on va mettre ce dernier code dans l'événement form_closed :

Code:

e.cancel()

compilez et tester
bon dev
cordialement

re,

Ahh tien ça me rappelle quelque chose

Le bon vieux temps de SZ 1.0 et 2011

http://lereparateurdepc.olympe.in/sz_tmp/Noel.zip

Cordialement,
Le réparateur de PC

re,
ah   nostalgie je m'en souviens comme si c'était hier
nan je PLAISANTE j'était pas la
cordialement

[EDIT DE POLIEN]merci de ne pas mettre de gros mot

re,

je me souvenait plus de ce programme lereparateurdepc
ouaip...nostalgie....  

re,

Je viens de le remettre pour l'occasion
date du 14/11/2010 20h47

Cordialement,
Le réparateur de PC

re,
désolé polien j'ai pas fait gaffe
je recommencerai pas   
cordialement

@fandeonepiece2: pas de problème , s'est juste que, bordel de [Censuré] de [Censuré] quand il n'est pas nécessaire d'utiliser un gros-mot, il ne faut donc pas en utiliser

Re,

à cette époque je crois que je n'avais même pas internet xD Ou alors je venais d'avoir

Superbe tuto

Cordialement,
Softwarezatorman