MouseMove nur über CheckBox

19.04.2025 18:33:09

Dieter(Drummer)

Guten Tag an alle.

Per MouseMove über CheckBox1, auf UserForm1, wird ein Text aus Label1.Caption, angezeigt. Das funktioniert.
Es soll aber nur MouseMove Text angezeigt werden, wenn die Maus über CheckBox1 ist. Wenn Maus nicht mehr über CheckBox1 ist, soll MouseMove nicht aktiv sein.
So soll dann auch wieder der Text, der auch auf UserForm1 ist, zu sehen sein. Ist das möglich?

Mit der Bitte um Hilfe, dass MouseMove nur gezeigt wird, wenn Mouse direkt übet CheckBox1 ist.

Gruß,
Dieter(Drummer)
Jetziger Code:

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

    With ActiveCell

         Label1.Caption = "  Vor Klick andere Zelle wählen. " & Chr(10) & "Aktive Celle: " & .Address(False, False)

    End With

End Sub

Muster Datei:
https://www.herber.de/bbs/user/177104.xlsm

AW: MouseMove nur über CheckBox

19.04.2025 18:47:50

Alwin Weisangler

Hallo Dieter,

so:



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

    Label1.Caption = "Bin nicht mehr über der Checkbox"

End Sub

Gruß Uwe

AW: MouseMove nur über CheckBox

19.04.2025 19:02:25

Dieter(Drummer)

Danke Uwe für Rückmeldung und Code,

das funktioniert so nicht. Der MouseMove, Caption Text, soll ja angezeigt werden, wenn Mouse über der CheckBox ist.
Der Caption Text soll aber nicht angezeigt werden wenn die Mouse sich nicht über der CheckBox befindet. dann soll wieder der Text auf UserForm zu sehen sein.

Gibt es da noch eine Lösung?

Gruß,
Dieter(Drummer)
Der jetzige Code, mit deiner Anpassung, geht so nicht:

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

    With ActiveCell

         Label1.Caption = "  Vor Klick andere Zelle wählen. " & Chr(10) & "Aktive Celle: " & .Address(False, False)

    End With



    Label1.Caption = "Bin nicht mehr über der Checkbox"

End Sub

AW: MouseMove nur über CheckBox

19.04.2025 19:16:53

Onur

https://www.herber.de/bbs/user/177105.xlsm

AW: MouseMove nur über CheckBox

19.04.2025 19:36:00

Alwin Weisangler

Hallo Dieter,

was hindert dich daran aus: "Bin nicht mehr über der Checkbox" -->"" zu machen damit der Text weg ist.

Gruß Uwe

AW: MouseMove nur über CheckBox

19.04.2025 21:22:59

volti

Hallo Dieter,

der Vorschlag von Uwe ist genau der richtige Weg. Du hast es nur nicht richtig umgesetzt.

Mit Object.Mousemove kann man feststellen, ob sich der Mauscursor über dem Objekt bewegt, aber nicht, ob er sich rausbewegt hat.

Deshalb brauchen wir ein zweites Objekt: Wenn hier der Mousemove stattfindet, kann es nicht mehr über der Checkbox sein.
Hier nutzen wir die Userform selbst, die auch Mousemove anbietet. Du musst also zwei Subs machen und nicht alles in eine packen.

PS: Deine Ansicht, Mousemoving abzuschalten, funktioniert bei diesen Objekten nicht. Wenn man das nicht will, nutzt man einfach diese SUbs nicht.

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

    With ActiveCell

         Label1.Caption = "  Vor Klick andere Zelle wählen. " & Chr(10) & "Aktive Celle: " & .Address(False, False)

    End With

End Sub



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

  Label1.Caption = " Bin nicht über mehr Checkbox!"

End Sub

Gruß
Karl-Heinz

AW: MouseMove nur über CheckBox

19.04.2025 21:53:52

Dieter(Drummer)

Danke Karl-Heinz.

Mit deinem Code wird aber dennoch nicht der Text, der in der UserForm ist, angezeigt, wenn die Maus nicht mehr über der CheckBox ist.
Der Text befindet sich ja in der Userform in Label1.

