|
Guten Morgen!
Ich glaube selber proggen steht für eigenen Code erstellen. :-)
Also den ControlTipText kannst du zwar festlegen aber anscheinend nicht beeinflußen, wenn die Textbox inaktiv ist. Auch mit Mousover und aktivieren klappt es wohl nicht.
Eine Lösungsmöglichkeit wäre, da wo der ControlTipText "entstehen" würde ein Label anzulegen und dort schon den Text reinzuschreiben der angezeigt werden soll (inkl. der gewünschten Formatierungen). Das Label setzt du auf visible = false.
Im Codeteil der Userform fügst du dann dein:
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X < 18 Or X > 138 Or Y < 42 Or Y > 72 Then UserForm1.Label1.Visible = False
If X > 18 And X < 138 And Y > 42 And Y < 72 Then UserForm1.Label1.Visible = True
End Sub
Die Werte bei X und Y sind die Rahmenweite der Textbox1 (die enabled ist). Erste X Wert ist der Left Wert, zweite X Leftwert + Width, Erste Y ist Top zweite Y ist Top + Height.
Wenn du dann mit der Mause über die Textbox gehst, wird das Label1 (dein immitierterer TipText) eingeblendet. Gehst du raus, ist er weg.
Gruß
|