منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
هذا الكود هو لجعل النموذج يملا الشاشة

Me.Width = Screen.Width
Me.Height = Screen.Height
Me.Top = 0
Me.Left = 0

ولكن اذا تم وضع صورة في النموذج كيف يمكن جعلها تتوسع مع النموذج ايضا

السلام عليكم...

مبدئياً: يمكنك جعل النافذة تمللأ الشاشة بضبط الخاصية WindowState على Maximized. كما أن الكود يمكن اختصاره في جملة واحدة كالتالي:

أما بالنسبة إلى الصورة فللأسف فإن الخاصية Picture التابعة للـ Form لا تعطي إمكانية تمديد أو تقليص الصورة. لهذا لديك واحد من حلين:

1. إما أن تضع الصورة في مكون Image لتجعله كخلفية للنافذة، مع ضبط الخاصية Stretch للـ Image على True حتى يتغير حجم الصورة حسب حجم الـ Image مع كتابة السطر التالي في إجراء الحدث Resize للـ Form:

2. أو أن تقوم بالتالي:
= أ. تضع الصورة في Image و تجعله مخفياً (Visible = False). و لا تهم الخاصية Stretch.
= ب. تضبط الخاصية AutoRedraw للـ Form على True.
= ج. كتابة السطر التالي في الحدث Resize للـ Form:

3. نرجو الاستفادة و السلام.

السلام عليكم
لقد عملت الذي يمكن عمله ولكن توجد مشكلة
المرفق يوضح ذلك

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

جرب الكود بالشكل التالي


بالتوفيق

السلام عليكم...

shamal كتب :السلام عليكم
لقد عملت الذي يمكن عمله ولكن توجد مشكلة
المرفق يوضح ذلك

السبب هو أنك لم تعمل بالخطوات المذكورة سابقاً. عندما فتحت المشروع وجدت أن الصورة محملة في الخاصية Picture التابعة للـ Form. أزلها من هناك و ضعها في الخاصية Picture التابعة للـ Image. و ما دمت تريد استعمال الوظيفة PaintPicture فاضبط الخاصية Visible للـ Image على False حتى لا يظهر أثناء التشغيل.

سلام.

اشكر جميع الاخوة الذين شاركو في الاجابة والرد
ناجي إبراهيم
albrns
اشكر تعاونكم