PDA

View Full Version : بدست آوردن رزولیشن صفحه نمایش



VB6.0
یک شنبه 02 آذر 1382, 12:58 عصر
باسلام
آیا تابع خاصی رو برای بدست آوردن Resulation صفحه نمایش سراغ دارین؟

Abbas Arizi
یک شنبه 02 آذر 1382, 13:20 عصر
عرض صفحه:

Screen.Width / Screen.TwipsPerPixelX
طول صفحه:

Screen.Height / Screen.TwipsPerPixelY

modirmasool
دوشنبه 30 فروردین 1389, 19:52 عصر
باسلام
آیا تابع خاصی رو برای بدست آوردن Resulation صفحه نمایش سراغ دارین؟

این کدها رو تو یه دکمه کپی کنید:
Dim intWidth As Integer
Dim intHeight As Integer
intWidth = Screen.Width \ Screen.TwipsPerPixelX
intHeight = Screen.Height \ Screen.TwipsPerPixelY
MsgBox "Screen Resolution:" + vbCrLf + vbCrLf + Str$(intWidth) + " x" + Str$(intHeight), 64, "Info"