Scrolling text in a form

[MikeJarosz]

I am reading dwg files and extracting info from the title blocks. As there are almost 600 sheets in the set, I want to show the user my progress, but as I am using objectDBX, I can't use utility.prompt.

Msgbox requires the user to confirm, so it is out of the question for 600 sheets.

A locked form seems to be the best solution, but I can't figure out how to write a scrolling list of filenames to the form. I'm not sure what is the best control to use for the job, and the code to populate it dynamically from inside the read loop.

Of course, I could make do with a progress bar, but all the code I've seen uses an API call and some very complicated declarations.

[Ed Jobe]

Why can't you prompt to the command line? ObjectDbx is running in the background, but the host app is still available. Just be sure to use the escape char (vbCr) to overwrite the prev command line so you don't have fill up the text window.

[MikeJarosz]

It worked. I used

 
ThisDrawing.Utility.Prompt vbCr & Filename & "	  "

I need the spaces because VBA doesn't clear the previous filename, which may have been longer.

One problem remains: after I'm done, the command prompt does not reappear. I tried to prompt with the escape character, chr$(27) and I also tried SendKeys chr$(27). Neither worked. How can I clear the command line?

[Ed Jobe]

I wrote the following sub to address that. Use it at the end, like:
CommandLine "Finsished processing."

Sub CommandLine(msg As String)
    ThisDrawing.Utility.Prompt (msg & vbCrLf & "Command: ")
End Sub

[MikeJarosz]

I wrote the following sub to address that. Use it at the end, like:
CommandLine "Finsished processing."

Sub CommandLine(msg As String)
ThisDrawing.Utility.Prompt (msg & vbCrLf & "Command: ")
End Sub

Is it really that simple? Fake the command prompt?

[Ed Jobe]

Yes. The command line is still there and functioning, you just overwrote the prompt with vbCr. Its not like the DOS prompt.