Hi Sergio,
It may be cheap and dirty, but I like it. It could have it's uses when copying mutiple files, ect. It
appears that Randall Rath has come up with a solution as well. Check out the link I posted below.
🙂
-Josh
Sergio DeAlbuquerque wrote:
> Attached you will will a splash screen that I made up completely within
> AutoCAD VBA. No additional references to a status bar control needed. The
> basic idea is to use two labels, one on top of another. Set one labels to be
> sunken and the other to be raises. Change the color of the raised label to
> what you want. I used blue. Then within your procedure, start the width of
> the raised label as 0 and then index the width until completion. Here is
> some sample code to place in your procedure. You'll have to do some work in
> order for it to work for you.
>
> Public Sub Program_setup()
> Dim Steps as Integer
> Steps = 5
> For i=0 to Steps
> Start.Progress.Width = (Start.Label2.Width-2) / Steps * i
> DoEvents
> 'place code you want to execute
> Next i
> Unload Start
> End Sub
>
> "Progress" is the name of the raised label and Label2 is name of sunken
> label
> When the Splash screen form activates, it will call the Program_setup sub
> procedure.
>
> Just show the splash screen and everything should work on its own. The
> progress bar on this example will whip across very fast. You may not be able
> to notice it.
>
> Hope you like the cheap and dirty trick,
>
> Sergio DeAlbuquerque
> President
>
> Matrix Technical Services Inc.
> 172 N.Bicycle Path
> Selden, NY 11784
>
> Ph: 631-736-9001
> Fax: 631-696-8538
>
> http://www.matrixengg.com
>
[email protected]
> "CAD services, machine design, and VBA application development"
>
> ------------------------------------------------------------------------
> Name: Splash Screen.frm
> Splash Screen.frm Type: Visual Basic Form File (application/x-unknown-content-type-VisualBasic.Form)
> Encoding: quoted-printable
