منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ممكن كود اغلاق
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
محتاج كود عند اغلاق البرنامج يغلق من مدير المهام
وشكرا
هذا الكود ينهي الفورم بطريقة تلاشي والتعليمة End او me.close تقوم بأنهاء البرنامج من الذاكرة

PHP كود :
Private Sub Form1_FormClosing(ByVal sender As ObjectByVal e As System.Windows.Forms.FormClosingEventArgsHandles Me.FormClosing

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


 
   End Sub 
(10-01-20, 02:14 AM)علي بنيان كتب : [ -> ]هذا الكود ينهي الفورم بطريقة تلاشي والتعليمة End او me.close تقوم بأنهاء البرنامج من الذاكرة

PHP كود :
Private Sub Form1_FormClosing(ByVal sender As ObjectByVal e As System.Windows.Forms.FormClosingEventArgsHandles Me.FormClosing

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


 
   End Sub 
شكرا لك اخي علي