Splash Screen

[vigge89]

I want to make a Splash Screen that after 5 seconds wuits itself and opens a new exe-file, but i dont know how to do becuase im a newbie in VB script....
Can anyone help me?

[Chris Marks]

On the form, add a timer. Once the form has been loaded, in the form_load() proc, enable it.

' In the Timer
Dim Run as Long
 
Run = Shell("C:\MyProgramme\FileName.exe")
Unload Me: End

Set the timers interval to 5000 (5 Secs)

[mendhak]

Add a timer, set it's interval to 5000

in the timer's event


Shell "c:\file.exe"
Unload me




PS: what's "wuits"?

[Chris Marks]

Actually, take out the unload me

[mendhak]

Mendhak Syndrome 2

[vigge89]

can u do something like:
open a file in the same map as the exe?
like: Shell "appdrive+appdir+file.exe"

[mendhak]

Originally posted by vigge89
can u do something like:
open a file in the same map as the exe?
like: Shell "appdrive+appdir+file.exe"

Shell App.Path & "filename.exe"

[peet]

Originally posted by mendhak


Shell App.Path & "filename.exe"

[pickybugboymode] Shell App.Path & "\filename.exe"[/pickybugboymode]

afternoon frog

[Armbruster]

Originally posted by peet


[pickybugboymode] Shell App.Path & "\filename.exe"[/pickybugboymode]

afternoon frog

Well . . . since you were being picky, I will too!!!! If your app is in the root of the c drive then app.path = C:\ so your code would try to open c:\\filename.exe ( I know cause this burned me once! )

So, it should be . . .

If right(app.path,1) = "\" then
   Shell App.Path & "filename.exe"
Else
   Shell App.Path & "\filename.exe"
End if

[peet]

geeeees Armbruster u'r the king of pickyness !!

[Armbruster]

Originally posted by peet
geeeees Armbruster u'r the king of pickyness !!

All bow before king anal

[peet]

Originally posted by Armbruster


All bow before king anal

bowing

then app.path = C:\ so your code would try to open c:\\filename.exe ( I know cause this burned me once! )

shame on u !

saving u'r app in the root of C