[علي بنيان]

السلام عليكم 

هذا الموضوع استكمال لدورة الاكواد الشاملة 

'11-اغلاق الفورم بشكل تدريجي

PHP كود :

Public Class Form1

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

        Dim d As Double
        For d = 2 To 0 + 0.1 Step -0.1
            System.Threading.Thread.Sleep(30)
            Application.DoEvents()
            Me.Opacity = d
            Me.Refresh()
        Next d
        Me.Close()

    End Sub
End Class

'11-اغلاق الفورم بشكل تدريجي 


'12-اغلاق الفورم بشكل استعراضي

PHP كود :

Imports System.Threading.Thread

Public Class Form1

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

        Dim i As Integer
        For i = 1 To 50
            Me.Width = Me.Width - i
            Me.Height = Me.Height - i
            Sleep(15)
        Next i

    End Sub
End Class

'12-اغلاق الفورم بشكل استعراضي