05-08-13, 09:58 PM
السلام عليكم
هذا الكود للتحريك
و يتم تنفيذ الكود اعلاه عند التحريك
فالمطلوب انه عند ايقاف التحريك او عند الافلات ينفذ الكود التالي مرة واحدة فقط
هذا الكود للتحريك
كود :
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