أريد كود لمعرفة دقة عرض الشاشة الحالية
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
راسلنى على
دقة الشاشة
مغلق
اخي العزيز
ضع هذا الكود في حدث Load لنموذج
ResWidth = Screen.Width \ Screen.TwipsPerPixelX
ResHeight = Screen.Height \ Screen.TwipsPerPixelY
ScreenRes = ResWidth & "x" & ResHeight
MsgBox (ScreenRes)
وارجو ان يفيدك بإذن الله
:)
اقتباسلا تنسوا محمد الدرة وايمان حجو وفارس عودة ....
لا تنسوا القدس وبغداد وبيروت والشيشان ....
ولا تنسوا الشيخ ياسين ود. الرنتيسي وشهداء القضية
اقتباسلو هدوا بيتي منا خايف لو كسروا عظامي انا زاحف
مواضيعي بالمنتدي
(2) جميع رسائل الخطأ التي قد تظهر عند تشغيل مشروعك في ملف واحد
(3) كيف تنشأ اسم مستخدم وكلمة مرور بصلاحيات معينة لبرنامجك
(4) برنامج لمعرفة الــ ASCII كود لأي مفتاح على لوحة المفاتيح
(5) مثال على نقل عناصر من List Box إلى أخرى مع الترتيب (الفرز)
(6) مثال لتفقيط المبالغ المالية بالحروف
اللهم ارحم والداى كما ربياني صغيراً
ًWelcome Back
كود الأخ black_boxer يكفى بس كأضافة بسيطة الموديول ده فيه كل اللى أنت عايزه عن دقة الشاشة : http://www.arabteam2000.com/Default.asp?ID=350&Sec=7
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
جزاكم الله خيراً على هذا المجهود العظيم
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
راسلنى على
تفضل يا باشا
Dim intWidth As Integer Dim intHeight As Integer intWidth = Screen.Width \ Screen.TwipsPerPixelX intHeight = Screen.Height \ Screen.TwipsPerPixelY MsgBox "Screen Resolution:" + Str$(intWidth) + " x" + Str$(intHeight
Ala2 VB
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein
هذا الموضوع مغلق.