Как ограничить перемещение курсора мыши -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.22.100.180]

Модераторы: SCINER, B.V.

Как ограничить перемещение курсора мыши

D[u]fa

Сообщ. #1 , 30.03.04, 16:26

Master

Рейтинг (т): 112

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

Сообщение отредактировано: Andrey_Kun - 07.04.04, 15:50

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0136 ] [ 16 queries used ] [ Generated: 28.04.24, 03:33 GMT ]