Automatically Scrolling to the bottom of a text box

[IceBreakerG]

Just outta curiosity, is there anyway i can get a text box to automatically scroll to the end when a text file is loaded into it? If i can get it to do that, then it'll make it alot more convenient for the people in my department that use the log viewer i made for my program. There's several thousand words in the file now.

[BShadow]

yes, there is...

Just set the selection starting point to the end of the text...

Text1.SelStart = Len(Text1.Text)

[IceBreakerG]

I tried doing that, but it's not working when the form loads. But if i reload the text file, it does work. Is there a way to get it work when the form loads? I tried it in 2 different places:

Dim lngCharacters As Long
    
    'Open log file for input so it can be loaded into the text
    'field.
    Open "G:\COMMON\AOPS\A-Ops Incidents Report\LOGS\Incident Report.txt" For Input As #1
        txtLogComments.Text = Input(LOF(1), 1)
        lngCharacters = LOF(1) / 8
        lblCharacters.Caption = lngCharacters & " Words Loaded"
    Close #1
    
    'Automatically Scroll to the bottom of the text display
    txtLogComments.SelStart = Len(txtLogComments.Text)

Thats the code from the form that actually has the text box on it. The other way i tried it is trying to do it from the form thats calling it which is the main form:

Load frmLogViewer
    'Automatically Scroll to the bottom of the text display
    frmLogViewer.txtLogComments.SelStart = Len(frmLogViewer.txtLogComments.Text)
    frmLogViewer.Visible = True

Does anyone know why it doesn't work from the formload event? And how can i get it to work from the formload event? Thanks.

[Muddy]

try refreshing:

txtLogComments.SelStart = Len(txtLogComments.Text)
txtLogComments.Refresh

[BShadow]

Originally posted by Muddy
try refreshing:

txtLogComments.SelStart = Len(txtLogComments.Text)
txtLogComments.Refresh

Hmm, good one, have to remember that one, don't know if it works though.

What you could do is place a timer on the form, set the interval to 1 microsecond and load the textboxt in it's event...

[Spajeoly]

Make sure you have Shadows code in the Change sub of the textbox also.

[BShadow]

By the way, remember that the text control can not have unlimited amound of characters. It's limitation can be found in the help or MSDN...

If you put in more characters than it can handel you get an overflow...