shahabbasic
جمعه 18 شهریور 1390, 02:38 صبح
چطوری بفهمم ماوس بیرون از فرم است؟
butterfly8528
جمعه 18 شهریور 1390, 03:11 صبح
سلام دوست عزیز .
'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
موفق باشید :لبخندساده:.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.