[علي بنيان]

السلام عليكم 

هذا الموضوع استكمال لدورة الاكواد الشاملة (المواضيع السابقة)

'9-اغلاق الفورم بشكل مميز

PHP كود :

Public Class Form1

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        For Fade = 1.1 To 0.0 Step -0.1
            Me.Opacity = Fade
            Me.Refresh()
            Threading.Thread.Sleep(100)
        Next

    End Sub
End Class

'9-اغلاق الفورم بشكل مميز 


'10- اغلاق الفورم بصورة مميزة

PHP كود :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim iCount As Integer
        For iCount = 90 To 10 Step -10
            Me.Opacity = iCount / 100
            Me.Refresh()
            Threading.Thread.Sleep(50)
        Next
        Me.Close()


    End Sub
End Class

'10- اغلاق الفورم بصورة مميزة