منتدى عبدو الورفلي لبرامج لهكر وكل جديد من عالم برمجة
{مًرْحَباً بٍـكْ فِي مُنْـتَــدىٌ عَبْدُو اْلوِرْفَلِـي}

إِنْ لَمْ تَـكٌنْ مُسَـجِلْ فِـي مُـنْتَـدى فَـقُمْ بِـي تَسْجِيلْ ..!

{إٍنْ لَمْ تَكـُنْ ذِئْباً أَكَـلَتْـكَا ذٍئَـابْ .. وإِنْ لَمْ تَـكُنْ مِـنْ أَعْضَـائَنـاً فَساًرِعْ بٍيْ آْلإِنْـتِسَـابْ}

منتدى عبدو الورفلي لبرامج لهكر وكل جديد من عالم برمجة

http://werfaly.7olm.org
 
الرئيسيةاليوميةس .و .جبحـثالأعضاءالمجموعاتالتسجيلدخول

شاطر | 
 

  كود اغلاق فورم بشكل جميل

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
عبــدو_#$_الــورفلي
رئيس المنتدى
رئيس المنتدى
avatar

عدد المساهمات : 230
نقاط : 739
السٌّمعَة : 0
تاريخ التسجيل : 20/07/2012
العمر : 21
الموقع : libya

مُساهمةموضوع: كود اغلاق فورم بشكل جميل    الإثنين يوليو 23, 2012 3:18 pm



ضع الكود في الفورم






Sub SlideWindow(frmSlide As Form, iSpeed As Integer)
While frmSlide.Left + frmSlide.Width < Screen.Width
DoEvents
frmSlide.Left = frmSlide.Left + iSpeed
Wend
While frmSlide.Top - frmSlide.Height < Screen.Height
DoEvents
frmSlide.Top = frmSlide.Top + iSpeed
Wend
Unload frmSlide
End Sub
Private Sub Command1_Click()
Call SlideWindow(Form1, 100)
End Sub




اخوكم

عبدو الورفلي
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://werfaly.7olm.org
عبــدو_#$_الــورفلي
رئيس المنتدى
رئيس المنتدى
avatar

عدد المساهمات : 230
نقاط : 739
السٌّمعَة : 0
تاريخ التسجيل : 20/07/2012
العمر : 21
الموقع : libya

مُساهمةموضوع: رد: كود اغلاق فورم بشكل جميل    الإثنين يوليو 23, 2012 3:22 pm

الرجاء نسخ الكوود كامل لي يشتغل

وشكرا

الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://werfaly.7olm.org
 
كود اغلاق فورم بشكل جميل
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

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