هذا الكود يغلق الفورم بشكل منزلق لليمين ثم الأسفل

مهدي آسيهي · 18-09-2007, 13:32

Sub SlideWindow(frmSlide As Form , iSpeed As Integer)s
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()s
Call SlideWindow(Form1 , 250)s
End Sub

demon · 30-09-2007, 02:21

شكراً حبيبنا

كود جميل

اتمنا ان تقوم بوضع لغة البرمجة المستخدمة في عنوان الموضوع ليتمكن باقي الزوار من سرعة ايجاد الموضوع والاستفادة وشكراً

axmeg · 03-10-2007, 00:19