Painting the screen

Good afternoon, all. I have posted a question similar to this one before, but I wanted to see if I could get some fresh ideas. I have written a rather large project to handle data entry. Some of the forms have a lot of controls on them, and I am trying to get this thing finished and out the door.

But I am having a big problem with the screen painting. When the app closes one form and opens another, it takes a minute for the entire form to paint the screen. It's just looks sloppy.

I have used the LockWindow and UnLockWindow API calls to manage the screen flicker on updates, but I can't seem to solve this other problem with the forms loading.

Is there a way I can have the things load when the program starts up without actually displaying the screen? Will that help with the problem?

Any suggestions would be appreciated. Thanks

Well, i dunno if it's any help but
you can do that!


let say you have a splash screen and 3 form to load

in a module, in the main sub do

VB Code:

Public Sub Main()
     Load frm1
     Load frm2
     Load frm3
     frmSplash.Hide
     Unload frmSplash
     frm1.Show
End Sub

and set your splash screen to your opening form of your project!

put a timer on it with 100 for intervall and put this

VB Code:

Private Sub Timer1_Timer()
     Timer1.Enabled = False
     Call Main
End Sub

i hope it help a bit!

Quote:

---

Originally posted by fllewis
it takes a minute for the entire form to paint the screen.

---

Wow, you must have a lot of controls!

I'm thinking that surely there is some way to make sure the form is finished doing its thing before it's actually shown.

frm1.Load
frm2.Load

will work, but it loads the forms before it has retrieved info from the db, which is a big problem. So that option is out.

Any other ideas?

well i don't know then!

what are you doiing!!
what type of control?
is it because of variant?
... can you use api!

and can't help you man!

Here is the routine it is running through...a user searches on one form, an SQL statement is dynamically built, and then I call this set of procedures:

If rsSearch.RecordCount = 1 Then
LockWindow (frmSearch.hWnd)
frmMain.Show
gintCompanyID = rsSearch!CompanyID
gintContactID = 0
rsSearch.Close
Set rsSearch = Nothing
CleanCompany
CleanContact
CleanHistory
CleanToDo
CleanJobs
FillCompanyInfo
FillHistory ("Company")
FillToDo ("Company")
FillJobs
FillContactList
DisableContactButtons
frmSearch.Hide
frmMain.MainTabs.Tab = 0
UnLockWindow
Else

Most of those routines are either ensuring that controls are cleared or loading them with data from a db. You can see I have used the API to try the LockWindow, but unfortunately, this doesn't work so well when you are moving between forms. Ideally, I would like to get some control of Windows through the API to make sure that the form is painted before I show it. I don't know that that is possible? Do you?

I don't want to have to migrate some of this project to C++, but it is looking like one of the few options I know of. It just looks to sloppy to see the thing paint from the top down!!!

Thanks..
........

VB Code:

If rsSearch.RecordCount = 1 Then 
'LockWindow (frmSearch.hWnd) 
gintCompanyID = rsSearch!CompanyID 
gintContactID = 0 
rsSearch.Close 
Set rsSearch = Nothing 
CleanCompany 
CleanContact 
CleanHistory 
CleanToDo 
CleanJobs 
FillCompanyInfo 
FillHistory ("Company") 
FillToDo ("Company") 
FillJobs 
FillContactList 
DisableContactButtons 
frmSearch.Hide 
frmMain.MainTabs.Tab = 0 
frmMain.Show 'what can't you show it here instead!!
'UnLockWindow 
Else

It doesn't matter where I call the frmMain.Show. I think what I am going to need is to get control of how VB paints the screen.

Surely there is a way around this.