في اداة الجدول FIEX GRID
اثناء الكتابه ابغى ينزل سطر جديد تلقائي
يعنى لما يكون الكلام اكثر من عرض الـ cols
ينزل سطر تلقائي لوحده
انا جربت اني ارفع في ارتفاع الصف لكن ما نفع بيكتب سطر واحد
ينزل سطر جديد تلقائي
مغلق
أخى العزيز
بدأت أشعر أن الفليكس جريد موضوع صعب على الكل مش أنا بس
بصراحة أنا فضلت أحاول معاه لغاية ما أكرمنى ربنا ووصلت لطرق كثيرة للتعامل معاه
بس مش من ملكاتى الكتابة كنت جمعتها فى مقال أو كتيب صغير
عموما علشان ما أطولش عليك
أنا بستخدم الكود ده علشان يقسم الخلية لسطور حسب إرتفاع النص
جربه وإدينى رأيك
With MSFlexGrid1
Dim F As Long
For F = 0 To .Rows - 1
.RowHeight(F) = 300
If TextWidth(.TextMatrix(F, 1)) > .ColWidth(1) Then
.RowHeight(F) = (((TextWidth(.TextMatrix(F, 1)) _
\ .ColWidth(1)) + 1) * TextHeight("Any Text")) + 100
End If
Next F
End Withضعه فى حدث يناسب تغيير الحجم مثل الـ Form_Resize
عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :
( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )
رواه الطبراني في الكبير
نسيت أذكرك تخلى خاصية WordWrap = True
وخاصية AllowUserResizing لتسمح بتغيير الارتفاع من جانب المستخدم لو حبيت
عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :
( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )
رواه الطبراني في الكبير
شكرا لك اخوي
نزل سطر لوحده ... لكن العرض فظل زي ماهوه
يعني الكلام مش باين
السلام عليكم
الاخ الكريم
يمكنك زيادة ارتفاع الخلية بمعدل ثابت لكل سطر جديد
RowHeight([row number]) = RowHeight([row number]) + 200
و بذلك يزيد بمقدار 200 كل مرة ،، اى مقدار الزيادة ثابت عشان الكلام يظهر
و أخونا abulyaman حل لك مشكله النزول لسطر جديد :rolleyes:
فأين المشكلة ؟ (h)
Business Card
Ahmad Fathy Ahmad
Computer and Systems Department
Faculty of Engineering, Alexandria University
Cellular: +2 010 1461154
E-mail: midoalx@hotmail.com
ICQ: 148481391
السلام عليكم ورحمة الله وبركاته
المشكلة يا أخى مفادى أننا ما عندناش حدث ليشعر بتغييرك لعرض العمود كنا استفدنا منه كثيرا فى موضوعك
لذلك أنصحك بأن تبحث عن أقرب حدث يؤثر على أبعاد الجدول وتضع فيه الكود
أما قولك أنه نزل لوحده ده مش حل للمشكلة لأن النص سينقسم لعدة أسطر لكنها لن تظهر إلا بتغيير ارتفاع السطر - باستخدام الكود السابق مثلا-
لكن لا تنسى أيضا أن تجعل حجم ونوع الخط للجدول هو نفسه للنموذج وإلا لن يكون المقياس مضبوط لأن TextHeight لا تقرأ إلا من النموذج
أخونا أحمد فتحى
ومن فين تضمن أن ارتفاع النص بس 200 ؟ وإيه فايدتها لو كان النص مقسم إلى عدد غير متساوى من السطور؟
لذلك أرى أن استخدام حاصل ضرب عدد السطور × ارتفاع النص أدق فى الحساب وأكثر مرونة لكل سطر - لو رجعت للكود هتفهمنى
أرجو أنى ما كنتش بايخ فى ردى على حد - أنا كان قصدى أساعد باللى يقدرنى عليه ربنا
وشكرا
أخوكم أيمن همام
عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :
( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )
رواه الطبراني في الكبير
اقتباسلذلك أرى أن استخدام حاصل ضرب عدد السطور × ارتفاع النص
و من أين تحصل على ارتفاع النص ؟
Business Card
Ahmad Fathy Ahmad
Computer and Systems Department
Faculty of Engineering, Alexandria University
Cellular: +2 010 1461154
E-mail: midoalx@hotmail.com
ICQ: 148481391
أرتفاع النص هو TextHeight وعرضه هو TextWidth
كان أصعب بالنسبة لى معرفة عدد السطور للنص
لذلك قمت بالتالى فى الكود السابق
سألت عن عرض النص وقارنته بعض العمود وحاصل القسمة الصحيحة كان هو عدد السطور (+ 1 علشان الكسور) - أذكرك به
.RowHeight(F) = (((TextWidth(.TextMatrix(F, 1)) \ .ColWidth(1)) + 1) * TextHeight("Any Text")) + 100وأضفت 100 بس علشان أبحبحها على السطر
** طبعا أنا تعاملت مع العمود الأول بس كمثال مش تحت شرط **
عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :
( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )
رواه الطبراني في الكبير
طيب لو حبيت استخدم نفس الكود على اداة النص text
ايش اغير في الكود
" عرض اداة الtext عندي كبير يعني ممكن استغني عن حكاية العرض "
هذا الموضوع مغلق.