Musens koordinater

du kan jo bruge on mouse move eventen.

Nej. Det jeg gerne vil er, at når man flytter cursoren henover en label skifter den farve, og når man fjerner den får label\'en den oprindelige farve igen. Med mouse move eventen forbliver label\'en den nye farve.

så kan du bare lave en mouse move på formen :)

(brug et par boolean værdier så den ikke står og skifter farve hele tiden)

musens koordinator er x og y ?

eks.

Dim lab1, Form, lab2 As Boolean
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lab1 = False: lab2 = False: Form = True
color
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lab1 = True: lab2 = False: Form = False
Call color
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lab1 = False: lab2 = True: Form = False
Call color
End Sub

Private Sub color()
If Form = True Then: Label1.BackColor = &H8000000F: Label2.BackColor = &H8000000F
If lab1 = True Then: Label1.BackColor = &H80000001
If lab2 = True Then: Label2.BackColor = &H80000001

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = X
Label2.Caption = Y

If X = 3510 And Y = 2505 Then
    \'Funktion et!
End If

If X = 225 And Y = 225 Then
    \'Funktion to!
End If

End Sub

solle - giver det ikke et problem hvis man er over f.eks. en label ??? så er det jo ikke formen man refererer til.

hvis det SKAL være API-kald kan du bruge dette, men det er ikke serlig fedt. ;)

Option Explicit

Private Declare Function GetCursorPos Lib \"user32\" (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib \"user32\" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Function MouseOver(hWnd As Long) As Boolean
Dim ptMouse As POINTAPI
GetCursorPos ptMouse
    If WindowFromPoint(ptMouse.X, ptMouse.Y) = hWnd Then
      MouseOver = True
    Else
      MouseOver = False
    End If
End Function

Private Sub Form_Activate()
Do
  If MouseOver(Command1.hWnd) = True Then
    Command1.BackColor = &HFF0000 \'Blå
      Else
    Command1.BackColor = &HFF&    \'Rød
    End If
  DoEvents
Loop
End Sub

Private Sub Form_Load()
\'Command1.Style skal du sette til 1-Graphical
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

tak for hjælpen. Grunden til at jeg ikke selv kunne få det til at fungere var at jeg havde label\'en placeret bagest i ZOrder