Проблема с screen.width

[Tompson]

Всем доброго времени суток.

Имеется форма, которая должна торчать в правом нижнем углу экрана
На ней есть таймер, в котором обновляется содержимое формы, заодно и положение и размеры формы

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

Form1.Height = 200 * (cr + 1)
Form1.Top = Screen.Height - 330 * (cr + 1) - 500
Form1.Left = Screen.Width - Form1.Width


scalemode = 1-twip
проблема вот в чём: программа нормально работает, до того момента, как я запускаю какуюнибудь игруху с разрешением меньше чем разрешение рабочего стола. Форма оказывается в середине экрана, как будто разрешение экрана такое, как было в игре. причём перезапуск проги ничего не даёт.

[Cytron]

Узнавай размеры экрана заново через API.

[Tompson]

с API тоже проблема...

юзал GetSystemMetrics, так она что ширину что высоту экрана возвращает 1280, когда надо 1280х1024

есть ещё какиенибудь апи, чтобы разрешение глянуть?

[EUGY]

так она что ширину что высоту экрана возвращает 1280

Могу себе представить, как ты ее вызывал :)

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

Option Explicit
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SPI_GETWORKAREA = 48
Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1
Private Sub Form_Load()
   Dim rc As RECT
   Dim w As Long, h As Long
   w = GetSystemMetrics(SM_CXSCREEN)
   h = GetSystemMetrics(SM_CYSCREEN)
   Call SystemParametersInfo(SPI_GETWORKAREA, 0, rc, 0)
   MsgBox "рабочая зона" & rc.Right - rc.Left & " x " & rc.Bottom - rc.Top & vbCrLf _
    & "разрешение " & w & " x " & h
End Sub

[/quote]

[Tompson]

О_о жесть

спасибо большое:)