التحكم بحركات الماوس يمينا ويسارا وأعلى وأسفل

[نرجس الورد]

السلام عليكم ورحمة الله وبركاته

اليوم جاتني فكرة وانشاء الله جاءت لأحدكم

ماذا لو أردنا في أحد الأيام استغلال جهة حركة الماوس !!

النقطة الأولى :

مثلا عندنا زر أو صورة مثلاً ونرغب عند تحريك الماوس لجهة اليمين أن يتم اجراء محدد وعند تحريكه لليسار يتم تنفيذ اجراء آخر أو معاكس

وبنفس الطريقة عند تحريك الماوس للأعلى والأسفل

النقطة الثانية :

هل نستطيع التحكم في الفترة الزمنية لحركة الماوس ؟

مثلا قمنا بتحريك الماوس وتم اجراء حدث وبعد فترة زمنية محددة ( نقوم بتحديدها ) قمنا بتحريك الماوس مرة ثانية نطلب اجراء حدث آخر !!

جاءت لي الفكرة فجأة وأتمنى أنها سبقتني لغيري << طبعاً لأستفيد فلستُ بخبيرة بالبرمجة

كلي أمل أن تكون هناك امكانية لمثل هذه الأفكار

مع خالص تقديري وشكري

تم تعديل يناير 18, 2008 بواسطه نرجس الورد

[محب العلم]

وعليكم السلام ورحمة الله وبركاته

أختي نرجس ،

لتنفيذ ذلك يجب أن نتحرى موقع الماوس واتجهاته وهو سيكون المبدأ في إنشاء الأحداث التي تتحدثين عنها.

على سبيل المثال لا الحصر الكود الآتي يحدد أين الماوس، وفيما إذا ضغط زر الماوس وهل كان أو لم يكن زر shift مضغوطا ويطبع احداثيات x و y لمؤشر الماوس كلما تحرك.
لتجربة الكود ، أضيفي الكود في نموذج فيه مربع عنوان اسمه coordinates

كود

Private Sub Detail_MouseMove(Button As Integer, _
     Shift As Integer, X As Single, Y As Single)
    Dim intShiftDown As Integer, intLeftButton As Integer

    Me!Coordinates.Caption = X & ", " & Y
    ' Use bit masks to determine state of
    ' SHIFT key and left button.
    intShiftDown = Shift And acShiftMask
    intLeftButton = Button And acLeftButton
    ' Check that SHIFT key and left button
    ' are both pressed.
    If intShiftDown And intLeftButton > 0 Then
        MsgBox "زر Shift وزر الماوس اليسار كانا مضغوتين"
    End If
End Sub

مع وافر الاحترام

تم تعديل أبريل 8, 2014 بواسطه أبا عمر

[نرجس الورد]

صباح الخير

شكرا لك أخي الكريم محب العلم

طبقت الكود في المثال المرفق

ولاحظت أنه عند ضغط الماوس تظهر أرقام في مربع النص وهي احداثيات الموقع للماوس إذا لم أكن مخطئة

لكن لم أستطع فهم الكود جيداً لأستفيد منه في اجراء حدث بمجرد حركة الماوس وبدون أي ضغطة منه

الكود رائع ومتأكدة بأن الحل فيه

وتحملوا مبتدئي الأكسس

مرفق التطبيق

MouseMove.rar

تم تعديل يناير 19, 2008 بواسطه نرجس الورد

[محب العلم]

حياك الله اختي نرجس الورد ،

قمت بعمل مثال لم تطلبين بفكرة من تصميمي غير التي عرضتها لك سابقا

2003_2007.zip

مع وافر الاحترام

[أبا عمر]

ينقل