Hallo,
ich habe ein Programm das herausfinden soll ob sich die Maus über einem bestimmten Label befindet oder nicht. (Ich habe nicht die Mouseover-Funktion benutzt da ich nicht weiß wie ich festellen kann ob sich die Maus nicht über dem Label befindet. Falls jemand weiß wie das geht wäre das auch ne Lösung.)
Hier nun der Codeausschnitt der Probleme bereitet:
Das Problem ist das der Bereich in dem die MsgBox erscheint ein Stück über dem Label liegt und jetzt ist die Frage wieso, da sie ja erscheinen soll wenn die Maus auf dem Label ist.
Gruß Ed
ich habe ein Programm das herausfinden soll ob sich die Maus über einem bestimmten Label befindet oder nicht. (Ich habe nicht die Mouseover-Funktion benutzt da ich nicht weiß wie ich festellen kann ob sich die Maus nicht über dem Label befindet. Falls jemand weiß wie das geht wäre das auch ne Lösung.)
Hier nun der Codeausschnitt der Probleme bereitet:
Visual Basic-Quellcode
- Private Sub Timer1_Timer()
- GetCursorPos p
- If p.X * Screen.TwipsPerPixelX - Me.Left > LItem.Left And p.X * Screen.TwipsPerPixelX - Me.Left < LItem.Left + LItem.Width _
- And p.Y * Screen.TwipsPerPixelY - Me.Top > LItem.Top And p.Y * Screen.TwipsPerPixelY - Me.Top < LItem.Top + LItem.Height Then
- MsgBox "Test"
- End If
- End Sub
Das Problem ist das der Bereich in dem die MsgBox erscheint ein Stück über dem Label liegt und jetzt ist die Frage wieso, da sie ja erscheinen soll wenn die Maus auf dem Label ist.
Gruß Ed