Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Евгений Ипатов -

Visual Basic 5.0/6.0 - Система

Все примеры / Система

Количество цветов и разрешение экрана

Автор: Евгений Ипатов | добавлено: 06.03.2010, 12:34 | просмотров: 1583 (1+) | комментариев: 0 | рейтинг: *x0
Пример показывает, как определить количество цветов в системе и разрешение экрана.

Код

Private Declare Function GetDeviceCaps Lib "gdi32" _
(ByVal hDC As Long, ByVal nIndex As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" _
(ByVal hwnd As Long, ByVal hDC As Long) As Long
Const HORZRES = 8
Const VERTRES = 10
Const BITSPIXEL = 12

Public Sub GetVideoMode()

End Sub


Private Sub Command1_Click()
Dim xWidth As Long, xHeight As Long, xDepth As Long, hDC As Long
hDC = GetDC(GetDesktopWindow())
xWidth = GetDeviceCaps(hDC, HORZRES)
xHeight = GetDeviceCaps(hDC, VERTRES)
xDepth = GetDeviceCaps(hDC, BITSPIXEL)
ReleaseDC GetDesktopWindow(), hDC
Print hDC, xWidth, xHeight, xDepth
End Sub
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Евгений Ипатов

Нет информации об авторе...

См. также:
Профиль автора
Евгений Ипатов
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики