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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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