مطلوب كود لعمل زر مانى مايز وزر ماكس مايز للفورم اوفيس 2003

[abouelhassan]

استخدم اوفيس 2003 اساتذتى الافاضل احتاج كود اضافة زر مانى مايز وزر ماكس مايز للفورم

ادام الله فضلكم

[وائل احمد المصري]

 اخي جرب المرفق به العديد من الوظائف منقول من 

cpearson.com

ولا اعلم مسموح بذكر موقع النقل ام لا ولكنها حقوق ملكية فكرية

 

UserFormControl.rar

[ياسر خليل أبو البراء]

بارك الله فيك أخي الغالي وائل على الهدية الرائعة

إليكم إخواني الملف ليعمل على النواتين 32 بت و64 بت ....

UserForm Control With Windows APIs Cpearson.rar

[abouelhassan]

استاذنا وائل بارك الله فيك

استاذنا ياسر بارك الله فيك

انا مش عارف استخدم الملف هل ممكن استخراج الكود وكتابته وانا انقله فى موديل او ماشبه الله يحفظكم

احترامى وتقديرى

ضرائب hpجديد2015.rar

تم تعديل أكتوبر 13, 2015 بواسطه abouelhassan

[وائل احمد المصري]

بارك الله فيك أخي الغالي وائل على الهدية الرائعة

إليكم إخواني الملف ليعمل على النواتين 32 بت و64 بت ....

 

UserForm Control With Windows APIs Cpearson.rar

اخويا ياسر دايما سباق وهداياك اكتر وهوة انا عارف الاحقق :)

ممكن تشرح لنا ازاي نحول مابين كود 32 بت وكود 64 بت وليك الاجر والثواب

دمت بود :)

استاذنا وائل بارك الله فيك

استاذنا ياسر بارك الله فيك

انا مش عارف استخدم الملف هل ممكن استخراج الكود وكتابته وانا انقله فى موديل او ماشبه الله يحفظكم

احترامى وتقديرى

اخي ابو الحسن اطلع على المرفق

MaxMin.rar

تم تعديل أكتوبر 13, 2015 بواسطه وائل احمد المصري

[abouelhassan]

مش عارف استاذنا استخدمه 

شكرى وتقديرى واحترامى

[وائل احمد المصري]

ممكن ترفق ملفك وتقولي عاوزة الشغل على اي فورم

[ياسر خليل أبو البراء]

أخي الحبيب وائل

الملف الذي رفعته من قبل يبدو أن به مشكلة مع 32 بت .. تم التعديل مرة أخرى على الملف ليعمل بشكل صحيح على 32 بت

في الحقيقة أنا لدي جهازين أحدهما بالعمل والآخر بالمنزل ... الجهاز بالعمل يعمل على نظام 64 بت ، وفي المنزل على نظام 32 بت (وأنا متعمد إني أشتغل على النظامين ..)

المهم بالنسبة للتعامل مع الكود أنا بجرب أضيف كلمة Ptrsafe في حالة نظام 64 بت وبس بعد كلمة Declare

فبشوف الإعلان الموجود وليكن بهذا الشكل

    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Any) As Long

عند فتح الملف على نظام 64 بت سيظهر هذا السطر باللون الأحمر مما يدل أن هناك مشكلة في التعامل معه ..

فأقوم بإضافة كلمة PtrSafe بعد كلمة Declare .. بهذا الشكل

    Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Any) As Long

السطر الأخير يعمل على 64 بت فقط ، والأول يعمل على 32 بت فقط

................

للجمع بينهما استخدام الصيغة التالية ليعمل على كلا النظامين معاً

#If VBA7 Then

#Else

#End If

ليكون الكود بهذا الشكل في نهاية الأمر

#If VBA7 Then
    Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Any) As Long
#Else
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Any) As Long
#End If

وبالتالي يعمل الكود على النظامين معاً ..

أرجو أن أكون قد وفقت في توصيل المعلومة

ملحوظة : أحياناً لا يكون التعديل في الكلمة Ptrsafe فقط .. الموضوع محتاج دراسة

أنا قدمت لك ما أعرفه بخصوص تلك النقطة تحديداً

تقبل وافر تقديري واحترامي

[وائل احمد المصري]

اشكرك اخي ياسر بارك الله فيك وساحاول التعمق في تلك المسألة ان شاء الله 

شاكر لك وكل سنة وانت طيب

[وائل احمد المصري]

 

New folder.rar

[abouelhassan]

