[علي بنيان]

السلام عليكم

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


'15- اغلاق الفورم بطريقة فلاشية

PHP كود :

Public Class Form1

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

        Dim d As Double
        For d = 1 To 0 + 0.1 Step -0.1
            System.Threading.Thread.Sleep(50)
            Application.DoEvents()
            Me.Opacity = d
            Me.Refresh()
        Next d
        Environment.Exit(0)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Timer1.Enabled = True

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If Me.Opacity = 1 Then
            Timer1.Enabled = False
            Timer1.Dispose()
            Exit Sub
        Else
            Me.Opacity += 0.1
            Me.Refresh()
        End If

    End Sub
End Class

'15- اغلاق الفورم بطريقة فلاشية 


'16-الغاء وظيفة مفتاح الاغلاق

PHP كود :

Public Class Form1

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

        e.Cancel = True


    End Sub
End Class

'16-الغاء وظيفة مفتاح الاغلاق 


'17-جعل الفورم دائما بالمقدمة

PHP كود :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.TopMost = True

    End Sub
End Class

'17-جعل الفورم دائما بالمقدمة