Местоположение формы - VB
Формулировка задачи:
Доброго времени суток!
Как можно сделать, чтобы форма при появление, появлялась в углу экрана (у трея, например)?
Может какие либо особые значения для свойства StartUpPosition? Или еще чего там есть (только не использовать экран, в котором можно выбрать местоположение, поскольку под разные мониторы - поразному).Решение задачи: «Местоположение формы»
textual
Листинг программы
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinini As Long) As Long Const SPI_GETWORKAREA = 48 Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Sub Form_Load() Dim RC As RECT Dim X As Long X = SystemParametersInfo(SPI_GETWORKAREA, vbNull, RC, 0) Left = (RC.Right - RC.Left) * Screen.TwipsPerPixelX - Width Top = (RC.Bottom - RC.Top) * Screen.TwipsPerPixelY - Height End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д