---

Hallo zusammen,

versuche mich gerade mal wieder an einem Makro und bekomme es nicht hin.
Das Makro soll beim drücken der ESC Taste abbrechen. Das Makro soll nur auf Windows laufen.
Den folgenden Code habe ich.

Sub Main()
    For I = 1 To 10000
        DoEvents
        KeyPressed = CBool(GetAsyncKeyState(vbKeyEscape) And &H8000) ' &H8000 meint gedrückt!
        DoEvents                                ' Catia wartet kurz?
        'MsgBox ("Keypressed : " & KeyPressed)
        If KeyPressed = "True" Or KeyPressed = "Richtig" Then
            Exit Sub
            MsgBox ("Richtig : ")
        End If
        CATIA.Statusbar = I
    Next

Hat jemand eine Idee was ich da falsch mache?

mfg

elharry
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

wenn das Makro läuft und du ESC drückst wird es doch automatisch abgebrochen. Dafür brauchst du IMHO die Funktion nicht 

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Daniel,

leider tut es das nicht. Ich kann die ESC Taste drücken und halten so lange ich will.
Wenn ein Makro läuft dann läuft es.
Ich habe ja den Wert von I in der Statusbar ausgegeben und da sieht man ich kann wirklich drücken
soviel ich will. Das Makro läuft immer bis zum Ende der Zählschleife durch.

mfg

elHarry

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo elharry,

KeyPressed ist vom Typ 'boolean', kein String -->

Code:

---

If KeyPressed = True Then

---

oder besser einfach

Code:

---

If KeyPressed Then

---

Gruß
CAMiCADse

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo CAMiCADse,

super danke, das wars wohl.
Hier noch der Code für alle die es interessiert und
10U's für CAMiCADse.

Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Integer) As Boolean

Sub Main()
    For I = 1 To 100000
        DoEvents
        KeyPressed = CBool(GetAsyncKeyState(vbKeyEscape) And &H8000) ' &H8000 meint gedrückt!
        'MsgBox ("Keypressed : " & KeyPressed)
        If KeyPressed Then
            'Or KeyPressed = "Richtig" Then
            Exit Sub
            MsgBox ("Richtig : ")
        End If
        CATIA.Statusbar = I
    Next

End Sub

Gruß  elHarry

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP