|
|
|
|
|
|
Теги |
| |
codeserfercom, Linux, nbspnbsp, Private, Visual, Возможность, Пример, Рассмотрим, Сегодня, Теперь, будет, данных, значение, который, может, можно, написать, например, очень, переменной, переменных, пользователя, помощью, программа, программирования, программы, просто, работы, разработки, решил, сделать, скрипт, строки, строку, также, только, функции, число, этого, языка
Показать все теги
|
|
|
| |
|
|
|
|
|
|
|
|
| |
Сегодня я покажу как определить разрешение экрана с помощью WinAPI Для этого у вас должна быть активирована утилита WinAPI Viewer (для исполнения исходника не обязательно, но если планируете использовать 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
Исходник |
|
| |
Что-то не получается? Не понятна какая-то часть кода? Напишите комментарий об этом и мы обязательно Вам все объясним!
Обязательно напишите отзыв о программе / учебнике. Для выражения благодарностей есть кнопка:
Своё Спасибо, еще не выражали.
|
| |
| |
Просьбы перезалить в комментариях принимаются |
| |
|
|
| |
Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь. Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем. |
|
| |
Другие коды по теме: |
|
| |
Нахождение всех совершенных чисел от 1 до nОбращение к WhoIs для IP на PHPГалерея изображенийМагические исчезновенияВсплывающая подсказка |
|
|
© 2008 - 2010. Копирование материалов запрещено! |
|
|
