View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
robotman robotman is offline
external usenet poster
 
Posts: 51
Default Spash screen on a Mac?

I can't get the timeout to work on the Mac.

To get around, I used conditional compiling with #IF so if the system
detects a Mac OS, it will expand the splash form to show a "Continue"
button that the user can press to continue. On the PC, I can show the
form modeless and just unload the form after waiting. See code
below...

If anyone has ideas on how to get a timeout to work on the Mac let me
know!

Thanks!

John

Here's a snippet:

#If Win32 Then
frmSplash.Height = 82
frmSplash.Show vbModeless
Wait 3 ' Wait 3 seconds (WAIT is a small custom sub to wait
designated number of secs)
Unload frmSplash
' automatic time out
#ElseIf Mac Then
frmSplash.Height = 105 ' Expand form to show "Continue" button
which unloads the form when pressed
frmSplash.Show
' Need separate mac processing to allow user to hit OK button
' since mac's can't show form modeless
#End If