كيف ممكن أحدد طول وعرض الشاشة ؟

Screen.Width

And

Screen.Height

بارك الله فيك أخوي

وجزاك الله خير

لكن عندي لو تكرمت سؤال أخير : كيف أقدر أعرف طول الشريط السفلي ؟

يعني هذا الشريط إللي في الصورة المرفقة !!

والسموحة على كثرة الأسئلة

على ما اظن

سيكون من نفس عرض الشاشه

و لن تحتاج الى طريقه معينه لمعرفته كل ما عليك فعله هو استخدم

Screen.Width

كما ذكر لك الاخ msayed2004

أشكرك أخوي مصطفى على تعقيبك

لكن أنا أحتاج إلى معرفته علشان أتجاهله

أدري إنه من ضمن مساحة Screen.Width ، لكن المشكلة إني أحتاج إلى طول الشاشة بدون هذا الشريط

وألف شكر

شبه جسم كتب:

بارك الله فيك أخوي

وجزاك الله خير

لكن عندي لو تكرمت سؤال أخير : كيف أقدر أعرف طول الشريط السفلي ؟

يعني هذا الشريط إللي في الصورة المرفقة !!

والسموحة على كثرة الأسئلة

Option Explicit

Private Type RECT
	Left	As Long
	Top	 As Long
	Right   As Long
	Bottom  As Long
End Type


Private Const SPI_GETWORKAREA As Long = 48

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Sub Form_Load()
Dim lDesktopArea As RECT
Call SystemParametersInfo(SPI_GETWORKAREA, 0&, lDesktopArea, 0&)
Dim WorkAreaHeight As Long, WorkAreaWidth As Long
'APIs use pixels so we need to convert the results :
WorkAreaHeight = lDesktopArea.Bottom * Screen.TwipsPerPixelY
WorkAreaWidth = (lDesktopArea.Right - lDesktopArea.Left) * Screen.TwipsPerPixelX
MsgBox "Available Work Area Height : " & WorkAreaHeight & vbNewLine & "Available Work Area Width : " & WorkAreaWidth & vbNewLine & "TaskBar Height : " & Screen.Height - WorkAreaHeight & vbNewLine & " { Note : All the above values are in Twips }": Unload Me
End Sub

B)

أشكرك أخي الكريم

هذا هو المطلوب وزيادة