Textbox refresh

[engdernw]

I am running a macro in Word, doing in the background many modifications to the opened document. At the same time, the macro is updating a textbox displayed in the foreground window, to show all modifications done. This textbox acts a bit like a "progress window" when installing a new application (you may sometimes display the list of files that are being installed).

To send new information to the textbox, I am using the method
Textbox.value = Textbox.value & newtext

with newtext being a public string of characters to add.

I also add the line
Progression.TextBox1.SelStart = Len(Progression.TextBox1.Text)
to force the textbox to scroll to the end and hopefully refresh its display.

The problem that I have is that the textbox doesn't always refresh properly, or should I say, I know it is refreshing, but it actually "hangs" as if it was not responding and new text doesn't show up. It is only when the macro is done that all text displays properly and that I can check the textbox has been updated as it should have.

I have the feeling that this happens when the textbox receives lots of updates in a short period of time.
I tried to use the Repaint function, with no luck.
Any suggestion?

 

[Andrzejek]

Can you do:

Textbox.value = Textbox.value & newtext[blue]
Textbox.Refresh[/blue]

?

Have fun.

---- Andy

 

[engdernw]

I already tried, but this doesn't seem to exist. I have an error message saying "Method or data member not found", pointing to .Refresh...

 

[N1GHTEYES]

I almost never program in Word, but would a "DoEvents" help?

If, as you say, you have other things going on as well, there might simply be some contention, which DoEvents could relieve.

Tony

 

[engdernw]

Well, I just added a DoEvents, as someone else in another forum pointed this too! Great minds, you rock Tony!
It seems to be working indeed!
I still need to force the textbox to scroll down, though, when I am adding text. The current line
Progression.TextBox1.SelStart = Len(Progression.TextBox1.Text)
is not doing it...

 

[engdernw]

I updated the last line to
Progression.TextBox1.SelStart = Len(Progression.TextBox1.Value)
and everything is working as it should now...

Thanks all for your help!

 

[Andrzejek]

If Progression is the name of your Form, you may also try:
[tt]
Progression.TextBox1.SelStart = Len(Progression.TextBox1.Value)
Progression.Refresh
[/tt]
Just for kicks and giggles....

Have fun.

---- Andy

 

[engdernw]

Ha, that's an interesting one! Will definitely give it a try, though DoEvents works perfectly as well!
Thanks Andy!