Четверг, 21.11.2024, 15:14
Приветствую Вас Гость | RSSГлавная | Регистрация | Вход
Меню сайта
Категории раздела
Субклассирование элементов управления [3]
Приёмы субклассирования различных элементов управления для расширения их функциональных возможностей.
Вспомогательные функции [4]
Полезные советы, которые могут пригодиться во всех областях программирования
Мультимедиа [2]
Советы по работе над различными мультимедийными приложениями.
Необычные приложения [1]
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Главная » Статьи » Программирование на Visual Basic » Вспомогательные функции

Размещение формы в правом нижнем углу экрана

При размещении формы в определённом месте экрана следует учитывать то, что у разных пользователей панель задач может располагаться не только внизу, но и вверху или сбоку. Часть экрана, которая не занята панелью задач, называется рабочей областью. Размер и расположение рабочей области можно определить с помощью API-функции SystemParametersInfo.

Private Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (ByVal uAction As Long, _
ByVal uParam As Long, ByRef lpvParam As Any, _
ByVal fuWinIni As Long) As Long

В качестве параметра uAction необходимо передать константу:

Private Const SPI_GETWORKAREA = 48&

Также нужно объявить пользовательский тип RECT:

Private Type RECT
 Left As Long
 Top As Long
 Right As Long
 Bottom As Long
End Type 'RECT

Все эти объявления нужно разместить в модуле формы в секции General / Declarations.
В процедуру Form_Load добавьте следующий код:

Private Sub Form_Load()
 Dim wa As RECT
 
 SystemParametersInfo SPI_GETWORKAREA, 0&, wa, 0&
 Me.Left = wa.Right * Screen.TwipsPerPixelX - Me.Width
 Me.Top = wa.Bottom * Screen.TwipsPerPixelY - Me.Height
End Sub 'Form_Load

Не забудьте свойству формы StartUpPosition присвоить значение vbStartUpManual (0).

Автор - Цзяофань

Категория: Вспомогательные функции | Добавил: Xiaofang (07.06.2009)
Просмотров: 2121 | Рейтинг: 0.0/0 |
Всего комментариев: 0
Форма входа
Поиск
Друзья сайта
Антология советской песни
Сайт управляется системой uCoz