<\/p>\n
Manchmal möchten Sie vielleicht schnell den kompletten Inhalt oder auch Ausschnitte von einem Textfeld in ein anderes übernehmen. Dann markieren Sie diesen, kopieren ihn, beispielsweise mit der Tastenkombinatino Strg + C, und fügen ihn mit Strg + V in das Zieltextfeld ein. Das ist für den Alltag schnell genug, so Sie denn die Tastenkombinationen aus dem Stegreif beherrschen (das ist längst nicht immer der Fall!). Wenn Sie jedoch häufiger Inhalte von Textfeld A nach Textfeld B übertragen wollen, gibt es einen viel eleganteren Weg. Schauen Sie selbst!<\/b><\/p>\n
Mit dem Beispiel des vorliegenden Beitrags wollen wir zeigen, wie einfach es ist, den in einem ersten Textfeld markierten Text in ein zweites Textfeld zu kopieren. Dabei soll es zwei auslösende Ereignisse geben. Das erste und einfachere ist die Markierung mit der Maus. Diese beginnt, indem der Benutzer den Start der Markierung durch Herunterdrücken der Maustaste an der entsprechenden Stelle selektiert. Dann bewegt er den Mauszeiger bei gedrückter Maustaste zu der Stelle, die das Ende der Markierung festlegt. Um den Inhalt in das andere Textfeld zu kopieren, muss der Benutzer nun nur noch die Maustaste loslassen. Natürlich gelingt dies auch andersherum: Man kann auch zuerst das Ende der Markierung auswählen und dann weiter vorn an der Startposition die Maustaste loslassen.<\/p>\n
Die zweite Variante soll die Markierung mit der Tastatur ermöglichen. Hier positionert der Benutzer die Einfügemarke vor die erste Position des zu markierenden Textes – sei es mit der Maus oder mit den Cursortasten.<\/p>\n
Dann erweitert er die Markierung durch Bewegung der Cursortasten bei gedrückter Umschalttaste (für zeichenweisen Vorschub) oder bei zusätzlich gedrückter Strg<\/b>-Taste (um gleich ganze Wörter zur Auswahl hinzuzufügen). Wenn die gewünschte Auswahl erreicht wurde, lässt er einfach die Umschalttaste los und der markierte Text wird kopiert.<\/p>\n
Dies sieht beispielsweise wie in Bild 1 aus. Hier haben wir zunächst den vierten Abschnitt des Quelltextes markiert und so zum Zielfeld hinzugefügt. Dann haben wir den dritten Absatz markiert. Dadurch, dass die Option Neue Zeile <\/b>ausgewählt ist, landet der markierte Text in der nächsten Zeile hinter dem bereits im Zielfeld vorhandenen Text.<\/p>\n
![\"Kopieren](\"..\/fileadmin\/_temp_\/2016_02\/pic_1027_002.png\")
<\/p>\n
Bild 1: Kopieren von einem Textfeld zum nächsten<\/span><\/b><\/p>\n Der Versuchsaufbau sieht in der Entwurfsansicht wie in Bild 2 aus. Das Formular enthält hauptsächlich zwei Textfelder namens txtQuelle <\/b>und txtZiel<\/b>, von denen das Textfeld txtQuelle <\/b>beim Laden Text anzeigen soll, der durch verschiedene Aktionen in das zweite Textfeld txtZiel <\/b>kopiert werden soll.<\/p>\n Bild 2: Entwurf des Formulars zum Kopieren von Inhalten per einfacher Markierung<\/span><\/b><\/p>\n Um genauer festzulegen, wie der Text an den bereits in txtZiel <\/b>enthaltenen Text angefügt werden soll, gibt es noch eine Optionsgruppe namens ogrModus<\/b>. Diese bietet zwei mögliche Werte an: Hinten anfügen <\/b>oder Neue Zeile<\/b>.<\/p>\n Damit unser Beispielformular beim öffnen einige Beispielsätze anzeigt, füllen wir dieses in der Ereignisprozedur, die durch das Ereignis Beim Laden <\/b>des Formulars ausgelöst wird, mit etwas Platzhaltertext.<\/p>\n Dann setzen wir den Fokus auf das Textfeld txtQuelle <\/b>und heben eine eventuell durch die Einstellung für den Eintritt in das Textfeld vorgesehene Markierung auf, indem wir die Eigenschaft SelLength <\/b>auf den Wert 0 <\/b>einstellen:<\/p>\n <\/p>\n Das Kopieren nach der Markierung eines Bereichs unter Zuhilfenahme der Umschalttaste (zur Markierung einzelner Buchstaben) beziehungsweise der Umschalttaste plus der Strg<\/b>-Taste (zur Markierung kompletter Wörter) erfolgt nach dem Loslassen der zuvor betätigten Tasten.<\/p>\n Dies löst das Ereignis Bei Taste <\/b>auf des Textfeldes txtQuelle <\/b>aus (s. Listing 1).<\/p>\n Listing 1: Diese Ereignisprozedur kopiert beim Loslassen der Umschalt\/Strg-Taste den markierten Inhalt in ein weiteres Textfeld.<\/span><\/b><\/p>\n Die Prozedur prüft zunächst, ob soeben die Kombination aus Umschalttaste oder Umschalt plus Strg<\/b>-Taste (ermittelt aus dem Parameter Shift<\/b>, acShiftMask <\/b>entspricht Umschalttaste, acShiftMask + acCtrlMask <\/b>entspricht Umschalttaste und Strg<\/b>-Taste) und der Umschalttaste (ermittelt aus dem Parameter Key <\/b>mit dem Wert vbKeyShift<\/b>) losgelassen wurde. Außerdem sollte die Länge der aktuellen Markierung (ermittelt mit der Eigenschaft SelLength <\/b>des Steuerelements txtQuelle<\/b>) größer als 0 <\/b>sein, da sonst offensichtlich keine Markierung vorliegt.<\/p>\n In diesem Fall ermittelt die Prozedur den Inhalt der aktuelle Markierung. Dazu nutzt sie die Mid<\/b>-Funktion, deren erster Parameter den zu untersuchenden Text erwartet. Mit dem zweiten Parameter geben Sie die Startposition der zu ermittelnden Zeichenkette an.<\/p>\n Hier verwenden wir dazu die Eigenschaft SelStart <\/b>des Textfeldes txtQuelle <\/b>plus 1<\/b>, da SelStart <\/b>nullbasiert ist, Mid <\/b>aber für das erste Zeichen den Index 1 <\/b>verwendet. Die Länge der zu extrahierenden Zeichenkette liefert die Eigenschaft SelLength <\/b>des Textfeldes. Der markierte Inhalt landet schließlich in der Variablen strTemp<\/b>.<\/p>\n Nun schaut sich die Prozedur den aktuellen Zustand des Zieltextfeldes an sowie den mit der Optionsgruppe festgelegten Modus. Wenn das Textfeld txtZiel <\/b>noch keinen Inhalt aufweist (Len(Me!txtZiel) = 0<\/b>), sind keine Maßnahmen erforderlich, bevor der markierte Text an den vorhandenen Text angehängt wird.<\/p>\n Anderenfalls prüft die Prozedur den Wert der Optionsgruppe ogrModus<\/b>. Im Falle des Optionswertes 1<\/b>, was der Option Hinten anfügen <\/b>entspricht, soll vor dem Hinzufügen des markierten Textes aus dem Textfeld txtQuelle <\/b>noch ein Leerzeichen an den bereits vorhandenen Text angehängt werden. Ist hingegen die Option 2 <\/b>eingestellt (Neue Zeile<\/b>), dann soll der einzufügende Text in einer neuen Zeile erscheinen. Daher fügt die Prozedur zuvor noch einen Zeilenumbruch hinzu (vbCrLf<\/b>). Schließlich weist die Prozedur dem Inhalt des Textfeldes txtZiel<\/b> den bisherigen Inhalt plus den in der Variablen strTemp <\/b>zwischengespeicherten markierten Inhalt aus dem Textfeld txtQuelle<\/b> hinzu.<\/p>\n Das Kopieren eines Textes per Mauszeiger gestaltet sich noch ein wenig einfacher. Die Prüfung, welche Taste gedrückt wurde, fällt hier deutlich einfacher aus, weil uns lediglich interessiert, ob der Benutzer die linke oder die rechte Maustaste verwendet hat. Wir wollen nur beim Betätigen der linken Maustaste aktiv werden, also schließen wir den gesamten Code in eine If…Then<\/b>-Bedingung ein, die den Wert der Variablen Button <\/b>auf den Wert der Konstanten acButtonLeft<\/b> prüft.<\/p>\n Innerhalb der Bedingung ermittelt die erste Anweisung wieder mithilfe der Mid<\/b>-Funktion den Inhalt der aktuellen Markierung. Sie prüft, ob es überhaupt eine Markierung gibt und ob der markierte Text hinten an die letzte Zeile angehängt oder in einer neuen Zeile eingefügt werden soll. Schließlich landet der Inhalt der Variablen strTemp <\/b>an der gewünschten Stelle im Textfeld txtZiel<\/b>.<\/p>\n Was aber geschieht, wenn wir ein einzelnes Wort schnell per Doppelklick markieren und kopieren wollen Dass es gelingt, das angeklickte Wort so schnell zu markieren, haben Sie sicher schon einmal ausprobiert. Aber benötigen wir eine weitere Prozedur, die beispielsweise auf das Ereignis Beim Doppelklicken <\/b>des Steuerelements reagiert Dies ist nicht der Fall: Beim zweiten Loslassen der Maustaste beim Doppelklick wird automatisch die Ereignisprozedur txtQuelle_MouseUp <\/b>ausgelöst (s. Listing 2). <\/p>\nAufbau des Formulars<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2016_02\/pic_1027_001.png\")
<\/p>\nPrivate Sub <\/span>Form_Load()\r\n Dim <\/span>strTemp As String<\/span>\r\n strTemp = \"Et et aut ...\" & vbCrLf<\/span> & vbCrLf<\/span> \r\n strTemp = strTemp & \"Diate inus ...\" & vbCrLf<\/span> & vbCrLf<\/span>\r\n strTemp = strTemp & \"Erehent, c...\" & vbCrLf<\/span> & vbCrLf<\/span>\r\n strTemp = strTemp & \"Ro etur aut...\" & vbCrLf<\/span> & vbCrLf<\/span>\r\n strTemp = strTemp & \"consed maio...\"\r\n Me!txtQuelle = strTemp\r\n Me!txtQuelle.SetFocus\r\n Me!txtQuelle.SelLength = 0\r\nEnd Sub<\/span><\/pre>\nKopieren per Tastatur<\/h2>\n
Private Sub <\/span>txtQuelle_KeyUp(KeyCode As Integer<\/span>, Shift As Integer<\/span>)\r\n Dim <\/span>strTemp As String<\/span>\r\n If (Shift = acShiftMask Or Shift = acShiftMask And acCtrlMask) And KeyCode = vbKeyShift And Me!txtQuelle.SelLength _\r\n > 0 Then\r\n strTemp = Mid<\/span>(Me!txtQuelle, Me!txtQuelle.SelStart + 1, Me!txtQuelle.SelLength)\r\n If <\/span>Not<\/span> Len<\/span>(Me!txtZiel) = 0 Then<\/span>\r\n If <\/span>Me!ogrModus = 1 Then<\/span>\r\n Me!txtZiel = Me!txtZiel & \" \"\r\n Else<\/span>\r\n Me!txtZiel = Me!txtZiel & vbCrLf<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n Me!txtZiel = Me!txtZiel & strTemp\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nKopieren per Maus<\/h2>\n
Wort per Doppelklick markieren<\/h2>\n
Private Sub <\/span>txtQuelle_MouseUp(Button As Integer<\/span>, Shift As Integer<\/span>, X As Single<\/span>, Y As Single<\/span>)\r\n Dim <\/span>strTemp As String<\/span>\r\n If <\/span>Button = acButtonLeft Then<\/span>\r\n strTemp = Mid<\/span>(Me!txtQuelle, Me!txtQuelle.SelStart + 1, Me!txtQuelle.SelLength)\r\n If <\/span>Not<\/span> Len<\/span>(Me!txtZiel) = 0 Then<\/span>\r\n If <\/span>Me!ogrModus = 1 Then<\/span>\r\n Me!txtZiel = Me!txtZiel & \" \"\r\n Else<\/span>\r\n Me!txtZiel = Me!txtZiel & vbCrLf<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n Me!txtZiel = Me!txtZiel & strTemp\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n
![\"Kopieren](\"..\/fileadmin\/_temp_\/2016_02\/pic_1027_003.png\")
<\/p>\n