مکان نشانگر ماوس

[shahabbasic]

چطوری بفهمم ماوس بیرون از فرم است؟

[butterfly8528]

سلام دوست عزیز .

'www.arshamsoft.com

Option Explicit

Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim MouseEnter As Boolean

MouseEnter = (0 <= X) And (X <= Me.Width) And (0 <= Y) And (Y <= Me.Height)

If MouseEnter Then
Me.Caption = "Mouse In!"
Me.BackColor = vbRed
SetCapture Me.hWnd
Else
Me.Caption = "Mouse Out!"
Me.BackColor = vbButtonFace
ReleaseCapture
End If

End Sub


موفق باشید :لبخندساده:.