AW: TextBox auf UserForm - Scrollbars IMMER sichtbar
22.05.2019 18:44:01
Michael
Hallo Zusammen,
Problem, bestimmt nicht elegant, aber gelöst.
In einem englischen Forum habe ich den Tip gesehen einen ControlTipText ein zu setzen um dem User damit deutlich zu machen das er evtl. Rollen muss (Text boxes do not show the scrollbars until they contain text that required scrolling - Please click the box and scroll down if you miss something)
Das hat mich jetzt auf die Idee gebracht die Textbox einfach beim UserForm_Initialize() zu überfüllen, somit quasi die Anzeige der Scrollbalken zu forcieren und damit man das nicht sieht hab ich ForeColor und BackColor identisch gemacht.
Private Sub UserForm_Initialize()
'Textbox überlisten damit sie direkt die scrollbalken anzeigt
TextBox_TestcaseDescription.ForeColor = RGB(224, 224, 224)
TextBox_TestcaseDescription.BackColor = RGB(224, 224, 224)
TextBox_TestcaseDescription.Value = "einfach so viele Zeichen hier rein packen bis meine _
TextBox überfüllt war um die Scrollbalken an zu zeigen"
TextBox_TestcaseDescription.SetFocus
' anschliessend die anderen Aktionen ausführen die beim UserForm_Initialize() stattfinden _
sollen
' und zum schluss die Textbox über meine Schleife wieder mit dem korrektem Text geladen und die _
Schriftfarbe wieder auf schwarz gesetzt. Auch den Focus kann man dann wieder auf ein anderes Feld legen
End Sub
Das ganze geht so schnell das der Benutzer Augenscheinlich nur eine Textbox mit Scrollbalken sieht auch wenn in der eigentlichen Textbox nur zwei Zeichen stehen.
Topic Closed - es sei denn jemand hat eine elegante Idee für mich, aber so wie ich das verstanden habe geht das erst mal nicht
PS: Ja ich weiß, von hinten durch die Brust ins Auge ;-)