أريد دالة API التي تعيد نفس القيمة ل Screen.Width

بسم الله الرحمن الرحيم

تحية طيبة

أن كنت فهمت قصدك فيمكنك استعمال الدالة GetMonitorInfo لتأدية ما تحتاجه

هل من الممكن أن توضح أكثر ردك

يعني ما الطريقة

ولك تحياتي

بسم الله الرحمن الرحيم

تحية طيبة

الدالة التي أخبرتك عنها تنفذ العديد من المهام و هذه إحداها بأبسط طريقة

ضع الكود التالي في وحدة نمطية Module

  

Public Type RECT

    Left As Long

    Top As Long

    Right As Long

    Bottom As Long

End Type

Public Type MONITORINFO

    cbSize As Long

    rcMonitor As RECT

    rcWork As RECT

    dwFlags As Long

End Type



Public Declare Function GetMonitorInfo Lib "user32.dll" Alias "GetMonitorInfoA" (ByVal hMonitor As Long, ByRef lpmi As MONITORINFO) As Long

Public Function MonitorEnumProc(ByVal Monitor As Long) As Long

    Dim MInf As MONITORINFO

    

    

    MInf.cbSize = Len(MInf)

    

    GetMonitorInfo Monitor, MInf

    

    MsgBox "Monitor Dimintions: " + CStr(MInf.rcMonitor.Right - MInf.rcMonitor.Left) + "x" + CStr(MInf.rcMonitor.Bottom - MInf.rcMonitor.Top)

    

End Function

و الكود التالي في نموذج مع زر أمر باسم command1

Private Sub Command1_Click()

    MonitorEnumProc 1

End Sub

و أخبرني بالنتيجة

مع العلم أننا افترضنا المنيتور 1 و لم نلجأ غلى استخراجه

الآن فهمت

العرض والطول في Screen.Width أو Screen.Height هو نفسه الذي نستخرجه بواسطة دالة API

لدي كود يقوم بذلك ولكن لم أعرف أن VB يسترجعه بدون استخدام الدالة

طيب بقي لنا Screen.TwipsPerPixelY ماذا تمثل ؟

وكيف نستخرجها ؟

بخصوص الكود الذي كتبته تظهر رسالة في آخرها 0×0

وأظن هناك خطأ ما

ولك تحياتي