Como obter os efeitos de fade-in e out, transições, movimentações e etc, em formulários e seus controles no VB.NET, de forma nativa ou com uso de FrameWorks?
1 Resposta
Pode-ser manipular a propriedade Opacity
do formulário para obter esse efeito. Segue um exemplo:
Public Sub fadeIn()
For fade = 0.0 To 1.1 Step 0.1
Me.Opacity = fade
Me.Refresh()
Threading.Thread.Sleep(100)
Next
End Sub
Public Sub fadeOut()
For fade = 90 To 10 Step -10
Me.Opacity = fade / 100
Me.Refresh()
Threading.Thread.Sleep(50)
Next
End Sub
Nos eventos Form1_Load
e Form1_FormClosing
você faz:
Private Sub Form1_Load(sender As Object, e As EventArgs)
Handles MyBase.Load
fadeIn()
End Sub
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs)
Handles MyBase.FormClosing
fadeOut()
End Sub