هنا

[spyman]

السلام عليكم

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

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

Public Class Form1

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

        Dim iCount As Integer
        For iCount = 90 To 10 Step -5
            Me.Location = New Point _
            (Me.Location.X + iCount, _
            Me.Location.Y + iCount)
            Me.Size = New Size(Me.Width - _
            iCount, Me.Height - iCount)
            Invalidate()
            Threading.Thread.Sleep(250)
        Next


    End Sub
End Class

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

'14-اظهار رسالة تأكيد واغلاقها بشكل تدريجي

Public Class Form1

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

        Dim close_form As String
        close_form = MsgBox("هل تريد إغلاق النافذة", _
        MessageBoxButtons.YesNo + MessageBoxIcon.Question, "خروج")
        If close_form = Windows.Forms.DialogResult.Yes Then
            MsgBox("سيتم إغلاق النافذة", MsgBoxStyle.Information)
            Dim iCount As Integer
            For iCount = 90 To 10 Step -3
                Me.Opacity = iCount / 100
                Me.Refresh()
                Threading.Thread.Sleep(50)
            Next
        Else
            e.Cancel = True
        End If


    End Sub
End Class

'14-اظهار رسالة تأكيد واغلاقها بشكل تدريجي