Office: Do...Loop mit Tastatur abbrechen

Hi

Ich habe ein Button, mit dem ich beim Click-Ereigniss eine Do...Loop-Schleife auslöse. Ich möchte nun während die Schleife läuft, die Möglichkeit haben diese abzubrechen, am Besten mit der Tastaturtaste "Esc". Ist das möglich und wenn ja, welchen Code muss ich dafür verwenden?

Oski

:)

 

Hallo,

definiere eine Public-Variable (gleich unter den Optionszeilen ganz oben), mit der Du die Schleife frei gibst. Die Formulareigenschaft "Tastenvorschau" stellst Du auf Ja. Dann kannst Du im Formularereignis "Bei Taste Ab" auf die ESC-Taste abfragen, die Variable setzen und die Schleife somit abbrechen. Wichtig ist, das Du einen DoEvents-Befehl in der Schleife hast, damit das System die Möglichkeit bekommt, Ereignisse überhaupt zu verarbeiten.

Das Ganze könnte dann ungefähr so aussehen:

Code:

 

Hallo Oski,

versuche mal folgendes

 

... oder halt die Taste Untbr auf der Tastatur drücken. (Strg+Pause) *biggrin.gif*

 

\@ Mario

Hi

Ich habe deinen Code ausprobiert und es funkt. Ich kann die Schleife stoppen, jedoch möchte ich nun nach dem Stoppen an einem anderen Punkt weiterfahren. Genauer gesagt heisst dass, ich möchte die ganze Prozedur, die ich durch den Button ausgelöst habe verlassen, aber wie?

Oski

 

Hallo Oski,

eine Prozedur verläßt du mit

Code:

 

\@ Nouba

Hi

Bin ein VBA-Anfänger, jedoch möchte ich deinen Code gerne ausprobieren. Habe jedoch keinen blassen Schimmer was er bedeutet und wo dieser hingehört. Könntest du mir erkären wo der Code eingesezt werden soll?

Oski

Oski

 

\@ Aquarii

Hi

Ist mir klar das mit Exit Sub.

Ich habe es anstatt mit Do While nur mit Do versucht und dann eine If...then...Else....Schleife eingebaut und wenn blnSchleife = False Then Exit Sub. Das hat nicht gefunkt weil die Schlaufe nicht mehr enden wollte.

Also wo kommt den dieses Exit Sub hin?

Oski

 

Hallo OskiH,

die ersten drei Zeilen von Nouba kommen in den Deklarationsteils des Moduls, also in den Kopfbereich unterhalb von

Option Compare Database
Option Explicit


Ab der Zeile

Private Sub cmdLoop_Click()

beginnt die Prozedur, wobei hier das Ereignis bei Klick einer Befehlsschaltfläche mit dem Namen cmdButton Voraussetzung ist.

Die solltest du dann entsprechend Deiner Bezeichnung anpassen.

 

Hallo OskiH,

Dann poste bitte mal hier Deinen Code, dann wird es vielleicht klarer...

 

Hallo Oski,

Marios Do Loop-Schleife sollte IMO verlassen werden, wenn blnSchleife auf False gesetzt wird. Vermutlich muß KeyPreview der Form in den Eigenschaften auf True gesetzt werden.

Mein Kode kann so in ein Formmodul übernommen werden. cmdLoop steht für den Namen einer Schaltfläche. Der Kode wird beim Click Event dieser Schaltfläche ausgeführt.

&H1B (hexadezimal) = 27

GetKeyboardState fragt den Tastaturstatus ab, wobei im Array das entsprechende Bit gesetzt wird. Wenn Escape gedrückt wird, ist das Bit gesetzt, was mit And 1 abgefragt wird. In VBA gibt es kein Bit-Array, deswegen wird hier ein Byte-Array verwendet.

1 = True (Wahr)
0 = False (Falsch)

1 And 1 = 1
1 And 0 = 0
0 And 0 = 0

1 Or 1 = 1
1 Or 0 = 1
0 Or 0 = 0

mit Not läßt sich die ganze Logik umkehren.

Statt arrTasten(VK_ESCAPE) = arrTasten(VK_ESCAPE) And Not 1 könnte also auch arrTasten(VK_ESCAPE) = 0 verwendet werden, um das Bit im Array zurückzusetzen. Ich finde aber die andere Schreibform verständlicher.

SetKeyboardState verrichtet das Zurücksetzen. Anschließend wird noch etwas in die Statuszeile geschrieben, damit man sieht, dass die Schleife abgebrochen wurde. Mit Exit Do wird die Schleife verlassen.

Auf diese Art und Weise können auch Tasten des Keypads abgefragt werden.

Ich hoffe, mich einigermaßen verständlich ausgedrückt zu haben.

 

Hi

Hier mein Code, den ich anhalten und verlassen möchte. Naja, aller Anfang ist schwer!

Code:

Oski

 

\@Nouba

Hi, ich habe deinen Code eingesetzt und ausprobiert. Wenn ich nun den Druckauftrag auslösen wollte wurde das Formular sofort geschlossen. Sei mir nicht böse aber dein Code übersteigt mein Können bei weitem. Bei Mattes Code kann ich die Abläufe so schlecht und recht nachvollziehen und deshalb möchte ich seine Version verwirklichen, wenn dies möglich ist.
Dennoch vielen Dank für deine Erklärungen

Oski

 

Hallo Oski,

ich vermisse die Abbruchbedingung mit Esc in Deinem Code.

 

\@Aquarii

Ist so, weil ich den ganzen Code von Mattes rausgelöscht habe. Ich wollte mich nicht blamieren(wenn das nicht schon geschehen ist *biggrin.gif* ) weil ich den Code vollkommen falsch eingesetzt habe.

Oski