Местоположение формы - 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

ИИ для рефератов и докладов


  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

Оцени полезность:

13   голосов , оценка 4.077 из 5
Похожие ответы