طلب تغيير شكل الماوس إلى يد عند وضع الماوس علي أي زر في النموذج

[morabetoon]

طلب تغيير شكل الماوس إلى يد عند وضع الماوس علي  أي زر  في النموذج واماكنية ارجاع الماوس مرة اخرى لوضعة الطبيعي

تم تعديل يناير 17, 2021 بواسطه morabetoon
خطا إملائي

[محمد أبوعبدالله]

السلام عليكم

تفضل اخي الكريم

Option Compare Database
Option Explicit
    Private Const IDC_HAND = 32649&
    Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
    Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
     
    Private Sub Cmd01_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        SetCursor LoadCursor(0, IDC_HAND)
    End Sub

تحياتي

[أبو عبدالله الحلوانى]

بالاضافة الي ما تفضل به أخي أبو عبدالله

من خصائص الزر اضبط الخاصية كما بالصورة 

 

[morabetoon]

جزاكم الله خيرا  اخواني الكرام علي مجهودكم  :  انا جربت تطبيق ما تشير إليه الصورة التي انزلها اخونا محمد الحلواني ووجدتها فعالة حتى بدون

تفعيل الكود الذي انزله اخونا أبو عبد الله 

 

[morabetoon]

مشكور اخي الغالي ابو عبد الله قد يكون الكود له عمل ولكن انا لا اعرفه 

 مشكوررين اخواتي  الكرام علي  مجهودكم الغالي  ولكل من هو قائم علي هذا المنتدى التعليمي  الرائع   وكل من يشارك فيه.   

[أبو عبدالله الحلوانى]

منذ ساعه, morabetoon said:

قد يكون الكود له عمل ولكن انا لا اعرفه

الخاصية التي أشرت لكم بها لا توجد الا للأزرار  - لذا كان دور الكود في حالة ما إن أردت أن تضبط تلك الخاصية لـ Label  أو Imag  مثلا - ستجده فعالا إن شاء الله. 

وجزا الله خيرا أستاذنا محمد أبو عبدالله

[morabetoon]

للتوضيح اخواني الكرام الكود الذي تفضل به اخونا  محمد ابو عبد الله وظيفته هو تحويل الماوس إلى يد لإي زر في النموذج ولكن بدون الكود ستضطر لتفيل الخاصية علي كل زر  على حدى هذا ما فهمت من استاذنا  الفاضل