[ناجي إبراهيم]

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

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

كود :

Move 0, 0, Screen.Width, Screen.Height

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

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

كود :

Image1.Move 0, 0, ScaleWidth, ScaleHeight

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

كود :

PaintPicture Image1.Picture, 0, 0, ScaleWidth, ScaleHeight

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