10-04-16, 07:10 PM
كود يقوم بفتح الفورم بصورة بطيئة وجميله وايضآ سهل جدآ
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing For a As Short = 10 To 0 Step -1 System.Threading.Thread.Sleep(200) Application.DoEvents() Me.Opacity = a / 10 Next End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For a As Byte = 0 To 10 System.Threading.Thread.Sleep(200) Application.DoEvents() Me.Opacity = a / 10 Next End Sub
هذا
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing For a As Short = 10 To 0 Step -1 System.Threading.Thread.Sleep(200) Application.DoEvents() Me.Opacity = a / 10 Next End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For a As Byte = 0 To 10 System.Threading.Thread.Sleep(200) Application.DoEvents() Me.Opacity = a / 10 Next End Sub
هذا