اساتذتى هذا هو الملف به مشكلة فى سطر

اهداه لى استاذى عادل حنفى مدير القسم مشكورر الله يحفظه

عندما اقوم بتشغيله على نظام xp 32

اما عندما اشغله على ويندوز 7 64 يعمل تمام كما انه هو الذى احتاج لزر مانى مايز فى الفورم ممكن المساعدة مشكورين

ضرائب hpجديد2015.rar

[وائل احمد المصري]

اخي العزيز لا اعرف ماعلاقة 32 بت او 64 بالملف فلم اجد مايشير لذلك اللهم عدا ان هناك رفيرنس مفقود للكليندر 

عموما وضعت لك الكود فجرب المرفق

ضرائب جديد2015.rar

[abouelhassan]

لا اعرف استاذى عندما اقوم بتشغيل الملف على جهاز العمل به ويندوز xp وافتح الفورم بيق عند الكود text1 = Date

وعندما اشغل نفس الملف بجهاز اخر به ويندوز 7bit64 يعمل تمام الاوفيس فى الاثنين 2003 نفس النسخة

هل من حل رجاء

استاذ وائل البرنامج يعمل تمام على الجهز الذى به ويندوز 7

وسأجرب على الجهاز الذى به xp وبارك الله  لك وبك وعليك

امين

احترامى

[وائل احمد المصري]

تحياتي واشكرك على عباراتك واشكرك على دعواتك جعل الله لك مثلها واكثر

تحياتي

هية المشكلة في الكاليندر او الرزنامة بالتاكيد الجهاز اللي علية اكس بي متسطب عليه اكسيس والكاليندر بتنزل اوتوماتيك

بينما هية غير موجودة مع نسخة الاوفيس اللي ع الجهاز اللي علية ويندوز 7

طبت وكل عام وانت بخير

[abouelhassan]

بارك الله فيك طيب ايه الحل

اشكر حضرتك جدااااالاهتمامك

[وائل احمد المصري]

لو عاوز الكاليندر دور عليها في البروجرام فايلز اسم الملف

MSCAL.OCX

او ممكن تجيبها من النت واتبع واعمل لها ريجيستر

ازاي:

ح تفتح ستارت وتكتب في ال 

run

الامر التالي

regsvr32 %SystemRoot%\syswow64\mscal.ocx

حيث تمثل

syswow64

الفولدر اللي فية ال ocx

جرب وشوف

 

 

بس بردو مع ملاحظة اني ماشوفتهاش مستخدمة في الملف اقصد الكاليندر

[abouelhassan]

اسف استاذنا نش فاهم

يعنى انا ادور على الكليندر فى win xp واعمل لها ايه امسحه ولا اضيفه ولا ادور عليه فى الجهاز win7

معلش استحملنى واسف بس انا محتاج توضيح بارك الله لك وبك

[وائل احمد المصري]

في الويندوز 7 لو مالقيتهوش دور علية على الانتر نت

اقولك حاجة عندي كاليندر تشتغل على اي نسخة من غير مشاكل تحب ارفعها لك غير بتاعت الويندوز

دي الكاليندر اللي باقولك عليها هية يوزر فورم وكلاس مديول اعمل لهم ايمبورت في مشروعك وح تشتغل من غير مشاكل

cCalendar.rar

ملفك مرفق به الكاليندر

ضرائب جديد2015.rar

[abouelhassan]

شكر وتقدير وفائق الاحترام من القلب بارك الله فيك 

سأقوم غدا بتجربة البرنامج على الجهاز win xp

اما هنا لالويندوز 7 يعمل تمام التمام

وسأخبر حضرتك اشكرك استاذنا الله يحفظك

[وائل احمد المصري]

بالتوفيق ان شاء الله

[مختار حسين محمود]

السلام عليكم

الملف المفقود  MSCAL.OCX

بعد فك الضغط عن المرفق يوضع فى المسار التالى

C:\Windows\System32

شغل الملف    تحياتى

MSCAL.zip

[abouelhassan]

استاذ مختار استاذ وائل كل اساتذتى المحترمين بارك الله لكم تم العمل بفضلكم استاذ وائل الله يبارك لك

تم واشتغل الله يفتح عليك الله يحفظك

استاذ مختار شاكر لك فضلك واهتمامك بارك الله فيك

احترامى لكم جميعا

[وائل احمد المصري]

الْحَمْدُ لِلَّهِ الَّذِي بِنِعْمَتِهِ تَتِمُّ الصَّالِحَاتُ