Set Cursor 2

[darkich]

Хочу сразу извинится у модераторов форума за то что не продолжаю начатаю тему - просто обычно туда не ходють
у меня вопрос такого плана: (мож кто знает...)
благодоря Cyrax'у получился кодик который центрирует курсор мыша над серединой нужного мне объекта (в данном случае над такстовым полем) независомо от положения формы и разрешения - код разместил в модуль он таков:

Option Explicit
Public Zapis, AllText, Primech As String

Private Type POINTAPI
x As Long
y As Long
End Type

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, _
ByVal y As Long) As Long

Private lpPoint As POINTAPI



Sub SetMouse()
Dim visota, shirina

With frmGlavn

visota = (.TxtSerial.Height / 2) / Screen.TwipsPerPixelY
shirina = (.TxtSerial.Width / 2) / Screen.TwipsPerPixelX

lpPoint.x = ((.Left + .TxtSerial.Left) + ((.Width - .ScaleWidth) / 2)) / _
Screen.TwipsPerPixelX + shirina

lpPoint.y = ((.Top + .TxtSerial.Top) + ((.Height - .ScaleHeight) - _
((.Width - .ScaleWidth) / 2))) / Screen.TwipsPerPixelY + visota

End With
Call SetCursorPos(lpPoint.x, lpPoint.y)

End Sub

вобщем то всё работает , но есть одна особенность - если я у формы
на которой размещается нужный мне объект выставляю свойство StartUpPosition как CenterScreen то курсор висит ужо в другом месте с погрешностью примерно в пикселов 15-20 по x координате и 5-10 по y.
кто-нибудь может объяснить сей феномен

[Cyrax]

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

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

Private Sub Form_Load()
    Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
End Sub

тоже не зависит от разрешения.

[darkich]

усё ясно
благодарствую за помощь!