ضبط حجم مربع تسمية حسب النص المحتوي

[ماجدجلال]

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

اخواني الاعزاء في الملف المرفق برنامجين الاول من تصميم الاستاذ ابوهادي حفظة الله تعالي ( صندوق الرسائل العربي ) , والذي يحتوي علي كود يقوم باعادة تحجيم مربع تسمية بناء علي ما يحتوية من نصوص ,

والله لي اكثر من 8 ايام احول معرف الجزء الفعال في هذا الكود و المسئول عن اعادة ضبط طول وعرض مربع التسمية حسب المحتوي ولم افلح .

ارجو منكم المساعدة في نقل الكود في برنامج في الملف الموفق او علي الاقل الاشارة الي الاجزاء المهمة في الكود طبعا مع مراعاة تعدد السطور وذلك باستخدام الدالة cgr(13) ولكم جزيل الشكر وخالص الدعاء ,,,,

100.zip

[منتصر الانسي]

اخي العزيز

هل من الضروري اظهار النص في مربع تسمية (Label)أم يمكن أن يظهر في مربع نص (TextBox) ....؟

ونص التذكير هذا هل سيتم أخذه من جدول أم سيدخل كل مرة من قبل المستخدم ...؟

أرجو توضيح هذين الأمرين وإن شاء الله لا يصير خاطرك إلا طيب

تحياتي,,,

[ماجدجلال]

شكرا جزيلا للك استاذ منتصر

اريد ان يظهر النص في مربع التسمية ( Label) علي غرار برنامج العملاق ابوهادي .

نص التذكر سيتم ادخالة من قبل المستخدم وليس من جدول ,طبعا مع مراعاة تعدد السطور .

وجزاك الله الجنة , لي الان 9 ايام احاول فك الكود للاستاذ ابوهادي و كل المحاولات كان مصيرها الفشل ارجو منكم المساعدة وشكرا لكم.

[منتصر الانسي]

اخي العزيز

مرفق لك مثالك بعد التعديل وبطريقة غير طريقة أبو هادي

المهم هنا أن يكون عرض مربع التسمية ثابت اما الطول فسيتغير مع النص

تحياتي,,,

100.rar

[ماجدجلال]

اخي الكريم منتصر

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

اولا: شكرا جزيلا لك وجزاك الله الجنة

ثانيا: منذ ليلة امس وانا احاول انا اغير في الكود الذي وضعت ليتم التغير ايضا في العرض كما هو في الطول ولكن لم انجح ولو اني لم اري كود وبرنامج ابوهادي لتاكدت ان تنفيذ هذة الفكرة مستحيل في الاكسيس .

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

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 ,

اذا كانت لديك اي فكرة حول فك لغز هذا الكود او اي احد من الاعضاء ارجو المساعدة .

حتي نحصل علي الكود المطلوب و الذي يؤثر علي الطول والعرض معا

واخير اكرر شكرا و امتناني للاستاذ منتصر ,

وارجو منكم المساعدة

[منتصر الانسي]

اخي العزيز

ليكون في معلومك فإن الدالة في المثال تشمل التمدد الأفقي والرأسي ومرفق لك مثالك للتأكد

ولكني فضلت أن يكون العرض ثابتاً حتى لا يتغير تصميم النموذج فالتمدد سيصل الى مايصل اليه طول النص الذي سيتم إدخاله (وهذا غير جيد من وجهة نظري)

وأما بخصوص تصميم أستاذنا الكبير أبو هادي فما زلت (افصفصه بإنبهار) حتى أفهمه وأستوعبه جيداً (وأتعجب من عقلية واضعه)ولكن الكود الذي ذكرته أنت فأعتقد أنه خاص بصندوق الرسائل ككل اما مايخص مربع التسمية (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

[ماجدجلال]

شكرا جزيلا لك اخي منتصر

مثالك الثاني كان رائع جدا . وفعلا برنامج الاستاذ ابوهادي برنامج يعقد ويدل علي عقلية صاحبة ثلاثة سطور فقط تفعل كل هذا .

ارجو منك ان تفصف البرنامج لانة هناك خلفيات صعب علي فهمة .

فمثلا : المستطيل box1 اعتقد ان دورة كبير جدا وهو المحرك الاساسي لاخفاء وظهور الكائينات وكذلك هو يحدد مكان وجودها .

ومرة اخري شكرا جزيلا لك ,,,,