style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
"avbuiten" <As
href="mailto:a.v.buiten@hccnet.nl">a.v.buiten@hccnet.nl> wrote in
message
href="news:f1a15a9.0@WebX.maYIadrTaRb">news:f1a15a9.0@WebX.maYIadrTaRb...
stated before use DOEVENTS. The following code fragment solved you're problem
on my system.
Dim docs As Documents
Set docs = ThisApplication.Documents
Call
OpenDeleteAllSaveClose(AssemblyName)
Debug.Print docs.Count
DoEvents
'MsgBox "Click OK to continue(" & docs.Count, vbInformation 'Why do I
need this freaking MsgBox???
'Sleep 1000
Anton
Yields execution so that the operating system can process other
events.
Syntax
DoEvents( )
Remarks
The DoEvents function returns an
href="javascript:hhobj_4.Click()">Integer representing the number of open
forms in stand-alone versions of Visual Basic, such as Visual Basic,
Professional Edition. DoEvents returns zero in all other
applications.
DoEvents passes control to the operating system. Control is
returned after the operating system has finished processing the events in its
queue and all keys in the SendKeys queue have been sent.
DoEvents is most useful for simple things like allowing a user
to cancel a process after it has started, for example a search for a file. For
long-running processes, yielding the processor is better accomplished by using a
Timer or delegating the task to an ActiveX EXE component.. In the latter case,
the task can continue completely independent of your application, and the
operating system takes case of multitasking and time slicing.
Caution Any time you temporarily yield the
processor within an event procedure, make sure the
href="javascript:hhobj_5.Click()">procedure is not executed again from a
different part of your code before the first call returns; this could cause
unpredictable results. In addition, do not use DoEvents if other
applications could possibly interact with your procedure in unforeseen ways
during the time you have yielded control.
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
"avbuiten" <Sorry
href="mailto:a.v.buiten@hccnet.nl">a.v.buiten@hccnet.nl> wrote in
message
href="news:f1a15a9.2@WebX.maYIadrTaRb">news:f1a15a9.2@WebX.maYIadrTaRb...
about that. I thought you was trying the DOEVENTS suggestion, and solved it.
This may be not the best but it is a work around. I (or we) do not know
exactly why the DOEVENTS statement solve this problem, but i quess it is
processing all windows events/queues, and by doing that synchronize (multi
threaded) events of Inventor as well.
Anton