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

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

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

التصريح :

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

الشفرة :

Dim cx As Long

Dim cy As Long

Dim RetVal As Long

' Determine if screen is already maximized.

If Me.WindowState = vbMaximized Then

' Set window to normal size

Me.WindowState = vbNormal

End If ' Get full screen width.

cx = GetSystemMetrics(SM_CXSCREEN) ' Get full screen

height.
cy = GetSystemMetrics(SM_CYSCREEN)

' Call API to set new size of window.

RetVal = SetWindowPos(Me.hwnd, HWND_TOP, 0, 0, cx, cy,

SWP_SHOWWINDOW)

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

1- إبدأ مشروع جديد .

2- أضف التصريح .

3- الشفرة السابقة الى الحدث Load الخاص بالنموذج .

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

فـــــــائدة : ليس بالضرورة أن تضيف الشفرة السابقة لحدث التحميل Load بل يمكنك ايضا أن تضيف

زر تحكم مثلا وتضيف الشفرة لزر التحكم حيث ان الشاشة لا يكبر حجمها الا اذا نقرت على الزر و هكذا ...

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