كود فتح الفورم بشكل رائع

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

كود فتح الفورم بشكل رائع

مُساهمة من طرف أيمن الإبراهيم في الثلاثاء مارس 04, 2014 9:52 pm

اهلا وسهلا بكم في منتدى مصر التقني
--------------------------------------
بسم الله


الكود:
Sub Explode(form1 As Form)
form1.Width = 0
form1.Height = 0
form1.Show
For x = 0 To 5000 Step 1
form1.Width = x
form1.Height = x
With form1
.Left = (Screen.Width - .Width) / 2
.Top = (Screen.Height - .Height) / 2
End With
Next

End Sub
Private Sub Form_Load()
Explode Me
End Sub


======
نعدم بالمزيد بادعو لنا بالتوفيق
avatar
أيمن الإبراهيم
........
........

تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 397
التقيم : 0
الدولة : سوريا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كود فتح الفورم بشكل رائع

مُساهمة من طرف abo_alaa315 في الخميس أبريل 17, 2014 8:27 pm

بارك الله فيك يا برنس
avatar
abo_alaa315
.
.

تاريخ التسجيل : 17/04/2014
المساهمات : 1
النقاط : 1
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى