دوت نت : اغلاق الفورم بطريقة جميلة

[محمد]

http://www.vb4arab.com/vb/images/icons/icon14.gif اغلاق الفورم بطريقة جميلة بواسطة فجول بيسك دوت نت

أنشئ مشروعا جديدا من نوع Windows Forms ثم أضف زرا للفورم و في الحدث Click للزر أضف الكود التالي:


Dim iCount As Integer

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

Me.Close()


الكود ببساطة يقوم بزيادة شفافية الفورم في كل حلقة من حلقات التركيب For و يقوم بتعطيل المسار لمدة 50 جزء من الثانية لزيادة بطئ عملية اخفاء الفورم. ثم نغلق الفورم بعد انتهاء الحلقة.

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