powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как узнать текущее разрешение экрана ?
5 сообщений из 5, страница 1 из 1
Как узнать текущее разрешение экрана ?
    #32326179
Gri3ly
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Как узнать текущее разрешение экрана и развернуть гланое окно Аксцесс на весь экран?
...
Рейтинг: 0 / 0
Как узнать текущее разрешение экрана ?
    #32326190
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
В свойствах Shortcut'а:

Run: Maximized
...
Рейтинг: 0 / 0
Как узнать текущее разрешение экрана ?
    #32326201
Gri3ly
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А програмно никак?
и текущее разрешение экрана как узнать?
...
Рейтинг: 0 / 0
Как узнать текущее разрешение экрана ?
    #32329328
Фотография 4d_monster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Declare Function ShowWindow Lib  "user32"  (ByVal Hwnd As Long, ByVal State As ShowWindowConstant) As Boolean

Enum ShowWindowConstant
    SW_HIDE =  0 &
    SW_SHOWNORMAL =  1 &
    SW_NORMAL =  1 &
    SW_SHOWMINIMIZED =  2 &
    SW_SHOWMAXIMIZED =  3 &
    SW_MAXIMIZE =  3 &
    SW_SHOWNOACTIVATE =  4 &
    SW_SHOW =  5 &
    SW_MINIMIZE =  6 &
    SW_SHOWMINNOACTIVE =  7 &
    SW_SHOWNA =  8 &
    SW_RESTORE =  9 &
    SW_SHOWDEFAULT =  10 &
    SW_FORCEMINIMIZE =  11 &
    SW_MAX =  11 &
End Enum

Вызов:
ShowWindow application.hWndAccessApp ,SW_SHOWMAXIMIZED 
...
Рейтинг: 0 / 0
Как узнать текущее разрешение экрана ?
    #32329336
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Public Declare Function GetDeviceCaps Lib  "gdi32"  (ByVal hdc As Long, ByVal nIndex As Long) As Long
Public Declare Function GetDesktopWindow Lib  "user32"  () As Long
Public Declare Function GetDC Lib  "user32"  (ByVal hWnd As Long) As Long
Public Declare Function ReleaseDC Lib  "user32"  (ByVal hWnd As Long, ByVal hdc As Long) As Long
Public Const HORZRES =  8 
Public Const VERTRES =  10 

Public Function ScreenResol()
' Проверка разрешения экрана уставновленному значению и попытк азменит данное сво-тво
    Dim hdc         As Long, xRes, yRes
    hdc = GetDC(GetDesktopWindow())

    xRes = GetDeviceCaps(hdc, HORZRES)
    yRes = GetDeviceCaps(hdc, VERTRES)
    If xRes < 1024 Then DoCmd.OpenForm "ChangeResolution", acNormal, , , , acDialog    'Вызов настройки экрана
    ReleaseDC GetDesktopWindow(), hdc
End Function
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как узнать текущее разрешение экрана ?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]