Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

MouseOver

Betrifft: MouseOver von: Dirk
Geschrieben am: 05.08.2014 18:17:47

Hallo zusammen,

ich hoffe einer der Experten kann mir weiterhelfen.
In meiner UF habe ich verschiedene Labelboxen, die
bei Mouse-Berührung den BackStyle ändern. Das Problem
liegt darin, daß beim Verlassen der Mouse wieder der
Ursprungszustand hergestellt werden soll.

Vielen Dank im Voraus

Dirk

Private Sub Label4_Mousemove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
 ByVal Y As Single)
    Label4.BackStyle = 1
End Sub

  

Betrifft: AW: MouseOver von: hary
Geschrieben am: 05.08.2014 18:42:52

Moin
Schau dir hier mal den letzten Thread von Nepumuk an.
https://www.google.com/url?q=https://www.herber.de/forum/archiv/640to644/641537_Mousemove_zuruecksetzen.html&sa=U&ei=BQnhU4vgJMq7ygOMooEo&ved=0CAUQFjAA&client=internal-uds-cse&usg=AFQjCNEXYlxyXJteHmspcKBBuXhBmz-5hA
gruss hary


  

Betrifft: AW: MouseOver von: Daniel
Geschrieben am: 05.08.2014 19:09:09

HI
wenn zwischen den Labels ein Zwischenraum ist, dann könnte das Rücksetzten über das MouseOver der Userform erfolgen.
Gruß Daniel