Сегодня я покажу как определить разрешение экрана с помощью WinAPI
Для этого у вас должна быть активирована утилита WinAPI Viewer (для исполнения исходника не обязательно, но если планируете использовать WinAPI то подключите)
Определяем расширение экрана с помощью WinAPI:
Option Explicit Private Declare Function GetDesktopWindow Lib "user32" () As Long 'Подключаем библиотеку пользовательского интерфейса Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long 'Определяем параметры Private Type RECT Left As Long 'Переменные для значений (лево) Top As Long '(верх) Right As Long '(право) Bottom As Long '(низ) End Type
Создаем управляющий элемент (кнопка) и Label(надпись)
Private Sub Command1_Click() Dim ddd As Long Dim SizeScreen As RECT ddd = GetWindowRect(GetDesktopWindow(), SizeScreen) Label1 = "Разрешение " & SizeScreen.Right & " x " & SizeScreen.Bottom End Sub
Comments ( 0 )