Vb.net de form soldurma efekti

[tamerr89]

Vb.net de form soldurma efekti

form kapanırken fade away;



forma name ozelligi btnexit olan bir buton surukleyelip butonun click olayına dim d as double ile baslayan kodları ekleyelin



Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndexit.Click

Dim d As Double

For d = 1 To 0 + 0.2 Step -0.2

System.Threading.Thread.Sleep(50)

Application.DoEvents()

Me.Opacity = d

Me.Refresh()

Next d

Environment.Exit(0)

End Sub



form acılırken fade away;



form un load olayına



Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



Dim d As Double

For d = 0 To 1 - 0.1 Step +0.1

System.Threading.Thread.Sleep(50)

Application.DoEvents()

Me.Opacity = d

Me.Refresh()

Me.Opacity = 100

Next d

End Sub