تحريك الصور باأكثر من طريقةفي الفجول بيسك

الطريقة التقليدية لتحريك الصورة

ضعي هذا الكود في المؤقت أو الـ Timer

Private Sub Timer1_Timer()

B = 20

a = 10000

If Picture1.Left >= a Then Exit Sub

Picture1.Left = Picture1.Left + B

End Sub

(gift)أول الغيث قطرة(gift)

أختي العزيزة

لتحريك الصورة من خلال الأسهم أضيفي هذا الكود في الفورم

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)



Select Case KeyCode



Case 37 'left

Picture1.Left = Picture1.Left - 15



Case 38 'up

Picture1.Top = Picture1.Top - 15



Case 39 ' right

Picture1.Left = Picture1.Left + 15



Case 40 ' down

Picture1.Top = Picture1.Top + 15



End Select



End Sub

و يمكن ايضا تحريك الصورة بهذا الكود:

ضع تايمر و غبر انترفال الي ما تريد ثم اكتب:

Image1.Move Image1.Left + 180

فستتحرك بمقدار 180 تويب.. ولكنها ستخرج عن حدود الفورم..

و يمكن تحريكها عشوائيا بهذا الكود

On Error Resume Next

Image5.Move Image5.Left + ScaleWidth * (Rnd - 0.5) / 40, _

Image5.Top + ScaleHeight * (Rnd - 0.5) / 20

Image5.Move Image5.Left + 500

If Image5.Left + 500 > 5500 Then

Image5.Move Image5.Left - 500

End If

شكراً للاخ ((( عاشق الفيجول )))

والاخ (((( عبد الله فتحي ))))

ولاخ (((عضو فعال ))))

شكراً لكم على المساعده ولو كان يوجد طرق أخري لي تحريك الصور

بشكل أفضل من ذالك أتمني منكم التواصل والمساعدة