السلام عليكم جميعاً
عندي image1 أريد أن يزيد مقدار خاصية left له بقدار المتغير X حيث X = X + 100
وهذا هو الكود :
Private Sub Timer1_Timer() Static X As Integer X = X + 100 Image1.Left = X If Image1.Left = 2400 Then Image1.Left = 120 End If End Sub
حيث أن :
timer1.interval = 100
image1.left= 120
أريد أنه إذا أصبحت خاصية Left للـ Image1 تساوي 2400 فإنه يبدأ الإجراء من جديد وتصبح قيمة الخاصية left تساوي 120 وتظل تعاد إلى إغلاق البرنامج
أريد حلاً وافياً
شكراً
