Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loading a Userform
Hi All,
I have a form that shows for about 5 seconds then unloads however when it shows up the form is just white is there a way for it to show the info on it my code is below,can someone help me? Jason Sub ShowForm() Userform1.Show End Sub Dim MyTime Private Sub UserForm_Activate() MyTime = Time x = MyTime y = 0 MyNum = TimeValue("00:00:05") Do Until y = 1 Z = x + MyNum If x + MyNum <= MyTime Then y = 1 End If MyTime = Time Loop If y = 1 Then UserForm1.Hide End If End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loading a Userform
Try putting your delay code into the userform initialize event instead. You
also hide the form, this does not unload it. Note: you could more simply use OnTime to initiate the delay e.g. ' in the user form code put this..... Private Sub UserForm_Initialize() Application.OnTime Now + TimeValue("00:00:05"), "fm_UnLoad" End Sub ' in a standard module use these to load / unload the form Sub fm_load() UserForm1.Show End Sub Sub fm_UnLoad() Unload UserForm1 End Sub -- Cheers Nigel "Jason Zischke" wrote in message ... Hi All, I have a form that shows for about 5 seconds then unloads however when it shows up the form is just white is there a way for it to show the info on it my code is below,can someone help me? Jason Sub ShowForm() Userform1.Show End Sub Dim MyTime Private Sub UserForm_Activate() MyTime = Time x = MyTime y = 0 MyNum = TimeValue("00:00:05") Do Until y = 1 Z = x + MyNum If x + MyNum <= MyTime Then y = 1 End If MyTime = Time Loop If y = 1 Then UserForm1.Hide End If End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loading a Userform
Try this
Private Sub UserForm_Activate() MyTime = Time x = MyTime y = 0 MyNum = TimeValue("00:00:05") Me.Repaint Do Until y = 1 Z = x + MyNum If x + MyNum <= MyTime Then y = 1 End If MyTime = Time Loop If y = 1 Then UserForm1.Hide End If End Sub -- HTH Bob Phillips (remove nothere from email address if mailing direct) "Jason Zischke" wrote in message ... Hi All, I have a form that shows for about 5 seconds then unloads however when it shows up the form is just white is there a way for it to show the info on it my code is below,can someone help me? Jason Sub ShowForm() Userform1.Show End Sub Dim MyTime Private Sub UserForm_Activate() MyTime = Time x = MyTime y = 0 MyNum = TimeValue("00:00:05") Do Until y = 1 Z = x + MyNum If x + MyNum <= MyTime Then y = 1 End If MyTime = Time Loop If y = 1 Then UserForm1.Hide End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Loading website from userform | Excel Programming | |||
Loading Userform | Excel Programming | |||
Failed userform loading and cause application crash | Excel Programming | |||
Loading UserForm gives error | Excel Programming | |||
Loading UserForm on start up. | Excel Programming |