wachten ipv doorgaan

[jvsoest]

Hallo,

Ik programmeer veel in VBA en VB, daarbij stuur ik veel andere programma's aan via objecten. Wat nog al eens gebeurt is dat het bij het openenvan het object, bijvb groupwise, VB(A) te snel doorgaat met code omdat het wat langer duurt voordat het object geïnitialiseerd is en aangestuurd kan worden.

Ik heb nu heel, simpel, een timer ingebouwd maar ik zoek eigenlijk iets professionelers. Een timer is ook ingesteld op tijd en als het toch weer langer duurt gaat het weer mis.

Ik wil dus pas verder met de cdoe als het object volledig geïnitialiseerd is!
Heeft iemand ervaring hier mee op tips? Hieronder een voorbeeldje:

Dim GWDDE As Object

Set GWDDE = CreateObject("GroupWiseCommander")

'verdere code wordt al gedraaid terwijl gwdde nog niet in orde is!

 

[Wigi]

Hoi

zie voor code bij Chip en Colo, beiden Excel MVP's.

Wigi

 

[jvsoest]

hoi,

Bedankt voor je reactie.
Ben gaan kijken maar heb nog niet dat ene voorbeeld gevonden waarbij Createobject gebruikt wordt maar misschien moet dat ook wel anders dan. Ik ga nog verder zoeken.

 

[Wigi]

Ik gebruik zelf de code onderaan deze pagina. Details ken ik er ook niet van.

Wigi

 

[jvsoest]

hoi bedankt,

onderstaande werkt niet voor mijn groupwise maar wel voor IE, seker omdat het microsoft is.
levert dit op :Object doesn't support this property or method (Error 438), ik zoek verder!

lPid = GetWindowThreadProcessId(ieMain.hwnd, lPid)

'Returns a handle to the process id
hProcess = OpenProcess(SYNCHRONIZE, False, lPid)

lRet = WaitForSingleObject(hProcess, INFINITE)

bRet = CloseHandle(hProcess)