المنتدى العام لشباب ديروط
اهلا بك في منتديات شباب ديروط هذه الرساله تفيد انك غير مسجل الرجاء التسجل لكي تستطيع المشاركه في المنتدي
المنتدى العام لشباب ديروط
اهلا بك في منتديات شباب ديروط هذه الرساله تفيد انك غير مسجل الرجاء التسجل لكي تستطيع المشاركه في المنتدي
المنتدى العام لشباب ديروط
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.




 
الرئيسيةأحدث الصورالتسجيلدخول

 

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

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


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

أجعل نموذجك ملأ الشاشة Empty
مُساهمةموضوع: أجعل نموذجك ملأ الشاشة   أجعل نموذجك ملأ الشاشة Icon_minitimeالسبت يوليو 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 بل يمكنك ايضا أن تضيف

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

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

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