مغروم قام بنشر نوفمبر 15, 2003 قام بنشر نوفمبر 15, 2003 السلام عليكم ورحمة الله بدأت بعمل برنامج لتحضير الدروس .. وكل شي على مايرام . لكن عندما قمت بعمل التقرير وهو تقرير جدولي .. ظهرت بعض الخلايا . اطول من الاخرى لاحتوائها على نص اطول .. وهو الحقل الوحيد الذي يحتوى على حقل مذكرة اما الباقي هم حقل نص كما في الصورة التالية كيف اجعل جميع خلايا الجدول متساوية ..لكي يظهر التحضير بشكل جميل . بحيث تستاوي الخلايا مع اطول خلية موجودة في التقرير . املي في الله وفيكم يا أخواني 1
ابو عبدالرحمن قام بنشر نوفمبر 15, 2003 قام بنشر نوفمبر 15, 2003 تستطيع التحكم في طول عرض الخلية وارتفاعها وموقعها من خلال خصائص كل خلية تبويب ( تنسيق ) فيمكن تحديد مجموعة خلايا مع بعض ( من خلال الضغط على الشفت ) واختيار عرض موحد لها أو ارتفاع وغيرها من الخصائص كلون الخط ولون الحد أرجو أن أكون قد فهمت سؤالك .
مغروم قام بنشر نوفمبر 15, 2003 الكاتب قام بنشر نوفمبر 15, 2003 اشكرك جزيل الشكر اخي على اعطاءك موضوعي جزء من وقتك وجل اهتمامك . ماقصدته يا اخي . ان حجم الخلايا تطول وتقصر بحجم النص الموجود فيها . الذي اريده هي ان تتوحد الخلايا مع اطول خلية موجودة في الجدول كما في المثال التالي . اتمنى ان يكون السؤال واضحا هذ ه المرة
محمد طاهر عرفه قام بنشر نوفمبر 16, 2003 قام بنشر نوفمبر 16, 2003 حل مؤقت أزل الحدود border من مربعات النص ( اجعل لون الحدود شفاف ) و استبدلها بخطوط أسفل السجل فى مقطع التفصيل Detail ( مع عدم وضع خطوط رأسية) و ستبدو كما لو أنها متساوية جربت أن أقيس الارتفاع بالكود و أحصل الي الاقصي و أوحد الارتفاع ، و لكن الارتفاع المقاس يكون قبل ان تحدث عملية التمدد الناتجة من خاصية Can Grow و لم تنجح المحاولة االأولي أيضا تغيير الارتفاع لمربع النص فى وضع العرض يبدو أنه غير ممكن ربما تكون هناك حلول أخري ، لكن لم تفلح التجربة الاولي مع الموضوع ، و سأحاول فيه لاحقا بإذن الله تعالي
مغروم قام بنشر نوفمبر 16, 2003 الكاتب قام بنشر نوفمبر 16, 2003 السلام عليكم ورحمة الله شكرا لك استاذي الكبير محمد طاهر على تواجدك في الموضوع .. طبقت ما قلت به . وتساوت الخلايا ... كما في الصورة لكن بقت مشكلة بسيطة وهي الخطوط الراسية كما تلاحظ اصبح الجدول بدون حدود راسية شكرا لك مرة ثانية بانتظار حل مشكلة الحدود الراسية
طالب علم2002 قام بنشر نوفمبر 18, 2003 قام بنشر نوفمبر 18, 2003 الاخ مغروم حل كان من انتلج الاخ العزيز حارث الله يذكره بالخير ضع في حدث عند الصفحة الكود التالي Me.ScaleMode = 1 Me.ForeColor = 0 Me.DrawWidth = 3 وفي التفصيل في حدث عند الطباعة ضع الكود التالي وستحل مشكلتك انشاء الله Dim ctl As Control Dim MaxHeight As Long MaxHeight = 0 For Each ctl In Me If TypeOf ctl Is TextBox And ctl.Section = 0 Then If ctl.Height > MaxHeight Then MaxHeight = ctl.Height End If Next For Each ctl In Me If TypeOf ctl Is TextBox And ctl.Section = 0 Then Me.Line (ctl.Left, 0)-(ctl.Left, MaxHeight) End If Next Me.Line (Me.Width - 3, 0)-(Me.Width - 3, MaxHeight) Me.Line (0, MaxHeight)-(Me.Width - 3, MaxHeight) اخيك طالب علم2002
مغروم قام بنشر نوفمبر 18, 2003 الكاتب قام بنشر نوفمبر 18, 2003 السلام عليكم وروحمة الله .. شكرا جزيلا لك اخي طالب علم ولكل من ساهم معي في حل هذه المشكلة . وابلغ سلام وشكر وتحيات كل من خدمه هذا البرنامج المتواضع لكم ولهذا المنتدى جعله الله في ميزان حسناتكم . الكود بالفعل كود عملي ورائع قأم بعمل اللازم فتحية لي لكم .
محمد طاهر عرفه قام بنشر نوفمبر 18, 2003 قام بنشر نوفمبر 18, 2003 نشكر الأخ طالب علم علي الكود المفيد ، و الشكر موصول للأخ حارث :(
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.