منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
التعرف على الافلات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : التعرف على الافلات (/showthread.php?tid=9946)

التعرف على الافلات - asto - 05-08-13

السلام عليكم

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

كود :
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


التعرف على الافلات - ناجي إبراهيم - 05-08-13

السلام عليكم...
ضع السطر السابق في الحدث 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 - 05-08-13

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