تحديد دقة عرض الشاشة في جهاز المستخدم

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

تحديد دقة عرض الشاشة في جهاز المستخدم

مُساهمة من طرف Coptic_Programmer في الجمعة يوليو 03, 2009 10:02 am

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

Dim x,y As Integer
x = Screen.Width / 15
y = Screen.Height / 15
If x = 640 And y = 480 Then MsgBox ('640 * 480')
If x = 800 And y = 600 Then MsgBox ('800 * 600')
If x = 1024 And y = 768 Then MsgBox ('1024 * 768')

Coptic_Programmer
مشرف برامج
مشرف برامج

المساهمات : 43
تاريخ التسجيل : 29/10/2008

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى