تحديد دقة عرض الشاشة في جهاز المستخدم
صفحة 1 من اصل 1
تحديد دقة عرض الشاشة في جهاز المستخدم
من طرف 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')
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
مواضيع مماثلة» تشغيل حافظة الشاشة (سكرين سيفر)
» تحديد ما إذا كان تاريخان في نفس الشهر أم لا
» تحديد النص في صندوق النص ذاتياً عند الضغط على زر مثلاً
» تحديد ما إذا كان تاريخان في نفس الشهر أم لا
» تحديد النص في صندوق النص ذاتياً عند الضغط على زر مثلاً
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى