منتديات المفكر البرمجي
 
الرئيسيةس .و .جبحـثالأعضاءالمجموعاتالتسجيلدخول
بحـث
 
 

نتائج البحث
 
Rechercher بحث متقدم
المواضيع الأخيرة
» الاعجاز العددي في القرآن الكريم
الأحد ديسمبر 14, 2008 10:17 am من طرف super-mohammad

» لعبة سباق مواتير
الجمعة ديسمبر 12, 2008 1:16 pm من طرف Admin

» لعبة البعوضة
الجمعة ديسمبر 12, 2008 1:00 pm من طرف Admin

» لعبة المسابقة الإسلامية للجوال
الجمعة ديسمبر 12, 2008 12:51 pm من طرف Admin

» برنامج لتحديد مدة المكالمة
الجمعة ديسمبر 12, 2008 12:45 pm من طرف Admin

» برنامج تسجيل الصوت الكامل بدون توت
الجمعة ديسمبر 12, 2008 12:42 pm من طرف Admin

» برنامج لإستعراض ملفات الأوفيس على الجوال
الجمعة ديسمبر 12, 2008 12:36 pm من طرف Admin

» برنامج أسماء الله الحسنى
الجمعة ديسمبر 12, 2008 12:30 pm من طرف Admin

» برنامج الخاشع
الجمعة ديسمبر 12, 2008 12:24 pm من طرف Admin

» برنامج القرآن الكريم والتفسير والترجمة ومسموع بصوت الشيخ علي الحذيفي
الجمعة ديسمبر 12, 2008 12:19 pm من طرف Admin

الإعلانات
 
 

شاطر | 
 

 فتح البرنامج بطريقة جميلة

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


المساهمات : 30
تاريخ التسجيل : 03/08/2008

مُساهمةموضوع: فتح البرنامج بطريقة جميلة   الخميس نوفمبر 27, 2008 2:29 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


منقول lol!
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://almofaker.watanearaby.com
 
فتح البرنامج بطريقة جميلة
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
 :: قسم الفيجوال بيسيك :: أكواد الفيجوال بيسيك 6-
انتقل الى: