Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=49795&view=findpost&p=327892 Tue, 30 Mar 2004 16:26:59 +0000 Как ограничить перемещение курсора мыши https://forum.sources.ru/index.php?showtopic=49795&view=findpost&p=327892
    Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
     
    Private Type TRect
       Left As Long
       Top As Long
       Right As Long
       Bottom As Long
    End Type
     
    Private Function LockCursor(X, Y, Width, Height) As Long
       Dim rct As TRect
       rct.Left = X
       rct.Top = Y
       rct.Right = X + Width
       rct.Bottom = Y + Height
       LockCursor = ClipCursor(rct)
    End Function
     
    Private Sub Form_Load()
       LockCursor 0, 0, 50, 50
    End Sub
]]> Dufa Работа с мышью