تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التعرف على الافلات
#1
السلام عليكم

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

كود :
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
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم...
ضع السطر السابق في الحدث 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

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}
تم الشكر بواسطة:
#3
مشكور اخي ناجي
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التعرف على النص المكتوب asto 2 1,972 18-07-13, 07:07 PM
آخر رد: asto
  كيفية قراءة النص حرف بعد حرف و التعرف على السطر الدي أنا فيه عبد الرحيم 3 2,051 21-11-12, 01:38 PM
آخر رد: عبد الرحيم

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم