opacity فرم

[mostafaserial]

سلام
من میخوام فرم که لود شد خاصیت opacity فرم رو زیبا کنه
من این کدو نوشتم میخوام بعد از لود شدن و بسته شدن فرم 1 با تغییر در opacity فرم دیگه یواش یواش لود بشه


Public Class taligh



Private Sub taligh_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim i As Integer

Me.Opacity = 1

For i = 0 To 100
Me.Opacity -= 0.1
Application.DoEvents()
Next
pass.Visible = True
End Sub

Private Sub taligh_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Opacity = 0
Dim i As Integer
For i = 0 To 100
Me.Opacity += 0.01
Application.DoEvents()
System.Threading.Thread.Sleep(25)
Next
' Me.Close()

End Sub
End Class

[Saman_12]

این کد رو امتحان کنید ببینید چطوره :


Private Sub taligh_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
e.Cancel = True
Dim i As Single
Me.Opacity = 1
For i = 1 To 0 Step -0.00001
Me.Opacity = i
Next i
e.Cancel = False
End Sub

Private Sub taligh_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Single
Me.Opacity = 0
For i = 0 To 1 Step +0.000007
Me.Opacity = i
Application.DoEvents()
Next i
End Sub

[nasim bahari]

سلام..........

یه نگاهی به لینک زیر بنداز..............

http://www.barnamenevis.org/forum/showthread.php?t=42016

[mostafaserial]

ممنون
ولی من میخوام بعد از لود شدن یک فرم با افکت اون فرم بسته بشه و اتومات یه فرم دیگه باز بشه
لطفا کمک کنین

[Saman_12]

خوب یه تک خط رو تغییر بده درست میشه :


Private Sub taligh_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
e.Cancel = True
Dim i As Single
Me.Opacity = 1
For i = 1 To 0 Step -0.00001
Me.Opacity = i
Next i
Me.Hide()
Form2.Show()
End Sub

Private Sub taligh_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Single
Me.Opacity = 0
For i = 0 To 1 Step +0.000007
Me.Opacity = i
Application.DoEvents()
Next i
End Sub