هنا

[spyman]

السلام عليكم


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


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

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-الغاء وظيفة مفتاح الاغلاق

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-جعل الفورم دائما بالمقدمة

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-جعل الفورم دائما بالمقدمة