كيف يمكن تحريك عنص Shape من نقطة معينة

السلام عليكم...

ضع على الـ Form مؤقت (Time).

اضبط خصائص الـ Timer كالتالي (يمكنك طبعاً ضبطها حسب الحاجة):

* الخاصية Enabled على False.

* الخاصية Interval على 100.

استخدم الكود التالي:

Private Const MinX = 100    ' أقل إحداثي أفقي
Private Const MaxX = 2000    ' أقصى إحداثي أفقي

Private Increment As Long    ' مقدار الزيادة و النقصان

Private Sub Form_Load()
' نضع المكون عند نقطة البداية
    Shape1.Left = MinX
' نحدد مقدار الزيادة أو النقصان
    Increment = 60
' نشغل المؤقت
    Timer1.Enabled = True
End Sub

' إجراء المؤقت
Private Sub Timer1_Timer()
' نضيف مقدار الزيادة إلى الموقع الحالي للمكون
    Shape1.Left = Shape1.Left + Increment
' نختبر ما إذا وصلنا أو تجاوزنا الحدود في الاتجاهين. في هذه الحالة نعكس إشارة مقدار الزيادة
    If Shape1.Left >= MaxX Then Increment = -Increment
    If Shape1.Left <= MinX Then Increment = -Increment
End Sub

* عندما نعكس إشارة مقدار الزيادة فذلك يعني أنها إذا كانت موجبة تصبح سالبة (تصبح العملية طرح) و سيتحرك الشكل إلى اليسار، و إذا كانت سالبة ستصبح موجبة (تصبح العملية جمع) و سيتحرك الشكل إلى اليمين.

نرجو الاستفادة و السلام.

والله ما مشى الحال حاولت انفذ ما مشى الحال

وقد رفقت مثال ارجو التعديل

1.rar

السلام عليكم...

الكود السابق يقوم بتحريك Shape1 و أنت - في المشروع المرفق - قد ضبطت الخاصية Visible لـ Shape1 على False و بالتالي لا يظهر أثناء التنفيذ.

قم بتغيير الخاصية Visible للـ Shape1 إلى True و شغل البرنامج. ستراه يتحرك و يعود.

إذا أردت تحريك Label1 مثلاً، ضع Label1 بدل Shape1 حيثما تجده في الكود.

نرجو الاستفادة و السلام.

شكراً والله يجزيك الخير