الحالة
موضوع مغلق

El-Safwa

عضو ماسـي
#1
اضافة عدد 2 تايمر الى الفورم

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

تايمر 1 عند الفتح

Private Sub Timer1_Timer()
Me.Width = Me.Width + 300
If Me.Width > 4860 Then
Timer1.Enabled = False
End If

End Sub


تايمر 2 عند الاغلاق
Private Sub Timer2_Timer()
Me.Width = Me.Width - 300
If Me.Width < 420 Then
Timer1.Enabled = False
Unload Me
End If

End Sub


ولا ننسي ان نضع فى الفورم لود
هذا الكود

Timer1.Enabled = True

وان نضع فى زر الخروج الكود

Timer2.Enabled = True

وان يكون كلا التايمرين False
وانترفال اكثر من صفر طبعا
 

الحالة
موضوع مغلق

أعلى