منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

هذا الكود للتحريك

كود :

Private Sub Picture33_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbLeftButton Then

   Picture33(Index).Left = Picture33(Index).Left + X - SSX

   Picture33(Index).Top = Picture33(Index).Top + Y - SSY

و يتم تنفيذ الكود اعلاه عند التحريك

فالمطلوب انه عند ايقاف التحريك او عند الافلات ينفذ الكود التالي مرة واحدة فقط

كود :

Picture33(Index).Top = Picture32(Index).Top

السلام عليكم...
ضع السطر السابق في الحدث MouseUp للـ Picture33 :

كود :

Private Sub Picture33_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = vbLeftButton Then

        Picture33(Index).Top = Picture32(Index).Top

    End If

End Sub

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

مشكور اخي ناجي

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

asto

ناجي إبراهيم

asto