vb, 클릭 후 ClipCursor가 실패하는 이유는 무엇입니까?

창의 RECT 정보가 변경되어 오류가 발생한 것 같습니다.

마우스가 양식의 테두리에 닿을 수 없도록 추가로 제한할 수 있습니다.

'두 개의 명령'

Private Declare Sub ClipCursor Lib "user32"(lpRect As Any)

Private Declare Sub GetClientRect Lib "user32"(ByVal hWnd As Long, lpRect as RECT)

Private Declare Sub ClientToScreen Lib "user32"( ByVal hWnd As Long, lpPoint As Long)

개인 선언 Sub OffsetRect Lib "user32"(lpRect As RECT, ByVal x As Long, ByVal y As Long)

개인 유형 RECT

왼쪽은 길게

위쪽은 길게

오른쪽은 길게

아래쪽은 길게

끝 유형

p>

Private Type POINT

x만큼 길게

y만큼 길게

End Type

Private Sub Command1_Click() ' 마우스 제한

클라이언트를 RECT로 흐리게

왼쪽 상단을 POINT로 흐리게

GetClientRect Me.hWnd, 클라이언트

upperleft.x = 클라이언트 .left

upperleft.y = client.top

ClientToScreen Me.hWnd, upperleft

OffsetRect 클라이언트, upperleft.x, upperleft.y

ClipCursor 클라이언트

End Sub

Private Sub Command2_Click() '제한 취소

ClipCursor ByVal 0&

End Sub

Private Sub Form_Unload(정수로 취소) '해제

ClipCursor ByVal 0&

End Sub