هل يمكن تفعيل عجلة الماوس داخل الفريم

[إبراهيم ابوليله]

الاخوه الافاضل

اريد كود يقوم بتفعيل عجلة الماوس داخل الفريم

[حمادة باشا]

الأستاذ/ إبراهيم ابوليلة

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

الرد الجاهز علي سؤالك .. لا يمكن لأن إكسل 2007 وما قبله يعتمد علي VBA 6 وهي لا تدعم إستخدام عجلة الماوس

( لا أدري عن الإصدارات الأحدث 2010 وما بعده )

طبعا لن نستسلم بسهولة - يمكننا إستدعاء WIndows API المسئولة عن حركة الماوس وندمجها مع كود الفورم

الفورم المرفق هو الخاص بكم ضمن موضوع تفعيل خاصية السرد ( سكرول بار ) علي الرابط

http://www.officena.net/ib/index.php?showtopic=49385

 

الإضافات علي الكود :

1- لاحاجة لتعريف السكرول بار الرأسي vertecalscrollbar داخل الفريم Frame1

    بدلا عن ذلك قم بإضافة التالي في كود الفورم

Private Sub UserForm_Activate()
    With Me.Frame1
        .ScrollBars = fmScrollBarsVertical
        'قم بتغيير الرقم أسفل حسب المطلوب
        .ScrollHeight = .InsideHeight * 2
    End With
End Sub

2- الإضافات الخاصة بعجلة الماوس تجدها في module1 وأيضا داخل الفورم

تقبل تحياتي

سكرول.rar

[إبراهيم ابوليله]

اخى حماده اشكرك على الرد

ولكن للعلم انا استخدم اكسيل2010

وعند فتح الشيت

الذى تفضلت انت بارفاقه

وعند ومحاولة استخدام عجله الماوس

فلم يفلح معى الامر

[حمادة باشا]

اخى حماده اشكرك على الرد

ولكن للعلم انا استخدم اكسيل2010

وعند فتح الشيت

الذى تفضلت انت بارفاقه

وعند ومحاولة استخدام عجله الماوس

فلم يفلح معى الامر

 

الأستاذ/ إبراهيم

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

نعم الملف المرفق يعمل علي إصدار 2007 وماقبله ولا يعمل علي الإصدار 2010 وقد أشرت إلي هذا في مشاركتي

إصدار 2010 يحتاج تعديل علي كود API - وللأسف ليس لدي إصدار 2010 حتي أقوم بالتعديل المطلوب .

تقبل تحياتي

[شوقي ربيع]

السلام عليكم

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

تفعيل عجلة الماوس في اليست بوكس و الكومبوبوكس

[إبراهيم ابوليله]

اخى واستاذنا شوقى ربيع

بارك الله فيك

كود رائع جدا

واعتقد ان الجميع سوف يستفيد منه

مشكورا على هذه الهديه الرائعه