إخوانى بعد إذنكم أرفقت مثال به صورة على النموذج
وأريد أن تتحرك الصورة أتوماتيكياً من اليسار إلى اليمين
وكأنها مثل الشريط الإخبارى
فبعد إذنكم ما هو الكود الصحيح لهذا
وجزاكم الله كل خير
تحريك صورة من اليسار إلى اليمين على الفورم
لا أحد من مجيب
السلام عليكم
اخي الكريم
تفضل الكود مع الشرح
Dim ThePos, MaxFormWid, MoveImageToLeft As Long
MaxFormWid = 7352 ' الحد الاقصي لمكان الصورة من ناحية اليسار
MoveImageToLeft = 1440 ' مساحة الحركة في كل تحديث
ThePos = Me.Image0.Left ' نقوم بجلب قيمة عرض الصورة من ناحية اليسار
If ThePos >= MaxFormWid + MoveImageToLeft Then ' نتحقق أننا لم نخرج عن المساحة المحددة في الاعلي
Me.Image0.Left = 0
Else
Me.Image0.Left = ThePos + MoveImageToLeft ' نقوم بتحريك الصورة من ناحية اليسار بجمع قيمة علي اتجاة الصورة من ناحية اليسار حتي نحركها قليلا
End Ifمرفق القاعدة بعد التعديل
لا تنسونا من الدعاء
شكراً جزيلاً يا أستاذ هشام وبارك الله فيك