<\/p>\n
Sie kennen das von den Dialogen zur Eingabe von Registrierungsschlüsseln: Sie geben den ersten Fünferpack des Schlüssels ein und der Fokus springt dann automatisch zum folgenden Feld, wo Sie den nächsten Fünferpack eingeben können. Dieses Verhalten wollen wir einmal nachbilden. Dieser Beitrag zeigt, wie das durch den geschickten Einsatz von Ereignisprozeduren leicht gelingt.<\/b><\/p>\nFormular erstellen<\/h2>\n
Als Erstes erstellen wir ein Formular namens frmKeys<\/b>, dem wir die fünf Textfelder txtKey1<\/b>, txtKey2<\/b>, txtKey3<\/b>, txtKey4 <\/b>und txtKey5 <\/b>hinzufügen. Dazwischen platzieren wir jeweils ein Minuszeichen (s. Bild 1).<\/p>\n
![\"Das](\"..\/fileadmin\/_temp_\/2018_01\/pic_1113_001.png\")
<\/p>\n
Bild 1: Das Formular frmKeys in der Entwurfsansicht<\/span><\/b><\/p>\n Was geschieht nun Optimalerweise gibt der Benutzer nacheinander die 25 Zeichen des Keys ein. Dabei wollen wir dafür sorgen, dass immer nach Eingabe von fünf Zeichen ein automatischer Sprung zum nächsten Textfeld erfolgt. Das erledigen wir etwa für das erste Textfeld mit der Prozedur, die durch das Ereignis Bei Taste auf <\/b>ausgelöst wird und die wir wie folgt füllen:<\/p>\n Wenn Sie nun fünf Zeichen in das erste Textfeld eingeben, landet die Einfügemarke wie in Bild 2 im zweiten Textfeld. Die If…Then<\/b>-Bedingung in der Prozedur prüft, ob die Anzahl der Zeichen im Textfeld txtKey1 <\/b>dem Wert 5 <\/b>entspricht und ob sich die Einfügemarke an der letzten Position befindet. In diesem Fall wird der Fokus auf das zweite Textfeld txtKey2 <\/b>verschoben.<\/p>\n <\/p>\n Bild 2: Verschieben des Fokus in Aktion<\/span><\/b><\/p>\n Diese Prozedur könnten wir nun für die ersten vier Textfelder duplizieren. Allerdings wollen wir dies gleich ein wenig refaktorieren, indem wir die Anweisungen innerhalb der Prozedur in eine eigene Prozedur auslagern, der wir nur noch die Nummer aus der Bezeichnung des Textfeldes übergeben. Die Prozedur txtKey1_Up <\/b>sieht danach etwa so aus:<\/p>\n Hier wird also die Prozedur KeyUp <\/b>aufgerufen, der wir neben den Parametern der aufrufenden Ereignisprozedur noch die Nummer der Textbox übergeben, welche das Ereignis auslöst. Für die folgenden vier Textboxen sieht die entsprechende Ereignisprozedur ähnlich aus, nur mit einem anderen Wert für den letzten Parameter.<\/p>\n Die Prozedur KeyUp <\/b>finden Sie in Listing 1. Sie nimmt die angegebenen Parameter entgegen und führt für den Wert 1 <\/b>bis 4 <\/b>für den Parameter intTextBox <\/b>den ersten Teil der Select Case<\/b>-Bedingung aus.<\/p>\nVorgaben<\/h2>\n
Private Sub <\/span>txtKey1_KeyUp(KeyCode As Integer<\/span>, _\r\n Shift As Integer<\/span>)\r\n If Len<\/span>(Me!txtKey1.Text) = 5 And _\r\n Me!txtKey1.SelStart = 5 Then\r\n Me!txtKey2.SetFocus\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Verschieben](\"..\/fileadmin\/_temp_\/2018_01\/pic_1113_002.png\")
<\/p>\nPrivate Sub <\/span>txtKey1_KeyUp(KeyCode As Integer<\/span>, _\r\n Shift As Integer<\/span>)\r\n KeyUp KeyCode, Shift, 1\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>KeyUp(KeyCode As Integer<\/span>, Shift As Integer<\/span>, intTextBox As Integer<\/span>)\r\n Select Case intTextBox\r\n Case <\/span>1, 2, 3, 4\r\n If <\/span>Len<\/span>(Me(\"txtKey\" & intTextBox).Text) = 5 And Me(\"txtKey\" & intTextBox).SelStart = 5 Then<\/span>\r\n Me(\"txtKey\" & intTextBox + 1).SetFocus\r\n End If<\/span>\r\n Case <\/span>5\r\n If <\/span>Len<\/span>(Me(\"txtKey\" & intTextBox).Text) = 5 And Me(\"txtKey\" & intTextBox).SelStart = 5 Then<\/span>\r\n Me!cmdOK.SetFocus\r\n End If<\/span>\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\n
![\"Begrenzen](\"..\/fileadmin\/_temp_\/2018_01\/pic_1113_005.png\")
<\/p>\n