VB - Warten auf Objekterstellung

Question

Ich versuche, das Beispiel für den externen Zugriff auf ein RhinoScript-Modul aus Excel (in meinem Fall Excel 365 unter Windows 10) mit einer Standardmethode zu folgen.

Dim Rhino As Object 
Dim RhinoScript As Object 

Set Rhino = CreateObject("Rhino4.Application") 
Set RhinoScript = Rhino.GetScriptObject() 

Aber ich renne in einen „Runtime 424 - Objekt erforderlich“ Fehler in der letzten Zeile.

Das Problem scheint zu sein, dass GetScriptObject nicht darauf wartet, dass CreateObject vollständig ausgeführt wird, denn während Rhino4 gestartet wird, fordert mich die Benutzerkontensteuerung von Windows 10 dazu auf, dem Updater Änderungen am System zu erlauben, bevor er hochfährt die GUI. Wenn ich diese Anweisungen debugge und zeilenweise gehe, damit Rhino4 Zeit hat, vollständig zu starten, bevor GetScriptObject eintrifft, funktioniert alles. Gibt es also Möglichkeiten, GetScriptObject warten zu lassen, bis Rhino4 vollständig gestartet ist? Ich habe versucht, eine Schleife einzurichten, die Rhinos Wert überprüft (Nichts?), Aber es fällt sofort durch. Ich bin ein wenig neu in VB, also entschuldige mich für eine Frage, die ein Neuling sein könnte.

Danke,

Matt

Answer 1

Ich weiß nichts von dem Rhino-API gibt kann ein besserer Weg, dies zu tun.

Wenn Sie wissen , dass die Laufzeitfehler durch verursacht wird, was Sie beschreiben, und dass Rhino.GetScriptObject ist schließlich gelingen würde, können Sie Schleife, bis es funktioniert:

Dim iterations As Integer 'max value: 32,767 
Do 
    iterations = iterations + 1 'will *eventually* overflow if loop keeps failing 
    On Error Resume Next 'switch off error handling 
    Set RhinoScript = Rhino.GetScriptObject 
    On Error GoTo 0 'restore error handling (IMPORTANT!) 
    If Err.Number <> 0 And Err.Number <> 424 Then Err.Raise Err.Number ' rethrow 
    Err.Clear 
    DoEvents ' so that the host app remains responsive while the loop runs 
While RhinoScript Is Nothing 

Hinweis das erneute Anheben des Fehlers, wenn die Nummer etwas anderes ist als das erwartete 424; Dies ist (um zu versuchen) eine Endlosschleife zu verhindern, wenn die Situation hoffnungslos ist.

Nathan made a good comment über das Hinzufügen eines zusätzlichen Schutzes gegen Endlosschleifen - hier durch Inkrementieren eines Zählers, bis sein Wert seinen Typ überschreitet (Laufzeitfehler 6 wird erhöht). Sie können auch eine Konstante und eine If Prüfung verwenden, wenn 32.768 Iterationen zu lange ein Timeout ist.

Wahrscheinlich nicht die beste Lösung, aber sollte arbeiten. Im Idealfall würden Sie die Rhino4.Application-API untersuchen, um festzustellen, ob sie ein Mitglied verfügbar macht, das verwendet werden könnte, um festzustellen, ob die Instanz "bereit" zur Verwendung ist. IsReady oder State vielleicht.