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

دمعة فرح · 04-05-2003, 04:43 PM

ضع هذا الكود في Command مثلا .

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)

تحياتي

04-05-2003, 04:43 PM	رقم المشاركة : 19
دمعة فرح طرفاوي مشارك	معرفة دقة الشاشة عندك ضع هذا الكود في Command مثلا . 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) تحياتي توقيع دمعة فرح :