Bonsoir, la raison de mon post est que je n'ai pas trouvé de sujet similaire sur le forum (ce qui m'étonne, peut-être car je n'ai pas utilise les bons mots clés).
Je souhaite simplement afficher une form lentement en jouant sur l'opacité, mais je ne sais pas pourquoi malgres differents essais sa ne fonctionne pas.

Je souhaitai utiliser un sub pour pouvoir appliquer l'affichage lent a n'importe quel form

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
' Code bouton
dim Essai as new threading.thread(addressof AfficherForm)
Essai.isbackground = true
Essai.start(form2)
 
'Code du sub
Sub AfficherForm(byval FormCible as form)
FormCible.showdialog()
FormCible.opacity = 0
While Not FormCible.opacity = 1
FormCible.opacity += 0.1
End while
End sub
Mais sa n'a pas fonctionner j'ai donc essayer de simplifier en codant directement dans le "load" d'un form


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
'dans le form load:
  Me.Opacity = 0
        While Not Me.Opacity = 1
            Me.Opacity += 0.1
            Threading.Thread.Sleep(100)
        End While
Sans succès non plus ...