---

Hallo Forum,

ich weiss wieder mal nicht recht wie ich weitermachen soll...

Ich möchte dem Benutzer die Möglichkeit geben, beliebig viele Punkte zu picken.

Das mache ich mit:

Code:

---

ThisDrawing.Utility.GetPoint(,"Bitte klicken:")

---

Diese Abfrage von Punkten wiederhole ich solange, bis der Benutzer die rechte Maustaste klickt.

Wie schaff ich es, die Schleife zu unterbrechen wenn der Benutzer die <Enter> der <Esc> Taste drückt, und nicht nur bei rechter Maustaste?

Vielen Dank schon mal...

------------------
Grüse Benny

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

---

Hallo Benny,

so geht es z.B.

Code:

---

Sub test()
    Dim Abbruch As Boolean
    Dim Punkt As Variant
   
    Do
        On Error GoTo User_abbruch
        Punkt = ThisDrawing.Utility.GetPoint(, Chr$(10) & "Punkt wählen: ")
        If Not Abbruch Then
            ' Fehlerunterdrückung abschalten
            On Error GoTo 0
            MsgBox "Punkt bei:" & Punkt(0) & Punkt(1)
            ' bla bla Code
        End If
    Loop While Not Abbruch
   
    Exit Sub
   
User_abbruch:
    Abbruch = True
    Resume Next

End Sub

---

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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