المدمر007

'بداية معالج الخطأ On Error GoTo ErrHandler 'هنا يوضع الكود 'إنهاء تتبع الأخطاء والخروج من الإجراء On Error GoTo 0 Exit Function ErrHandler: Dim strErr As String strErr = "Error " & Err.Number & " " & Err.Description MsgBox strErr, vbCritical + vbOK, "Error me…

لقد فعلت ذلك أخي { عبدالعزيز } بس حد يشوف هالأكواد بالـModule فيها شيء غلط ؟!!!! Option Explicit 'لتغيير إعدادات الشاشة '========================= Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Public Dec…

أخي { عبدالعزيز } اشكرك على الكود والمثال الذي أرفقته بردك :) إلا أنني كنت أريد كود ، يقوم بإعادة اعدادات الشاشة السابقة ، فور الخروج من البرنامج ;) حتى لا يضطر صاحب الجهاز ، لإعادتها يدوياً ... وبالتالي يذمر من البرنامج تبعي :^) أخي { omani } بالضبط فعلت ذلك …

مرحباً أخوتي الأحبة لن أطيل عليكم أنا صممت برنامج يشتغل باعدادات شاشة قياس 800*600 وكما تعلمون فإن معظم الشاشات الحالية تعمل باعدادات 1024x768 وربما بنفس اعدادات برنامجي لذا كل ما أريده هو كود يساعدني في استعادة اعدادات الشاشة الأصلية لصاحب الجهاز ، بعدما يطلع…

يعطيك ألف عافية أخوي { فانكشن } تسلم على إستجابتك الطيبة ما قصرت يالغالي ... وتقبل خالص تحياتي أخوك / المدمر007

أخواني الأحبة أنا عضو جديد .. أنضممت إلى أسرتكم الرائعة ،بهالمنتدى لما لمسته من خبراتكم وتفاعلكم مع بعضكم البعض لا أطيل عليكم .. عندي 3 مشاكل تعترضني بأي فورم أسويه الأول :- بعدما أسوي فورم بالمقاسات إللي أبيها ، وأفعله ... أقدر أني أكبرها من الجوانب أي أسحبه …