Ich überlege, ob ich MouseMove komplett raus nehme.
Gruß,
Dieter(Drummer)

AW: MouseMove nur über CheckBox

19.04.2025 22:07:28

volti

Hallo Dieter,

Du wolltest das sicher so haben.

Warum Du nicht die Checkbox breiter ziehst und dort den Text reinbringst, bleibt sicher Dein Geheimnis.

https://www.herber.de/bbs/user/177108.xlsm

Gruß KH

AW: Das klappt ....

19.04.2025 22:26:34

Dieter(Drummer)

Danke Karl-Heinz,

... einfach perfekt.

Herzlichen Dank an alle, die sich um mein Problem gekümmert haben.
Allen schöne Ostertage.

Gruß,
Dieter(Drummer)

AW: MouseMove nur über CheckBox

19.04.2025 19:48:48

Dieter(Drummer)

Hallo Uwe,

dein Vorschlg ist ja soweit ok. Aber es wird nicht der Text der Userform gezeigt, wenn die Mouse NICHT mehr über der CheckBox1 ist.
MouseMove, soll NUR möglich sein, wenn die Mouse sich in innerhalb des begrenzten Raumes der CheckBox befindet.

Hoffe ich habe es verständlich dargestellt.

Gruß,
Dieter(Drummer)

AW: MouseMove nur über CheckBox

19.04.2025 19:20:44

Onur

oder besser so:
https://www.herber.de/bbs/user/177106.xlsm

AW: MouseMove nur über CheckBox

19.04.2025 19:40:18

Dieter(Drummer)

Danke Onur für Rückmeldung und Code.

Leider geht es noch nicht so wie ich es gerne möchte.

Es soll der Text der Userform wird angezeigt werden, wenn die Mouse sich NICHT über der CheckBox befindet. Also soll dann auch kein MouseMove Caption der CchekBox angezeigt werden.

Evtl. gibt es ja noch eine Lösung.

Gruß,
Dieter(Drummer)

AW: MouseMove nur über CheckBox

19.04.2025 20:05:31

Onur

Was heisst DAS auf deutsch: "Es soll der Text der Userform wird angezeigt werden " ???

AW: MouseMove nur über CheckBox

19.04.2025 20:21:51

Dieter(Drummer)

Hallo Onur.

Wenn die Mouse nicht mehr über der ChecBox ist, soll der Text, der auf der UserForm ist, angezeigt werden.
Das ist der Text, der beim öffnen der UserForm auch angezeigt wird.

Gruß,
Dieter(Drummer)

AW: MouseMove nur über CheckBox

19.04.2025 20:24:49

Onur

DAS hier ist der Text, der beim Öffnen angezeigt wird (warum auch immer du das so gemacht hast):
"Private Sub UserForm_Activate()
'Userform am Zellenrand positionieren
'Abstand zum linken Tabellenblattrand
Me.Left = ActiveWindow.Left _
+ ActiveCell.Left _
+ ActiveCell.Width + 27.2
Me.Top = ActiveWindow.Top _
+ ActiveCell.Top + 159.5
End Sub
"

AW: MouseMove nur über CheckBox

19.04.2025 21:03:39

Dieter(Drummer)

Hallo Onur,

dafür gibt es keinen besonderen Grund, das war einfach nur so.

Mir geht es einfach nur darum. dass MouseMove nur den Caption Text der CheckBox anzeigt, wenn die Mouse sich über der CheckBox befindet! Ist die Mouse ausserhalb des Bereiches der CheckBox, soll die UserFom mit dem Text angezeigt werden. Im Grund soll doch nuer MouseMove etwas anzeigen, wenn die
Im Grunde soll doch nur eine Begrenzung von MouseMove möglich sein. Ist die Maus NICHT über der CheckBox, soll ganz normal die UserForm gezeigt werden.

Ich denke, dass ich es wohl verständlich angegeben habe.

Gruß,
Dieter(Drummer)

MouseMove nur über CheckBox

Forumthread: MouseMove nur über CheckBox

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

MouseMove nur über CheckBox

Forumthread: MouseMove nur über CheckBox

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread