ماجدجلال قام بنشر يونيو 6, 2011 قام بنشر يونيو 6, 2011 السلام عليكم ورحمة الله وبركاتة اخواني الاعزاء في الملف المرفق برنامجين الاول من تصميم الاستاذ ابوهادي حفظة الله تعالي ( صندوق الرسائل العربي ) , والذي يحتوي علي كود يقوم باعادة تحجيم مربع تسمية بناء علي ما يحتوية من نصوص , والله لي اكثر من 8 ايام احول معرف الجزء الفعال في هذا الكود و المسئول عن اعادة ضبط طول وعرض مربع التسمية حسب المحتوي ولم افلح . ارجو منكم المساعدة في نقل الكود في برنامج في الملف الموفق او علي الاقل الاشارة الي الاجزاء المهمة في الكود طبعا مع مراعاة تعدد السطور وذلك باستخدام الدالة cgr(13) ولكم جزيل الشكر وخالص الدعاء ,,,, 100.zip
منتصر الانسي قام بنشر يونيو 6, 2011 قام بنشر يونيو 6, 2011 اخي العزيز هل من الضروري اظهار النص في مربع تسمية (Label)أم يمكن أن يظهر في مربع نص (TextBox) ....؟ ونص التذكير هذا هل سيتم أخذه من جدول أم سيدخل كل مرة من قبل المستخدم ...؟ أرجو توضيح هذين الأمرين وإن شاء الله لا يصير خاطرك إلا طيب تحياتي,,,
ماجدجلال قام بنشر يونيو 7, 2011 الكاتب قام بنشر يونيو 7, 2011 شكرا جزيلا للك استاذ منتصر اريد ان يظهر النص في مربع التسمية ( Label) علي غرار برنامج العملاق ابوهادي . نص التذكر سيتم ادخالة من قبل المستخدم وليس من جدول ,طبعا مع مراعاة تعدد السطور . وجزاك الله الجنة , لي الان 9 ايام احاول فك الكود للاستاذ ابوهادي و كل المحاولات كان مصيرها الفشل ارجو منكم المساعدة وشكرا لكم.
منتصر الانسي قام بنشر يونيو 7, 2011 قام بنشر يونيو 7, 2011 اخي العزيز مرفق لك مثالك بعد التعديل وبطريقة غير طريقة أبو هادي المهم هنا أن يكون عرض مربع التسمية ثابت اما الطول فسيتغير مع النص تحياتي,,, 100.rar
ماجدجلال قام بنشر يونيو 8, 2011 الكاتب قام بنشر يونيو 8, 2011 اخي الكريم منتصر السلام عليكم ورحمة الله اولا: شكرا جزيلا لك وجزاك الله الجنة ثانيا: منذ ليلة امس وانا احاول انا اغير في الكود الذي وضعت ليتم التغير ايضا في العرض كما هو في الطول ولكن لم انجح ولو اني لم اري كود وبرنامج ابوهادي لتاكدت ان تنفيذ هذة الفكرة مستحيل في الاكسيس . اخي العزيز لعل العقد في برنامج ابوهادي تمكن في السطور التالية : With BoxRect Width = (.Right - .Left) * 15 Height = (.Bottom - .Top) * 15 Me.Width = Width Me.Detail.Height = Height DoCmd.MoveSize ((WndWidth * 15 - Width) / 2) + 50, _ ((WndHeight * 15 - Height) / 2) + 90, _ Width, _ Height وهذة السطور موجود في الوحدة النمطية الخاصة بالنموذج frmArbMsgBox وعند الحدث Form_Open ولقد قمت بمحاولة فهم هذة السطور ولكن تفكري وخبرتي وقفت عاجزة ففي هذة السطور يتم تحديد كل قيم الطول والعرض و الارتفاع ومكان وضع الكائينات في النموذج من مربع التسمية للنص و كل الازرار وحاولت البحث عن الاسم BoxRect فلم اجدة في النموذج وعندما ترجمتة حصلت علي المعني ( احداثيات المربع ) رغما انة لايوجد في النموذج السابق سوي مستطيل واحد اسمة box1 , اذا كانت لديك اي فكرة حول فك لغز هذا الكود او اي احد من الاعضاء ارجو المساعدة . حتي نحصل علي الكود المطلوب و الذي يؤثر علي الطول والعرض معا واخير اكرر شكرا و امتناني للاستاذ منتصر , وارجو منكم المساعدة
منتصر الانسي قام بنشر يونيو 8, 2011 قام بنشر يونيو 8, 2011 اخي العزيز ليكون في معلومك فإن الدالة في المثال تشمل التمدد الأفقي والرأسي ومرفق لك مثالك للتأكد ولكني فضلت أن يكون العرض ثابتاً حتى لا يتغير تصميم النموذج فالتمدد سيصل الى مايصل اليه طول النص الذي سيتم إدخاله (وهذا غير جيد من وجهة نظري) وأما بخصوص تصميم أستاذنا الكبير أبو هادي فما زلت (افصفصه بإنبهار) حتى أفهمه وأستوعبه جيداً (وأتعجب من عقلية واضعه)ولكن الكود الذي ذكرته أنت فأعتقد أنه خاص بصندوق الرسائل ككل اما مايخص مربع التسمية (LblPrompt) فالكود هو With Me.LblPrompt .Caption = BoxStyle.Prompt .Height = Height - 1200 .Move 50, _ IIf(.Height > 275, 180, (Height - 875 - .Height) / 2), _ Width - IconWidth - 365 If Height = 1785 Then .TopMargin = 85 End With تحياتي,,, 100.rar
ماجدجلال قام بنشر يونيو 10, 2011 الكاتب قام بنشر يونيو 10, 2011 شكرا جزيلا لك اخي منتصر مثالك الثاني كان رائع جدا . وفعلا برنامج الاستاذ ابوهادي برنامج يعقد ويدل علي عقلية صاحبة ثلاثة سطور فقط تفعل كل هذا . ارجو منك ان تفصف البرنامج لانة هناك خلفيات صعب علي فهمة . فمثلا : المستطيل box1 اعتقد ان دورة كبير جدا وهو المحرك الاساسي لاخفاء وظهور الكائينات وكذلك هو يحدد مكان وجودها . ومرة اخري شكرا جزيلا لك ,,,,
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.