رزولوشن؟

[ali_kolahdoozan]

رزولوشن صفحه در vb6 چطوری بدست میاد؟

[romina2006]

Private Sub Command1_Click()
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"
End Sub

یا


Private Declare Function GetSystemMetrics Lib "User32" (ByVal index As Long) As Long
Dim X As Long, Y As Long
Private Sub Command1_Click()
X = GetSystemMetrics(0)
Y = GetSystemMetrics(1)
MsgBox "Resolutions is : " & CStr(X) & " X " & CStr(Y)
End Sub

[Behrouz_Rad]

و یا می تونی:
یک کنترل SysInfo روی فرم قرار بدی و مقدار خواص WorkAreaHeight و WorkAreaWidth رو بررسی کنی.

موفق باشی.

[oVERfLOW]

نه
WorkArea بخشی از صفحه هست که توسط ToolBarها اشغال نشده
مثلا اگه شما Toolbar خاصی نصب نکرده باشی فقط بخشی که توسط Taskbar اشغال شده از کل صفحه کم می‌شه و بعدش مقدار باقی مانده برگردونده می شه

[ali_kolahdoozan]

مرسی حل شد مشگلم