Form load event - can't see my labels or my image on my form
HI,
I have this code when it runs it opens a blank form (no image or labels) until after my code is done.
I want the form to show and label to say "Running" then label changes when completed.
Right now, using the code below - it opens a complety blank form and then adds my labels and image only when it's done.
Code:
Private Sub Form_Load()
Form1.Visible = True
Form1.Image1.Visible = True
Form1.Label1.Caption = "Starting Import"
Form1.Command1.Visible = False
Dim fso As New FileSystemObject
fso.CopyFile "\\WSIPR2\GSAP\TES_REMOTE\ITITES\ITIDATA\Ultidata.mdb", "\\GSDCSHR01\gsap\TES_Remote\ITITES\ITIDATA\Ultidata.mdb"
If Dir("\\GSDCSHR01\gsap\TES_Remote\ITITES\ITIDATA\Ultidata2.mdb") <> "" Then Kill _
"\\GSDCSHR01\gsap\TES_Remote\ITITES\ITIDATA\Ultidata2.mdb"
DBEngine.CompactDatabase "\\GSDCSHR01\gsap\TES_Remote\ITITES\ITIDATA\Ultidata.mdb", "\\GSDCSHR01\gsap\TES_Remote\ITITES\ITIDATA\Ultidata2.mdb"
Label2.Caption = "Finished Compact and Repair of MDB Files on GSDCSHR01"
Unload Me
End Sub
Re: Form load event - can't see my labels or my image on my form
The issue is the fact that you are doing it in the load event. Normally the form is not actually displayed until the load event is complete. You can use a refresh, visible or show method in the form load to force it to show before the event is complete.
Re: Form load event - can't see my labels or my image on my form
if it wasn't so extremely painful creating threads in VB 6, or even worse multi-threading, then I'd have suggested that. Or even the BackgroundWorker .NET component....
Re: Form load event - can't see my labels or my image on my form
A bit of overkill there but I suppose it would work. You only need one call to show or visible for your form. Refresh would be used once you updated display objects but you should be able to get it to work with a single me.refresh and a me.show
Bookmarks