Splash Screen Timing

[Shazi]

Dear Sir,

I am preparing VBA program and I made a procedure for the Splash
Screen when Excel Loads.

Pls find below my procedure for the Userform of Splash Screen.


'=======================================
Option Explicit

Private Sub UserForm_Click()
Unload Me
End Sub

Private Sub UserForm_Activate()

Application.DisplayFullScreen = True
Application.CommandBars("Worksheet Menu Bar").Enabled = False

Dim dTime As Date
Dim i As Integer
For i = 1 To 100 Step 100 / 12
dTime = Now + TimeValue("0:00:01")
Application.Wait TimeValue(dTime)
ProgressBar1.Value = i
Next i

End Sub

Private Sub Userform_Initialize()

Label3.Caption = Format(Now, "dddd d mmmm yyyy hh:mm:ss")
HideTitleBar Me

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
Integer)

If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox Prompt:=" Sorry but I can't let you do that. "
End If
End Sub

'==========================================

My problem is this I want to reduce the time for it, currently it
displays for 12 seconds, but I want to display this splash screen only
for 5 seconds and then close.

Pls tell me how to reduce the time to 5 seconds.

Waiting for your response.

Regards.

Syed Shahzad Zafar
Madinah
KSA.

 

[Office_Novice]

Try this instead,
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub UserForm_Activate()
DoEvents
Sleep 5000
Unload Me
End Sub
Place the above in you userform module. Your splash screen will stay visable
for 5 sec note, you will have to trigger the userform in an event i.e
Workbook_open() or what ever.

 

[Shazi]

Try this instead,
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub UserForm_Activate()
     DoEvents
     Sleep 5000
     Unload Me
End Sub
Place the above in you userform module. Your splash screen will stay visable
for 5 sec note, you will have to trigger the userform in an event i.e
Workbook_open() or what ever.




















- Show quoted text -

Hi,

I tried your procedure, but my Progress Bar in the UserForm is not
working. it is stoped at all.

How to control ProgressBar to 5 seconds.

Regards

Shahzad

 

[PaulD]

change the 12 to a 5

Dim dTime As Date
Dim i As Integer
For i = 1 To 100 Step 100 / 5 '<-this number sets the approx number of
seconds
dTime = Now + TimeValue("0:00:01")
Application.Wait TimeValue(dTime)
ProgressBar1.Value = i
Next i

Paul D

:
: Dear Sir,
:
: I am preparing VBA program and I made a procedure for the Splash
: Screen when Excel Loads.
:
: Pls find below my procedure for the Userform of Splash Screen.
:
:
: '=======================================
: Option Explicit
:
: Private Sub UserForm_Click()
: Unload Me
: End Sub
:
: Private Sub UserForm_Activate()
:
: Application.DisplayFullScreen = True
: Application.CommandBars("Worksheet Menu Bar").Enabled = False
:
: Dim dTime As Date
: Dim i As Integer
: For i = 1 To 100 Step 100 / 12
: dTime = Now + TimeValue("0:00:01")
: Application.Wait TimeValue(dTime)
: ProgressBar1.Value = i
: Next i
:
: End Sub
:
: Private Sub Userform_Initialize()
:
: Label3.Caption = Format(Now, "dddd d mmmm yyyy hh:mm:ss")
: HideTitleBar Me
:
: End Sub
:
: Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
: Integer)
:
: If CloseMode = vbFormControlMenu Then
: Cancel = True
: MsgBox Prompt:=" Sorry but I can't let you do that. "
: End If
: End Sub
:
: '==========================================
:
: My problem is this I want to reduce the time for it, currently it
: displays for 12 seconds, but I want to display this splash screen only
: for 5 seconds and then close.
:
: Pls tell me how to reduce the time to 5 seconds.
:
: Waiting for your response.
:
: Regards.
:
: Syed Shahzad Zafar
: Madinah
: KSA.

 

[Shazi]

change the 12 to a 5

 Dim dTime As Date
    Dim i As Integer
    For i = 1 To 100 Step 100 / 5 '<-this number sets the approx number of
seconds
    dTime = Now + TimeValue("0:00:01")
    Application.Wait TimeValue(dTime)
    ProgressBar1.Value = i
    Next i

Paul D


:
: Dear Sir,
:
: I am preparing VBA program and I made a procedure for the Splash
: Screen when Excel Loads.
:
: Pls find below my procedure for the Userform of Splash Screen.
:
:
: '=======================================
: Option Explicit
:
: Private Sub UserForm_Click()
:    Unload Me
: End Sub
:
: Private Sub UserForm_Activate()
:
:    Application.DisplayFullScreen = True
:    Application.CommandBars("Worksheet Menu Bar").Enabled = False
:
:    Dim dTime As Date
:    Dim i As Integer
:    For i = 1 To 100 Step 100 / 12
:    dTime = Now + TimeValue("0:00:01")
:    Application.Wait TimeValue(dTime)
:    ProgressBar1.Value = i
:    Next i
:
: End Sub
:
: Private Sub Userform_Initialize()
:
:    Label3.Caption = Format(Now, "dddd d mmmm yyyy hh:mm:ss")
:    HideTitleBar Me
:
: End Sub
:
: Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
: Integer)
:
:    If CloseMode = vbFormControlMenu Then
:    Cancel = True
:    MsgBox Prompt:=" Sorry but I can't let you do that. "
:    End If
: End Sub
:
: '==========================================
:
: My problem is this I want to reduce the time for it, currently it
: displays for 12 seconds, but I want to display this splash screen only
: for 5 seconds and then close.
:
: Pls tell me how to reduce the time to 5 seconds.
:
: Waiting for your response.
:
: Regards.
:
: Syed Shahzad Zafar
: Madinah
: KSA.

Hi,

I changed 12 to 5 seconds. now it is working excellent.

Thanks for your support.

Regards.

Shahzad