TextBox.MultiLine = True
14.01.2008 19:26:12
thomas.dreitz@gmx.de
ich hab ein Problem, bei dem mir Debuggen nicht mehr weiterhilft.
Zur Ausgabe eines bis zu ca. 120 Zeilen langen Protokolls habe ich in einem Formular eine TextBox definiert mit vertikalen Scroll-Balken und den Eigenschaften MultiLine = True und WordWrap = True.
Funktioniert so weit ganz gut, allerdings scrollt der Text nach einer Weile nicht mehr weiter, nach Ende des Programms ist allerdings der gesamte Protokolltext mittels Scrollen einzusehen.
Ich habe festgestellt, dass die Box immer an der jeweils gleichen Stelle "stehen bleibt", die allerdings je nach Protokolltext wiederum verschieden ist (also z.B. nicht ! etwa nach der 30. Zeile). Es betrifft auch nicht eine bestimmte Stelle des Programms, von der aus die Protokollfunktion aufgerufen wird.
Ich finde also keinen Ansatzpunkt, woran es liegen könnte.
Hier der Quelltext:
'* Durch Aufruf der Sub wird der Protokollsatz sukzessive erweitert und erneut ausgegeben
Sub Protokoll(Text As String)
UTB.SetFocus
UTB.Text = UTB.Text & Text & Chr$(10)
UTB.SelStart = Len(UTB.Text)
UTB.SetFocus
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
End Sub
Aufrufbeispiel:
Protokoll ("Gelöscht: " & CountDelete & " Zeilen von " & Sheets(i).Name)
Als Ereignisprozedur zur TextBox existiert:
Private Sub TextBox1_Change()
UTB.SelStart = Len(UTB.Text)
UTB.SetFocus
End Sub
Vielleicht weiß jemand einen Ansatzpunkt, wo ich den "Fehler" suchen muss.
Danke.