|
|
|
| Title | Scroll a TextBox to show new text |
|---|
| Keywords | scroll, scroll text, TextBox |
|---|
| Categories | Controls |
|---|
|
|
|
Use Text1.SelStart = Len(Text1.Text).
|
|
Private Sub Command1_Click()
Static count As Integer
Dim i As Integer
Dim txt As String
For i = 1 To 5
count = count + 1
txt = txt & "Line" & Str$(count) & vbCrLf
Next i
Text1 = Text1 & txt
End Sub
Private Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
End Sub
|
|
|
Formatted by
Neil Crosby
|
| |
 |
| |
|
