Now you can create your own splash screens in MS Office 2003. I have shown an example in Excel. This can be modified slightly to work in MS-Word, MS-Powerpoint etc...
Create a userform. Name it say "frmSplash"
In the userform code window, paste this code
Code:
'Set this to true to close the form
Public CloseMe As Boolean
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = Not CloseMe
End Sub
I have used a button to start the flash, You can use a sub and call it form the button or even put it in the Workbook open event...
Code:
Sub KoolSplash()
Dim frm As frmSplash
Dim i As Integer
Dim j As Double
'-- Deactivate Keyboard.
Application.OnKey "^d", "KeyboardOn"
Application.DataEntryMode = True
'-- Display the Splash Form
Set frm = New frmSplash
frm.CloseMe = False
frm.KoolPrgBar.Value = 0 '-- KoolPrgBar is the progressbar
frm.Show False '-- Non Modal
'-- Perform your task here while splash is shown.
For i = 0 To 100 Step 10
frm.KoolPrgBar.Value = i
'-- Example -> I am killing time here... lol
'Replace it with your code
For j = 1 To 100000
DoEvents
Next j
Next i
'-- Close the Splash Form.
frm.CloseMe = True
Unload frm
'-- Re-Activate keyboard.
Application.DataEntryMode = False
End Sub
Project Attached...
A good exercise for the Heart is to bend down and help another up...
Please Mark your Thread "Resolved", if the query is solved
MyGear:
★ CPU ★ Ryzen 5 5800X
★ GPU ★ NVIDIA GeForce RTX 3080 TI Founder Edition
★ RAM ★ G. Skill Trident Z RGB 32GB 3600MHz
★ MB ★ ASUS TUF GAMING X570 (WI-FI) ATX Gaming
★ Storage ★ SSD SB-ROCKET-1TB + SEAGATE 2TB Barracuda IHD
★ Cooling ★ NOCTUA NH-D15 CHROMAX BLACK 140mm + 10 of Noctua NF-F12 PWM
★ PSU ★ ANTEC HCG-1000-EXTREME 1000 Watt 80 Plus Gold Fully Modular PSU
★ Case ★ LIAN LI PC-O11 DYNAMIC XL ROG (BLACK) (G99.O11DXL-X)
★ Monitor ★ LG Ultragear 27" 240Hz Gaming Monitor
★ Keyboard ★ TVS Electronics Gold Keyboard
★ Mouse ★ Logitech G502 Hero
Good work there Sid but since you are using the VB6 progresbar you may want to mention that systems without the microsoft common controls will need to have the vb6 redistributables installed on it
VB/Office Guru™ (AKA: Gangsta Yoda™ ®)
I dont answer coding questions via PM. Please post a thread in the appropriate forum.
Here is another example of creating a splash screen using Animation and The Timer API
Please unzip all the files in C:\temp before running.
Edit: I have used two images. If you want you can use more than that. Simply name the images 0.Gif, 1.Gif, 2.Gif and so on... Then Change the code in module to
vb Code:
Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, _