11.01.2019, 14:47
Das ändert bei mir nichts. Das Label wird weiterhin nur sichtbar, wenn man über den linken Teil des Buttons fährt.
Die Aktivierung und Deaktivierung der Labels gefällt mir so aber generell nicht... man muss immer von bestimmten Seiten auf das Feld kommen, damit das Lable angezeigt wird, wieder verschwindet.
Die ControlTipText Funktion gefällt mir wesentlich besser - wenn sie größere Texte zulässt.
Die Aktivierung und Deaktivierung der Labels gefällt mir so aber generell nicht... man muss immer von bestimmten Seiten auf das Feld kommen, damit das Lable angezeigt wird, wieder verschwindet.
Die ControlTipText Funktion gefällt mir wesentlich besser - wenn sie größere Texte zulässt.
Code:
Private Sub RK1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X > 5 And Y > 5 And X < 70 And Y < 70 Then
Info1.Visible = 1
Info1.Caption = X & vbNewLine & Y
Info1.Caption = "Ich bin eine CheckBox" & Chr(10) & "und zeige beim Berühren einen Text mit Zeilenumbruch an." 'entsprechenden Text in Labelfeld Info 1 eintragen
Else
Info1.Visible = 0 ' Labelfeld Info1 ausblenden
End If
End Sub