Местоположение формы

[AaA]

Как программно расположить форму влевом верхнем углу, вправом верхнем углу, влевом нижнем углу и вправом нижнем углу.

[GSerg]

Углу чего?

[AaA]

В углу экрана

[BV]

Код: Выделить всё

Private Sub Form_Load()
    With Me
        .Top = Screen.Height - .Height - 500
        .Left = Screen.Width - .Width
    End With
End Sub

[GSerg]

Видимо, для этого сначала нужно узнать координаты углов экрана.
Какие есть идеи?

[AaA]

Код: Выделить всё

Private Sub Form_Load()
    With Me
        .Top = Screen.Height - .Height - 500
        .Left = Screen.Width - .Width
    End With
End Sub

Спасибо сейчас попробую

[hCORe]

SystemParametersInfo
с SPI_GETWORKAREA
и за работу

[hCORe]

Код: Выделить всё

Option Explicit

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_GETWORKAREA As Long = 48

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

Private Sub Form_Load()
    Dim tRCT As RECT
    SystemParametersInfo SPI_GETWORKAREA, ByVal 0&, VarPtr(tRCT), ByVal 0&
   
    'left top
    Me.Top = tRCT.Top * Screen.TwipsPerPixelY
    Me.Left = tRCT.Left * Screen.TwipsPerPixelX
   
    'left bottom
    Me.Top = (tRCT.Bottom - tRCT.Top) * Screen.TwipsPerPixelY - Me.Height
    Me.Left = tRCT.Left * Screen.TwipsPerPixelX
   
    'right top
    Me.Top = tRCT.Top * Screen.TwipsPerPixelY
    Me.Left = (tRCT.Right - tRCT.Left) * Screen.TwipsPerPixelX - Me.Width
   
    'right bottom
    Me.Top = (tRCT.Bottom - tRCT.Top) * Screen.TwipsPerPixelY - Me.Height
    Me.Left = (tRCT.Right - tRCT.Left) * Screen.TwipsPerPixelX - Me.Width
End Sub

[vvs_adm]

Как программно расположить форму влевом верхнем углу, вправом верхнем углу, влевом нижнем углу и вправом нижнем углу.

Самое простое :

Код: Выделить всё

   Me.WindowState = vbMaximized

Вот собственно и все

[tyomitch]

vvs_adm, так это во всех четырёх углах сразу получится

[Amed]

В четырех углах экрана по окну. Сколько всего окон?

[vvs_adm]

To Tyomitch Зато будет то, что он хотел... или во всяком случае то, что он спросил