Форма в углу экрана?

[GPP]

Здравствуйте! Как программно сделать так чтобы при старте формы она появлялась в правом верхнем углу экрана?

[alibek]

Move

[netdemon]

Здравствуйте! Как программно сделать так чтобы при старте формы она появлялась в правом верхнем углу экрана?

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


Sub Form_Load()

Me.Move Screen.Width - Me.Width, 0    ' Верхний правый угол
Me.Move 0, 0                                     ' Верхний левый угол
Me.Move 0, Screen.Height-Me.Height    'Нижний левый
Me.Move Screen.Width - Me.Width, Screen.Height-Me.Height ' НИжний правый
End Sub



[burik]

ИМХО, неплохо учесть высоту Task Bar'а, а то окно за ним скрывается.

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

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

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

Private Sub Form_Load()
Dim taskRECT As RECT, Result As Long

    Result = FindWindow("Shell_TrayWnd", "")
    Result = GetWindowRect(Result, taskRECT)

    Me.Move Screen.Width - Me.Width, 0    ' Верхний правый угол
    Me.Move 0, 0                                     ' Верхний левый угол
    Me.Move 0, Screen.Height - Me.Height - (Screen.Height / 800) * (taskRECT.Bottom - taskRECT.Top) 'Нижний левый
    Me.Move Screen.Width - Me.Width, Screen.Height - Me.Height - (Screen.Height / 800) * (taskRECT.Bottom - taskRECT.Top) ' НИжний правый

End Sub

[netdemon]

burik

Согласен. Так намного лучше

Только одно но.

Вот это фигня:

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


Me.Move 0, Screen.Height - Me.Height -(Me.Height\800)* (taskRECT.Bottom - taskRECT.Top)  ' Нижний правый
    Me.Move Screen.Width - Me.Width, Screen.Height - Me.Height - (Me.Height\800)*(taskRECT.Bottom - taskRECT.Top)  ' Нижний левый


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



Надо так:

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



  Me.Move 0, Screen.Height - Me.Height - (taskRECT.Bottom - taskRECT.Top) * Screen.TwipsPerPixelY ' Нижний правый
    Me.Move Screen.Width - Me.Width, Screen.Height - Me.Height - (taskRECT.Bottom - taskRECT.Top) * Screen.TwipsPerPixelY ' Нижний левый



[Arcady_XQST]

Хе-хе! А если таскбар вверху/слева/справа?

[Хакер]

SPI_WORKAREA.

[t116]

Если подробнее, то

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

Dim R As RECT
Call SystemParametersInfo(SPI_GETWORKAREA, 0, R, 0)
Me.Move (R.Right * Screen.TwipsPerPixelX) - Me.Width, R.Top * Screen.TwipsPerPixelY

[burik]

Я только идею высказал.. Имея RECT taskbar'a можно определить где он находится. Автору остается только додумать и реализовать.
P. S. netdemon, сморозил слегка..

[netdemon]

Я только идею высказал.. Имея RECT taskbar'a можно определить где он находится. Автору остается только додумать и реализовать.
P. S. netdemon, сморозил слегка..

И где же я сморозил? Там где заменил твоЁ

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



(Me.Height\800)


на

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


* Screen.TwipsPerPixelY



Так что сморозил ты. Имея RECT Таск Бара ему придётся ещё и проверять где он. А имея RECT рабочей области Десктопа. Ему надо будет ТОлько подставить эти значения в мой код вместо Screen.Width , Screen.Height. И вместо Координат начальных координат (нулей).

Так что Хакер и t116 Предложили самый правильный вариант.

А эта фигня у меня не работает

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


(Me.Height\800)


Потомучто у меня разрешение экрана 1280х960

[burik]

netdemon, извини, но ты не понял.. Я имел ввиду что я сморозил слегка..