توسيع النموذج لملئ الشاشة - نسخة قابلة للطباعة

توسيع النموذج لملئ الشاشة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : توسيع النموذج لملئ الشاشة (/showthread.php?tid=8270)

توسيع النموذج لملئ الشاشة - shamal - 31-03-13

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

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

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

توسيع النموذج لملئ الشاشة - ناجي إبراهيم - 01-04-13

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

مبدئياً: يمكنك جعل النافذة تمللأ الشاشة بضبط الخاصية 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. نرجو الاستفادة و السلام.

توسيع النموذج لملئ الشاشة - shamal - 01-04-13

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

توسيع النموذج لملئ الشاشة - ALBRNS - 01-04-13

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

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

PHP كود :

Private Sub Form_Load()
Move 0, 0, Screen.Width, Screen.Height
End Sub

Private Sub Form_Resize()
Me.PaintPicture Me.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub 

بالتوفيق

توسيع النموذج لملئ الشاشة - ناجي إبراهيم - 01-04-13

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

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

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

سلام.

توسيع النموذج لملئ الشاشة - shamal - 01-04-13

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