منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اغلاق الفورم بطريقة جميلة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد .net (http://vb4arb.com/vb/forumdisplay.php?fid=117)
+---- الموضوع : اغلاق الفورم بطريقة جميلة (/showthread.php?tid=6322)



اغلاق الفورم بطريقة جميلة - RaggiTech - 17-10-12

كاتب الموضوع : Marwan

أنشئ مشروعا جديدا من نوع Windows Forms ثم أضف زرا للفورم و في الحدث Click للزر أضف الكود التالي:
كود :
[align=left]Dim iCount As Integer

For iCount = 90 To 10 Step -10
Me.Opacity = iCount / 100
Me.Refresh()
Threading.Thread.Sleep(50)
Next

Me.Close()
[/align]
الكود ببساطة يقوم بزيادة شفافية الفورم في كل حلقة من حلقات التركيب For و يقوم بتعطيل المسار لمدة 50 جزء من الثانية لزيادة بطئ عملية اخفاء الفورم. ثم نغلق الفورم بعد انتهاء الحلقة.

أو يمكنك كتابة الكود في الحدث FormClosing للفورم مع حذف السطر الأخير