mostafaserial
جمعه 15 مرداد 1389, 18:24 عصر
سلام
من میخوام فرم که لود شد خاصیت 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
من میخوام فرم که لود شد خاصیت 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