Hur kollar man på enklaste sätt om musen håller sig inom ens form? Kanske såhär:Mus inom form?
(helst oavsett om den pekar på själva formen eller på objekt som knappar osv)
Har testat med MouseOver, men det är ju endast om man inte pekar på något på formen och man kan inte känna av när musen lämnar fönstret, vilket är själva vitsen med det jag vill göra...
/JonteSv: Mus inom form?
Bara att lägga till en timer och en label.
<code>
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Dim cursorPos As POINTAPI, formRect As RECT
Call GetCursorPos(cursorPos)
Call GetWindowRect(Me.hwnd, formRect)
If ((cursorPos.X >= formRect.Left) And (cursorPos.X <= formRect.Right)) And ((cursorPos.Y >= formRect.Top) And (cursorPos.Y <= formRect.Bottom)) Then
Label1.Caption = "Innanför formen"
Else
Label1.Caption = "Utanför formen"
End If
End Sub
</code>
/Micke