المنتدى العام لشباب ديروط
اهلا بك في منتديات شباب ديروط هذه الرساله تفيد انك غير مسجل الرجاء التسجل لكي تستطيع المشاركه في المنتدي




 
الرئيسيةالتسجيلدخول

شاطر | 
 

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
محمد عبد الناصر
مدير المنتدى وصاحبه
مدير المنتدى وصاحبه
avatar

ذكر
عدد الرسائل : 237
العمر : 24
الموقع : http://shabab1dairout.yoo7.com
الهواية : كرة القدم
تاريخ التسجيل : 13/07/2008

مُساهمةموضوع: أجعل نموذجك ملأ الشاشة   السبت يوليو 19, 2008 11:11 am

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

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

التصريح :

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 بل يمكنك ايضا أن تضيف

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

نتمنى لك النجاح و التوفيق دائما أن شاء الله
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://shabab1dairout.yoo7.com
 
أجعل نموذجك ملأ الشاشة
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
المنتدى العام لشباب ديروط :: قسم الدروس والشروحات :: دروس الفيجوال بيزيك-
انتقل الى: