أجعل نموذجك ملأ الشاشة

السلام عليكم أخي الكريم :

الان نتطرق لشفرة تمكنك من جعل نموذجك كامل الشاشة :

التصريح :

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Const SM_CXSCREEN = 0 Const SM_CYSCREEN = 1 Const HWND_TOP = 0 Const SWP_SHOWWINDOW = &H40

الشفرة :

مثال بسيط على إستخدام هذه الشفرة :

1- إبدأ مشروع جديد .
2- أضف التصريح .
3- الشفرة السابقة الى الحدث Load الخاص بالنموذج .

جرب بريمجك ... تجد أنه سيفتح بحجم كامل الشاشة .

فـــــــائدة : ليس بالضرورة أن تضيف الشفرة السابقة لحدث التحميل Load بل يمكنك ايضا أن تضيف زر تحكم مثلا وتضيف الشفرة لزر التحكم حيث ان الشاشة لا يكبر حجمها الا اذا نقرت على الزر و هكذا ...

نتمنى لك النجاح و التوفيق دائما أن شاء الله ...