• На форуме с 26 февраля 2009г.
  • Сообщений: 90
  • Спасибо: 1

Тема: Разрешение экрана

Скажите пожалуйста можно ли узнать разрешение экрана???
Мне необходимо чтобы программа его "знала", т.к. приходится работать на разных мониторах с разным разрешением!!

  • На форуме с 12 февраля 2009г.
  • Сообщений: 26
  • Спасибо: 0

Re: Разрешение экрана

Option Explicit

Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1

Sub Test()
    Dim xres As Long, yres As Long
    'Отобразим разрешение экрана - то есть, ширину и высоту экрана.
    xres = GetSystemMetrics(SM_CXSCREEN)
    yres = GetSystemMetrics(SM_CYSCREEN)
    Debug.Print "Экран имеет "; xres; "пикселов в ширину и "; yres; "пикселов в высоту."
End Sub

  • На форуме с 9 июня 2008г.
  • Сообщений: 47
  • Спасибо: 0

Re: Разрешение экрана

просто
Screen.Height
Screen.Width