Machen Sie mit mehreren Bedingungen

Question

Einfache Frage, ich muss nur etwas offensichtlich fehlen.

Ich versuche eine Subroutine zu erstellen, die fragt, ob ein Fenster geöffnet ist, und ich möchte dies mit einer Schleife erreichen, die ausgeführt wird, während zwei Bedingungen erfüllt sind. Ich erhalte eine Fehlermeldung:

Run time error 13: Type Mismatch

Auf dem Do While-Schleife, und nach auf SO noch durch die ähnlichen Probleme der Suche Ich bin nicht ganz sicher, was ich falsch mache.

Hier ist die Linie, die erroring heraus hält:

Sub FindHWND() 
    Dim HWNDOut as string 
    Dim Timer as Date 
    Timer = Now() 
    'This following line is the one erroring out. 
    Do While ((Now() < Timer + TimeValue("00:00:10")) And (HWNDOut = 0)) 
     HWNDOut = CStr(Hex(FindWindowEx(0&, 0, "SunAwtFrame", "Graph.graphml - yEd"))) 
     Debug.Print HWNDOut 
     Sleep (100) 
    Loop 
    'Other, following sub and code that is not relevant 
End Sub 

Wo Timer die Now() im Moment ist, bevor die Schleife beginnt, und HWNDOut ist der Griff für das Fenster ich suche, die gefunden wird die Schleife.

All diese Schleife sieht alle 100 MS aus, um zu sehen, ob das Fenster zu einem Drittanbieterprogramm geöffnet wurde, um den Verlust von Befehlen in den nächsten Unterprogrammen zu verhindern.

Post Script: Wenn jemand irgendwelche Vorschläge hat, wie man das besser macht, bin ich ganz Ohr. Dies ist das erste Mal, dass ich die UI-Automatisierung nutze, damit ich noch lerne. Edit: Hinzugefügt mehr Code für den Kontext für den Kontext.

Answer 1

mit:

And (HWNDOut = 0)) 

Sie vergleichen eine String auf einen numerischen Wert .............. dies fehlschlagen.

Answer 2

Versuchen Sie den Variablennamen Timer auf etwas anderes zu ändern, z. StartTime (denke, es gibt eine Timer-Funktion in VBA, die einen Wert eines anderen Typs zurückgibt; also am besten keine Wörter verwenden, die reserviert oder semantisch signifikant sind).

Könnte helfen, vielleicht nicht, viel Glück.