| Вопрос: Кто знает, кто поможет?... | Добавлено: 11.08.07 11:47 |
Автор вопроса:  werber | Web-сайт: www.werbersoft.ru
|
| Как узнать разрешение экрана, которое в данное время стоит у юзера? Не API ли нужно использовать? |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #1 | Добавлено: 11.08.07 11:55 |
|
Private Sub Form_Load() Dim wid As Integer Dim hgt As Integer wid = Screen.Width \ Screen.TwipsPerPixelX hgt = Screen.Height \ Screen.TwipsPerPixelY Label1.Caption = Format$(wid) & " x " & Format$(hgt) End Sub |
||
|
Номер ответа: 2 Автор ответа:  Игорь ICQ: 457394129 Вопросов: 52 Ответов: 133 |
Профиль | | #2 | Добавлено: 11.08.07 14:28 |
|
А можно так:
-в твипах Private Sub Form_Load() Dim wid As Integer Dim hgt As Integer wid = Screen.Width hgt = Screen.Height End Sub |
||
|
Номер ответа: 3 Автор ответа: ИгорьICQ: 457394129 Вопросов: 52 Ответов: 133 |
Профиль | | #3 | Добавлено: 11.08.07 16:47 |
|
А можно так:
-в твипах Private Sub Form_Load() Dim wid As Integer Dim hgt As Integer wid = Screen.Width hgt = Screen.Height End Sub |
||
|
Номер ответа: 4 Автор ответа: AlexandrusICQ: 496782368 Вопросов: 18 Ответов: 312 |
Web-сайт: Профиль | | #4 | Добавлено: 11.08.07 19:18 |
Это косячно работает Если изменить разрешение когда прога уже была запущена ,то значения будут предыдущие ,а не те ,что установил пользователь.
Надёжнее всё-таки API... и 100% результат. |
||
|
Номер ответа: 5 Автор ответа:  werberВопросов: 71 Ответов: 112 |
Web-сайт: Профиль | | #5 | Добавлено: 12.08.07 18:15 |
Alexandrus, a какое собственно API нужно использовать? Я только начал изучать API функции... 
P.S: Если не трудно, опиши не только название API, но и как с ней работать. |
||
|
Номер ответа: 6 Автор ответа: AlexandrusICQ: 496782368 Вопросов: 18 Ответов: 312 |
Web-сайт: Профиль | | #6 | Добавлено: 12.08.07 20:52 |
|
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0 'X Size of screen Const SM_CYSCREEN = 1 'Y Size of Screen dim XSize as integer dim YSize as integer И вызывай когда тебе нужно: XSize=GetSystemMetrics(SM_CXSCREEN) YSize=GetSystemMetrics(SM_CYSCREEN) Значения будут в пикселах. Нужно в твипах умножай соответственно на screen.TwipsPerPixelX и screen.TwipsPerPixelY Кстати с помощью этой функции можно кучу системной инфы вытянуть... |
||
Страница: 1 |